//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;