안녕하세요 여러분의 귀여운 토이입니다.
아래와 같은 코딩으로 하시면 됩니다.

uses
  IniFiles;
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;
혹시 하시고 안되면 메일을 주세요...그러면 제가 다시 TEST한후 연락 드릴께요...
토이였습니다.