delphi 获取打印机默认纸张_请教用DELPHI怎样设置和获得打印机的纸张大小

由 wutianbin » 星期一, 2000年12月11日 15:20

uses

Windows,

WinSpool,  //一定要 uses 这玩意

SysUtils,

Registry,

Classes;

//=================================

function TForm1.GetDeviceName():String;

var MyReg: TRegistry;

szDeviceName: String;

begin

MyReg := TRegistry.Create;

try

MyReg.RootKey := HKEY_CURRENT_CONFIG;

if MyReg.OpenKey('\System\CurrentControlSet\Control\Print\Printers',False) then

szDeviceName:=MyReg.ReadString('Default')

else

szDeviceName:='';

except

MyReg.Free;

end;

result:=szDeviceName;

end;

//=====