如何在Delphi中使用DeviceCapabilities检索特定打印机中的纸张名称和尺寸

function DeviceCapabilities(pDevice, pPort: PChar; fwCapability: Word;
  pOutput: PChar; DevMode: PDeviceMode): Integer; stdcall;

var
  PrinterName: array[0..255] of Char;
  PaperNames: array[0..255] of Char;
  PaperSizes: array[0..255] of Word;
  NumPapers: Integer;
  i: Integer;
begin
  // 获取默认打印机名称
  Printer.GetPrinter(PrinterName, PrinterName, Result);

  // 获取打印机支持的纸张名称
  NumPapers := DeviceCapabilities(PrinterName, nil, DC_PAPERNAMES, PaperNames, nil);

  // 获取打印机支持的纸张尺寸
  DeviceCapabilities(PrinterName, nil, DC_PAPERS, nil, nil);
  Move(Output, PaperSizes, NumPapers * SizeOf(Word));

  // 输出纸张名称和尺寸
  for i := 0 to NumPapers - 1 do
  begin
    ShowMessage(Format('纸张名称：%s，纸张尺寸：%d mm x %d mm',
      [PaperNames[i], PaperSizes[i] div 10, PaperSizes[i] mod 10]));
  end;
end;