老
老桑
Unregistered / Unconfirmed
GUEST, unregistred user!
我想用程序检测打印机是否安装，如安装打印操作继续，否则提示，但不知如何编写检测程序<br>请各位大虾 帮帮忙
卷
卷起千堆雪tyn
Unregistered / Unconfirmed
GUEST, unregistred user!
uses Printers;<br><br>if Printer.Printers.Count=0 then<br> ShowMessage('请首先安装打印机')<br>else<br> ......
U
ugvanxk
Unregistered / Unconfirmed
GUEST, unregistred user!
var fdevice
char;<br> fdriverchar;<br> fportchar;<br> fhandle:thandle;<br> currentprintername:string;<br>begin<br> getmem(fdevice,255);<br> getmem(fdriver,255);<br> getmem(fport,255);<br> printer.getprinter(fdevice,fdriver,fport,fhandle);<br> currentprintername:=fdevice;<br> if fdevice<>nil then freemem(fdevice,255);<br> if fdriver<>nil then freemem(fdriver,255);<br> if fport<>nil then freemem(fport,255);<br> if currentprintername='' then <br> messagedlg('你尚未安装打印机驱动程序。',mterror,[mbok],0);<br>end;
char;<br> fdriverchar;<br> fportchar;<br> fhandle:thandle;<br> currentprintername:string;<br>begin<br> getmem(fdevice,255);<br> getmem(fdriver,255);<br> getmem(fport,255);<br> printer.getprinter(fdevice,fdriver,fport,fhandle);<br> currentprintername:=fdevice;<br> if fdevice<>nil then freemem(fdevice,255);<br> if fdriver<>nil then freemem(fdriver,255);<br> if fport<>nil then freemem(fport,255);<br> if currentprintername='' then <br> messagedlg('你尚未安装打印机驱动程序。',mterror,[mbok],0);<br>end;
老
老桑
Unregistered / Unconfirmed
GUEST, unregistred user!
vgvanxk:你写的太复杂了，不过你能把程序注释一下也不错，可能在其他地方用的上<br>