Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Вниз

Настройка принтера 


Techno   (2002-03-05 11:27) [0]

Уважаемые Мастера помогите разобраться.
Необходимо программно ставить определенный принтер "использовать по умалчанию". Список принтеров в системе я получил, название принтера стоящего по умолчанию тоже- как переключить на другой?
Заранее спасибо



MBo   (2002-03-05 13:14) [1]

var
Device: array[0..255] of char;
Driver: array[0..255] of char;
Port: array[0..255] of char;
hDeviceMode: THandle;
begin
Printer.PrinterIndex := ....; {select printer to make default}
Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
StrCat( Device, ",");
StrCat( Device, Driver );
StrCat( Device, ",");
StrCat( Device, Port );
WriteProfileString( "windows", "device", Device );
StrCopy( Device, "windows" );
SendMessage( HWND_BROADCAST, WM_WININICHANGE, 0, longint( @Device ));
end;

Tip by Peter Below




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.022 c
3-66733           Revo                  2002-02-15 14:01  2002.03.21  
Как конвертировать базу данных из dBase в InterBase?


3-66783           andrey_m              2002-02-22 09:57  2002.03.21  
Работа с MS SQL Server


1-66816           user_                 2002-03-07 08:45  2002.03.21  
Как узнать код комбинации Alt+Enter?


14-67001          Фэ                    2002-02-07 23:00  2002.03.21  
Вспомним первого учителя


3-66759           - Andrew -            2002-02-21 18:45  2002.03.21  
Как записать картинку (Tiff, Bmp) в BLOB-поле?