如何判断打印机是否安装?
解决方案 »
- 视频会议如何实现,大家共享一下经验!
- 高分求助,用delphi怎样读写web服务器上的access(.mdb)数据库?在线等
- 单个按钮功能可以实现,运行时连续使用几个按钮时总是报错,请高手指教到底怎么回事呀?
- vb代码如何转成DELPHI中代码,求助
- 怎么样让DBGrid的列的宽度随记录的字段宽度变化而变化???
- 请教:语句 if query.sql.count=3 then query.sql.delete(2); 是什么意思?
- 关于clientdataset(在线等待)
- delphi中画布的部分刷新
- 图片放大定位
- 关于 dll 的 oleVariant
- 我一调用函数就出错啊,是函数里的错误吗?
- 谁能帮我翻译段C的代码????
具体是什么属性忘了,你查查看……
ADevice,ADriver,APort:Array[0..255] of Char;
DeviceHandle:THandle;
begin
Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle); if DeviceHandle=0 then //句柄是0 ,表示打印机没有装载
begin
Printer.PrinterIndex:=Printer.PrinterIndex;
Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);
end; if DeviceHandle=0 then
Application.MessageBox('默认打印机不存在,请检查打印机设置!',
'系统信息',Mb_ok);end;
uses
Printer;