Mega Code Archive

 

Categories / Delphi / Printing

 

Windows default yazicisinin program icinden degistirilmesi

procedure SetDefaultPrinter(const device: string); var IniFile: TIniFile; begin IniFile := TIniFile.Create('WIN.INI'); try IniFile.WriteString('windows', 'device', device); except IniFile.Free; raise; end; IniFile.Free; SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LPARAM(pchar('windows'))); end; // Kullanimi: procedure TForm1.Button1Click(Sender: TObject); begin SetDefaultPrinter('Lexmark'); end;