Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.31;
Скачать: CL | DM;

Вниз

Принтер по умолчанию   Найти похожие ветки 

 
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;



Страницы: 1 вся ветка

Текущий архив: 2002.01.31;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
3-99911
BFG
2001-12-30 18:58
2002.01.31
Base


4-100127
Anton Hadeev
2001-12-01 13:12
2002.01.31
Добавить пользователя в NT


3-99879
Filat
2001-12-27 10:52
2002.01.31
Как можно сделать следующее: база данных Access -> IIS -> WEB страница


14-100059
Nikolay
2001-12-10 21:43
2002.01.31
2Merlin


4-100109
swr
2001-12-03 15:05
2002.01.31
Как удалить несколько строк в Excel средстами Delphi ?