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




Вниз

Принтер по умолчанию 


Alexei   (2001-10-23 12:17) [0]

Мастера! Как определить установленный принтер по умолчанию?



Anatoly Podgoretsky   (2001-10-23 13:25) [1]

Printer.PrinterIndex := -1;



Ph.D.Kot   (2001-10-23 14:16) [2]

var DefaultPrinter:string;
DefaultPrinter:=GetDefaultPrinter;

function GetDefaultPrinter : string;
var
ResStr : array[0..255] of char;
begin
GetProfileString("Windows","device","",ResStr,255);
Result:=StrPas(ResStr);
end;

И как бонус тебе
procedure SetDefaultPrinter(NewDefPrinter : string);
var
ResStr : array[0..255] of char;
begin
StrPCopy(ResStr,NewdefPrinter);
WriteProfileString ("windows", "device", ResStr);
StrCopy (ResStr, "windows");
SendMessage (HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@ResStr));
end;




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




Наверх





Память: 0.72 MB
Время: 0.028 c
3-99905           victor                2001-12-28 08:59  2002.01.31  
Добавление поля в таблицу Interbase


14-100049         Игорь                 2001-12-02 19:29  2002.01.31  
Вопрос почти про графику


1-100006          jorh                  2002-01-15 09:14  2002.01.31  
Индекс компонента - это круто


3-99891           Наташа                2001-12-27 09:00  2002.01.31  
Как возвратить значение сгенерированного ID на клиента


3-99876           ReNoiZer              2001-12-26 17:22  2002.01.31  
ADO OEMtoANSI и обратно, кто знает параметр в .dns?