Delphi 获取系统默认打印机

function getSystemDefaultPrinter: string;
var
  index: integer;
  defaultPrinter: string;
  flag: Boolean;
  len: DWORD;
begin
  if (Printer = nil) or (printer.Printers.Count = 0) then
  begin
    MessageBox(0, '未找到打印机，请先安装打印机', '警告', MB_ICONWARNING + MB_OK);
  end
  else
  begin
    len := 1024;
    SetLength(defaultPrinter, len);
    flag := GetDefaultPrinter(PChar(defaultPrinter), @len);
    SetLength(defaultPrinter, len);
    if flag then
    begin
      Result := defaultPrinter;
    end
    else
    begin
      index := Printer.PrinterIndex;   //获得第一次实例的打印机
      Result := Printer.Printers[index];
    end;
  end;
end;

用到winSpool库。