社区
非技术区
帖子详情
初学dephi,想知道怎么设置缺省打印机,我只知道该用Tprinter类
luh
2005-01-28 11:00:10
哪位哥哥给我个详细例子阿
...全文
116
6
打赏
收藏
初学dephi,想知道怎么设置缺省打印机,我只知道该用Tprinter类
哪位哥哥给我个详细例子阿
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
winefish
2005-02-02
打赏
举报
回复
printerindex:=printers[i];
web700
2005-02-02
打赏
举报
回复
可怜的, 你发到非技术区谁能看到
lyguo
2005-02-02
打赏
举报
回复
UP
langziwujia007
2005-02-02
打赏
举报
回复
设置默认打印机 代码如下:
窗体上有个TComBox,命名为cb1
窗体名为Form1
procedure TForm1.FormCreate(Sender: TObject);
begin
cb1.items.assign(printer.printers);
end;
procedure TForm1.Button1Click(Sender: TObject);
var LPrinter:string;
PrinIniFile:Tinifile;
LStr:string;
begin
LStr:=printer.Printers[cb1.itemindex];
delete(Lstr,pos(' on ',Lstr),Length(LStr));
PrinIniFile:=TIniFile.Create('WIN.ini');
try
LPrinter:=PrinIniFile.ReadString('Devices',LStr,'');
PrinIniFile.writestring('windows','device',LStr+','+LPrinter);
finally
PrinIniFile.free;
end;
end;
***********************
uses printers;
procedure SetDefaultPrinter(const printerindex:integer);
Var
FHandle : THandle;
HPrt : THandle;
PrtInfo5: PPrinterInfo5;
FDevice: array[0..79] of char;
FDriver: array[0..79] of char;
FPort: array[0..79] of char;
begin
{printerindex为选中打印机的索引,如果使用打印机名称,则此句可忽略}
Printer.PrinterIndex := printerindex;
Printer.GetPrinter (FDevice, FDriver, FPort, FHandle);
OpenPrinter(FDevice, HPrt, nil);
if HPrt = 0 then
raise(Exception.Create('不能打开打印机'));
try
PrtInfo5 := GetPrinterInfo5(HPrt);
PrtInfo5.Attributes := PrtInfo5.Attributes +
PRINTER_ATTRIBUTE_DEFAULT;
SetPrinter(HPrt,5,PrtInfo5,PRINTER_CONTROL_SET_STATUS);
FreeMem(PrtInfo5);
finally
ClosePrinter(HPrt);
end;
end;
lanpa007
2005-02-02
打赏
举报
回复
帮助顶
我和我的蓝天白云
2005-02-01
打赏
举报
回复
看看帮助吧!
Delphi5开发人员指南
2.15.1 使用Delphi的包 56 2.15.2 包的语法 56 2.16 面向对象编程 57 2.17 使用Delphi对象 58 2.17.1 声明和实例化 58 2.17.2 析构 59 2.18 方法 59 2.18.1 方法的
类
型 60 2.18.2 属性 61 2.18.3 可见性表示符 62 ...
Delphi 5编程实例与技巧
16.1.2 使用剪贴板
类
375 16.1.3 操作图形 378 16.1.4 操作组件 379 16.1.5 操作定制格式的数据 379 16.2 动态数据交换(DDE) 381 16.3 操作注册表 385 16.3.1 TRegistry
类
387 16.3.2 与注册表相关的API函数 390 ...
DELPHI 5编程实例与技巧
Delphi是由Inprise公司推出的面向对象的可视化软件开发工具。Delphi 5是Delphi的最新版本。本书共分三部分、16章,主要介绍Delphi 5集成开发环境,对象Pascal语言、组件、通用编程技术、动态链接库、多线程、多媒体...
delphi EhLib 9.5.012 Full Source 专业版 .rar
该库包含Borland Delphi版本7、9的组件和
类
。 Developer Studio 2006,Delphi 2007,Embarcadero RAD Studio 2009-XE10.3,Lazarus。 目录 ----------------- 总览 安装库 安装帮助 示范节目 注册和价格 其他资讯 ...
Delphi 6集成开发环境
第1 章 Delphi 集成开发环境..........1 1.1 Delphi 6.0 简介............................................ 1 1.2 Delphi 可视化开发环境简介...................... 2 1.2.1 对象编辑器(Object Inspector)....3 ...
非技术区
828
社区成员
53,613
社区内容
发帖
与我相关
我的任务
非技术区
Delphi 非技术区
复制链接
扫一扫
分享
社区描述
Delphi 非技术区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章