请问如何用代码设置默认打印机的纸张类型及纸张大小????
我想在程序中用 代码 设置 默认打印机的纸张类型及纸张大小, 例如用代码设置纸张类型为 自定义大小 ,
高度为46.6毫米.
我想在程序中用 代码 设置 默认打印机的纸张类型及纸张大小, 例如用代码设置纸张类型为 自定义大小 ,
高度为46.6毫米.
解决方案 »
- socket错误
- 将一个xml载入到了一个treeview,如果我要点击某个节点,获得这个节点从xml起点到此点击点的全路径怎么处理?
- SendMessage(z, EM_ReplaceSel, 0, Integer(pchar('?')));为什么目标不能显示问号?
- 紧急求助:如何发送邮件
- 哪儿有f1book的详细帮助
- 怎样使messagedlg(#13'光标',mtinformation,[mbyes,mbno],0)提示框的焦点放在“No”上?默认为“Yes”!不用MessageBox,必须是MessageDlg
- 为什么要用B/S架构,为什么要用J2EE/.NET?? ?
- 求救:cds文件用TClientDataSet控件如何打开?
- 如何知道Memo组件当前的文本行数?
- 关于dbedit的问题,在线等待。分不多了,抱歉。
- 大家来看一下,今天居然不能结贴!!
- 求救:哪儿可以下载SReport啊??
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, CommCtrl, StdCtrls, Menus,WinSpool, ExtCtrls, Validat, Buttons,
Registry;type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Timer1: TTimer;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private-Deklarationen }
started : boolean;
reg : TRegistry;
public
{ Public-Deklarationen }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
Dummy : array[0..1024] of byte;begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_DYN_DATA; //统计数据在这个表项下
Reg.OpenKey('PerfStats\StartStat',false); // Reg.ReadBinaryData('KERNEL\CPUUsage',Dummy,Sizeof(Dummy));
Reg.CloseKey;
started:=true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
var
CPUU : integer;begin
if started then
begin
Reg.OpenKey('PerfStats\StatData',false);
Reg.ReadBinaryData('KERNEL\CPUUsage',CPUU,SizeOf(Integer));
Reg.CloseKey;
Label1.Caption:=IntToStr(CPUU)+'%';
end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
Dummy : array[0..1024] of byte;begin
'PerfStats/StopStat' }
Reg.OpenKey('PerfStats\StopStat',false);
Reg.ReadBinaryData('KERNEL\CPUUsage',Dummy,SizeOf(Dummy));
Reg.Free;
Started:=false;
end;end.