关于调用安装打印机问题。(5分)

  • 主题发起人 主题发起人 delphiboy
  • 开始时间 开始时间
D

delphiboy

Unregistered / Unconfirmed
GUEST, unregistred user!
combobox1.Items.Clear ;
combobox1.Items.Assign(printer.Printers);
if combobox1.Items.CommaText='' then
begin
ShellExecute(0, 'open', 'rundll','shell32.dll,SHHelpShortcuts_RunDLL AddPrinter', '', SW_SHOWNORMAL);
end else
PrinterSetupDialog1.Execute ;
end;

我的意思是,如果当前存在打印机就显示出来,不存在就出现安装打印机向导,但
ShellExecute这句好象执行了,但没有出现安装向导啊?
 
你先不要那么麻烦啊...直接输入不就得了>>
唉,你们就爱搞些麻烦的事...
 
还有,你的那句:ShellExecute执行的话,那就是你上面那程序输入有误或打印机的型号不同!你自己看一下!
 
combobox1.Items.Clear ;
//1
combobox1.Items.Assign(printer.Printers);
//2
if combobox1.Items.CommaText='' then
//3这3句是检查当前是否安装了打印机。
begin
//如果没有安装就调用打印机安装向导
ShellExecute(0, 'open', 'rundll','shell32.dll,SHHelpShortcuts_RunDLL AddPrinter', '', SW_SHOWNORMAL);
end else
//否则显示当前打印机信息
PrinterSetupDialog1.Execute ;
end;

 
怎么没有人帮忙?
 
ShellExecute(0, 'open', 'rundll','shell32.dll,SHHelpShortcuts_RunDLL AddPrinter', '', SW_SHOWNORMAL);
这句怎么不可以调用打印机安装向导呢?
 

Similar threads

D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部