如何取缺省打印机名?

uses Printers;

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