发信人: showskyws(示天)
整理人: teleme(2001-02-10 23:20:49), 站内信件
|
如何在Delphi程序中改变缺省打印机
procedure TForm1.Button1Click(Sender: TObject);
var
WinIni : TIniFile;
WinIniFileName : array[0..MAX_PATH] of char;
s : array[0..64] of char;
begin
GetWindowsDirectory(WinIniFileName, sizeof(WinIniFileName));
StrCat(WinIniFileName, '\win.ini');
WinIni := TIniFile.Create(WinIniFileName);
try
WinIni.WriteString('windows', 'device', 'HP LaserJet Series II,HPPCL,LPT1:');
finally
WinIni.Free;
end;
StrCopy(S, 'windows');
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@S));
end;
----
我每天都在努力，因为每天都要进步!
沉迷网络，程序人生，这就是我!
欢迎光临我的个人主页：示天工作室
▇▇▇▇▇▇▇▇
▇网易北京社区▇
▇ DELPHI版 ▇
▇版副印(试用)▇
▇▇▇▇▇▇▇▇ |
|