procedure TForm1.Button1Click(Sender: TObject);
var
s: array [0..64] of char;
begin
WriteProfileString("PrinterPorts", "DriverName", "DRVFILE,FILE:,15,45");
WriteProfileString("Devices", "DriverName", "DRVFILE,FILE:");
StrCopy(S, "PrinterPorts");
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@S));
StrCopy(S, "Devices");
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@S));
end;
|