Как установить драйвер принтера

Идет программист по улице. Встречает девушек.
- Девушки, хотите пива?
- Нет.
- Вино?
- Нет!
- Водку?
- Нет!!
Прграммист думает про себя: "Странно, стандартные драйверы не подошли".

Приведенный пример устанавливает драйвер принтера. Вам необходимо скопировать файлы с драйвером принтера в каталог 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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 115 • TDictionary Custom Sort 6 191 • Fast Watermark Sources 5 993 • 3D Designer 8 881 • Sik Screen Capture 6 326 • Patch Maker 6 744 • Айболит (remote control) 6 735 • ListBox Drag & Drop 5 597 • Доска для игры Реверси 96 058 • Графические эффекты 6 950 • Рисование по маске 6 214 • Перетаскивание изображений 5 121 • Canvas Drawing 5 489 • Рисование Луны 5 197 • Поворот изображения 4 744 • Рисование стержней 3 353 • Paint on Shape 2 597 • Генератор кроссвордов 3 496 • Головоломка Paletto 2 789 • Теорема Монжа об окружностях 3 594 • Пазл Numbrix 2 361 • Заборы и коммивояжеры 3 038 • Игра HIP 1 993 • Игра Go (Го) 1 918 • Симулятор лифта 2 275 • Программа укладки плитки 1 979 • Генератор лабиринта 2 434 • Проверка числового ввода 2 112 • HEX View 2 451 • Физический маятник 2 070

Как установить драйвер принтера

Похожие по теме исходники