改變預設印表機

bestlong

如果你想要改變 Windows 的預設印表機,你必須在 Windows 的 WIN.INI 中改變設備鍵值。
然後發送一個 WM_WININICHANGE 消息通知系統 win.ini 有改變：

1. var
   
2.   strIni: array[0..MAX_PATH] of Char;
   
3.   arrWindows: array[0..64] of Char;
   
4. begin
   
5.   GetWindowsDirectory(strIni, SizeOf(strIni));
   
6.   StrCat(strIni, '\win.ini');
   
7.   with TIniFile.Create(strIni) do
   
8.   try
   
9.     WriteString('windows', 'device', 'HP LaserJet 4 Plus,HPPCL5MS,LPT1:');
   
10.   finally
    
11.     Free;
    
12.   end;
    
13. 
    
14.   StrCopy(arrWindows, 'windows');
    
15.   SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@arrWindows));
    
16. end;

複製代碼