Как получить имя принтера, установленного по умолчанию?

Delphi FAQ >> Система

При помощи данной функции, написанной на языке программирования Delphi, можно получить имя принтера, который используется в системе по умолчанию:


function GetDefaultPrinterName: String;
var
  buf : array[0..255] of char;
begin
  GetProfileString('Windows', 'device', '', buf, 255);
  Result := StrPas(buf);
end;


При активном использовании компьютера очень важно правильно выбрать систему охлаждения для ПК, чтобы температура была в пределах нормы