procedure TForm1.Button1Click(Sender: TObject);
var Device, Driver, Port : array [0..255] of Char; Modo : Integer; begin Printer.GetPrinter(Device,Driver,Port,Modo); If Device <> '' then ShowMessage(Device) else ShowMessage('Sin definir impresora'); end;
Ważne artykuły