Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 3 апреля!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как изменить принтер по умолчанию


 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS