Bilgisayarınıza Bağlı Yazıcıları Bulun

CorsaiR

Emektar
27 Ara 2005
1,228
18
Çekirdekten
Bilgisayarınıza Bağlı Yazıcıları Bulun
Programınızda yazıcı kullanmak istiyorsunuz ancak bağlı yazıcıları öğrenmek istiyorsanız aşağıdaki kod size yardımcı olacaktır.Printers unit'i yazıcılarla ilgili isteyebileceğiniz kontrollerin neredeyse hepsini içerir.
İşe uses satırına Printers'ı ekleyerek başlayalım. Aşağıdaki kod varsayılan yazıcıyının ismini bulmanızı sağlar.



function Varsayilan : string;
begin
if (Printer.PrinterIndex > 0) then
Varsayilan := Printer.Printers[Printer.PrinterIndex]
else
Varsayilan := ";
end;


Eğer bilgisayarınıza bağlı olan yazıcıların listesini almak isterseniz önce formunuza bir combobox ekleyin daha sonra aşağıdaki kodu istediğiniz bir event'e bağlayabilirsiniz.


ComboBox1.items := Printer.Printers;
 
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.