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;

DELPHI - 7

Sayfayı Yazdır | Pencereyi Kapat