| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Принтер по умолчанию [D3, Win95/98]

Alexei ©   (2001-10-23 12:17:00) 

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

---

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

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;

---

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

Printer.PrinterIndex := -1;

---

Наверх