Get Default Printer Name

Iseng-iseng siapa tau ada manfaatnya


uses Printers;

function GetDefaultPrinterName : string;
begin
___if (Printer.PrinterIndex > 0)then begin
______Result := Printer.Printers[Printer.PrinterIndex];
___end else begin
______Result := '';
___end;
end;