Default Yazıcıyı Programda Değiştirmek - Bilişim

Default Yazıcıyı Programda Değiştirmek

Default Yazıcıyı Programda Değiştirmek

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;


Paylaş

Etiketler: Default Yazıcıyı Programda Değiştirmek

seasparrow

Üyemiz, İkizler Burcu 42 Yaşında, Mesleği: İLETİŞİM-TEKNOLOJİ,

Yorumlar
Yorum Yaz
Güvenlik Kodu