用户登录  |  用户注册
首 页商业源码原创产品编程论坛
当前位置:PB创新网文章中心编程技巧Delphi

如何在Windows中改变缺省打印机

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2009-03-16 20:04:16
如果你想要改变Windows的缺省打印机,你必须在Windows的WIN.INI中改变设备键。

发送一条 WM_WININICHANGE 消息:

var
strIni: array[0..MAX_PATH] of Char;
arrWindows: array[0..64] of Char;
begin
GetWindowsDirectory(strIni, SizeOf(strIni));
StrCat(strIni, ''\win.ini'');
with TIniFile.Create(strIni) do
try
WriteString(''windows'', ''device'', ''HP LaserJet 4 Plus,HPPCL5MS,LPT1:'');
finally
Free;
end;

StrCopy(arrWindows, ''windows'');
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@arrWindows));
end;

Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
PB创新网ourmis.com】Copyright © 2000-2009 . All Rights Reserved .
页面执行时间:27,078.13000 毫秒
Email:ourmis@126.com QQ:2322888 蜀ICP备05006790号