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

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

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

Недавно добавленные исходники
• Animation Loaders 736 • DeLiKaTeS Tetris (Тетрис) 5 728 • TDictionary Custom Sort 7 685 • Fast Watermark Sources 7 370 • 3D Designer 10 585 • Sik Screen Capture 7 896 • Patch Maker 8 124 • Айболит (remote control) 8 177 • ListBox Drag & Drop 6 972 • Доска для игры Реверси 100 244 • Графические эффекты 8 254 • Рисование по маске 7 634 • Перетаскивание изображений 6 233 • Canvas Drawing 6 600 • Рисование Луны 6 531 • Поворот изображения 5 696 • Рисование стержней 4 625 • Paint on Shape 3 330 • Генератор кроссвордов 4 308 • Головоломка Paletto 3 455 • Теорема Монжа об окружностях 4 272 • Пазл Numbrix 2 768 • Заборы и коммивояжеры 3 678 • Игра HIP 2 484 • Игра Go (Го) 2 471 • Симулятор лифта 2 871 • Программа укладки плитки 2 307 • Генератор лабиринта 3 034 • Проверка числового ввода 2 533 • HEX View 2 945

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

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