Mega Code Archive

 

Categories / Delphi / Printing

 

Bilgisayarda yazici yüklümü degil mi

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)// Yazicinin Türü else ShowMessage('Yazici Bulunamadi'); end;