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

Previous  Top  Next

    
 

 

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

 

Примечание:

 

DriverName = Имя драйвера;

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

 

Code:

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;

 

 

©Drkb::03222

       

Взято с http://delphiworld.narod.ru