怎样改变windows下的默认打印机,急!!!
解决方案 »
- 谁有delphi MQ开发接口,那里能下载到IBM MQ软件?
- 着急 delphi6 与系统语言不一致时 乱码
- 討論:如何写出易维护和易扩展的程序?
- 想用Delphi做个局域网邮件系统,不知大家有什么好的方法。
- ——————硬盘坏了——————
- delphi6中的報表在delphi7中怎麼沒有了,如果要用怎麼辦?
- 如何控制远程数据模块的安全性?不让别人自写客户端访问我的服务器!
- 提一个很有难度的问题,高高手请进: 如何截获一个IE窗口发送的包并分析它? (尚未结贴)
- Delphi小问题
- 电脑的专有名称太多了,英文简写更让人眼花缭乱,怎样可以收集这些简写,并知道他们的确切含义?谢谢!
- 关于多个应用程序或者dll使用同一个数据库连接的问题,急!!!
- 如何使DBGrid支持鼠标滚轮!我用的Delphi 6, 可有比较简单的方法??急!
var
Device: array[0..255] of Char;
Driver: array[0..255] of char;
Port: array[0..255] of char;
s : array[0..255] of Char;
hDeviceMode: THandle;begin
//messagebeep(2);
beep();
Printer.PrinterIndex := ComboBox1.ItemIndex;
Printer.GetPrinter (Device, Driver, Port, hDeviceMode);
StrCopy (s, Device);
StrCat (s, ',');
StrCat (s, Driver);
StrCat (s, ',');
StrCat (s, Port);
WriteProfileString ('windows', 'device', s);
StrCopy (s, 'windows');
SendMessage (HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@s));
ComboBox1.Items := Printer.Printers; {populates ComboBox}
ComboBox1.ItemIndex := Printer.PrinterIndex;
end;procedure TForm1.ComboBox1Change(Sender: TObject);
var
Device: array[0..255] of Char;
Driver: array[0..255] of char;
Port: array[0..255] of char;
s : array[0..255] of Char;
hDeviceMode: THandle;begin Printer.PrinterIndex := ComboBox1.ItemIndex;
Printer.GetPrinter (Device, Driver, Port, hDeviceMode);
StrCopy (s, Device);
StrCat (s, ',');
StrCat (s, Driver);
StrCat (s, ',');
StrCat (s, Port);
WriteProfileString ('windows', 'device', s);
StrCopy (s, 'windows');
SendMessage (HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@s));
end;