Question

delphi 如何设置系统的默认打印机

用delphi写的，可以设置默认打印机，麻烦详细写出。该引用什么单元等等

Answer 1

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;

Answer 2

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;