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

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;

Here's the translation of the text into Russian:

Код, предоставленный ниже, написан на Delphi и используется для изменения умолчательного принтера в Windows. Вот подробное описание того, что код делает:

1. Он использует модуль IniFiles, который позволяет читать и записывать настройки из файла INI.
2. Процедура Button1Click вызывается при клике кнопки с надписью "Button1".
3. В этой процедуре код получает путь к директории Windows, используя функцию GetWindowsDirectory.
4. Он конкатенирует путь с именем файла 'win.ini' для получения полного пути к файлу INI.
5. Создается новый экземпляр класса TIniFile и присваивается переменной WinIni, передавая полный путь к файлу INI в качестве аргумента.
6. Код записывает строковое значение в файл INI, используя метод WriteString. Ключ - 'windows', секция также 'windows', а значение - имя принтера для установки как умолчательного, которое в этом случае является 'HP LaserJet Series II, HPPCL, LPT1:'.
7. Наконец, код отправляет сообщение всем верхним уровням окон, используя функцию SendMessage с сообщением WM_WININICHANGE и адресом переменной строки S, содержащей ключ 'windows'. Это заставляет Windows перечитать свой файл INI.

Обратите внимание, что этот код является quite старым и может не работать в современных версиях Windows. Кроме того, изменение умолчательного принтера программно, как это делается здесь, может иметь неожиданные последствия, если пользователь имеет конкретные настройки или предпочтения.

Вот альтернативное решение с использованием компонента TPrinters:

uses
  Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
  Printer: TPrinter;
begin
  Printer := TPrinter.Create(nil);
  try
    Printer.DefaultPrinter := 'HP LaserJet Series II';
  finally
    Printer.Free;
  end;
end;

В этом коде мы создаем экземпляр класса TPrinter и устанавливаем свойство DefaultPrinter в желаемое имя принтера. Это более современный и гибкий способ изменения умолчательного принтера.

Помните, что для этого кода нужно включить модуль Printers в ваш список используемых модулей.

Статья описывает процесс изменения по умолчанию принтера в операционной системе Windows, используя язык программирования Delphi и файл настроек win.ini.

Комментарии и вопросы

:: Главная :: Принтеры и Печать ::