Get Default Printer Name

~~~~~~~~~~~~~~~~~~~~~~~~~
uses Printers;

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

~~~~~~~~~~~~~~~~~~~~~~~~~

Delphi tips navigator:
» Another way to disable screen saver
« Drag'n'Drop nodes inside TreeView

• 1
• 2
• 3
• 4
• 5