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库。