请教：如何获取打印机的分辨率？

[neighborgirl]

请教：如何获取打印机的分辨率？
GetDeviceCaps(printerHandle?,LOGPIXELSX)；中
第一个参数怎么定义？

[firetoucher]

第一个参数是一个指针，指向打印机的设备描述结构device context（DC）.

[firetoucher]

你可以直接定义成long

[Wnyu]

指向打印机的设备 （Printer.handle)

unit PrinterDpi;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,printers,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
ppix : Integer;
begin
ppix := GetDeviceCaps(Printer.Handle, logPixelsX);
showmessage('x-dpi:'+floattostr(ppix));
ppix := GetDeviceCaps(Printer.Handle, logPixelsY);
showmessage('y-dpi:' +floattostr(ppix));
end;

end.