Mega Code Archive

 

Categories / Delphi / Printing

 

Default yazıcı hatası kontrolü

//Default printer tanımlanmamış bir bilgisayarda //bir uygulama çalıştığında karşılaşılan hata kontrolu. //...::::::( KORSAN )::::::...\\ procedure TForm1.Button1Click(Sender: TObject); var Device, Driver, Port : array [0..255] of Char; Mode : Integer; begin Printer.GetPrinter(Device,Driver,Port,Mode); if Device <> '' then ShowMessage(Device) else ShowMessage('Default printer tanımlanmamış.'); end;