Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Редакторы текста, отчеты / Моя программа использует дравер принтера. Возможно ли потихоньку установить драйвер принтера без вмешательства пользователя?

Моя программа использует дравер принтера. Возможно ли потихоньку установить драйвер принтера без вмешательства пользователя?

Приведенный пример устанавливает драйвер принтера. Вам необходимо скопировать файлы с драйвером принтера в каталог Windows\System и внести необходимые изменения в файл Win.Ini.
Примечание:

DriverName = Имя драйвера;
DRVFILE - имя файла с драйвером без расширения
      (".drv" - по умолчанию).

Пример:

     procedure TForm1.Button1Click(Sender: TObject);
     var
       s : array[0..64] of char;
     begin
       WriteProfileString('PrinterPorts',
              'DriverName',
              'DRVFILE,FILE:,15,45');
       WriteProfileString('Devices',
              'DriverName',
              'DRVFILE,FILE:');
       StrCopy(S, 'PrinterPorts');
       SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@S));
       StrCopy(S, 'Devices');
       SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@S));
     end;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru