Delphi vs DPI

[1900s]

Добрый день,
может кто подскажет, как из Delphi Переключить/поменять значение DPI (масштабирование штрифта в Windows) ? (которое нахоиться тут: Свойство Дисплея - Параметры - Дополнительно - Общие - Экран)

Заранее спасибо.

[JamS007]

Для начала нужно узнать где эти данные находятся. Могу предложить что в реестре. А если так, то там уже Вам в помощь процедуры для работы с реестром.

Но не факт что эти данные в реестре.

[1900s]

Нашел ответ:
http://www.technewsgroups.net/group/...opic37146.aspx

[1900s]

uses Registry;

type
TDPIOption=(dpi96=0, dpi120=1, dpi144=2);

procedure WriteDPIInRegistry(ADPIOption: TDPIOption);

//------------------------------------------------------------------------------
procedure WriteDPIParamsInRegistry(const FIXEDFON_FON: string;
const FONTS_FON : string;
const OEMFONT_FON : string;
LogPixels: integer);
var
Reg : TRegistry;
begin
Reg:=TRegistry.Create();
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\SYSTEM\CurrentControl Set\Hardware Profiles\Current\Software\Fonts',tr ue);
Reg.WriteString('FIXEDFON.FON',FIXE DFON_FON);
Reg.WriteString('FONTS.FON',FONTS_F ON);
Reg.WriteString('OEMFONT.FON',OEMFO NT_FON);
Reg.WriteInteger('LogPixels',LogPix els);
finally
Reg.Free();
end;
end;
//------------------------------------------------------------------------------
procedure WriteDPIInRegistry(ADPIOption: TDPIOption);
begin
case ADPIOption of
dpi144:
WriteDPIParamsInRegistry('8514fix.f on','8514sys.fon','8514oem.fon',144 );
dpi120:
WriteDPIParamsInRegistry('8514fix.f on','8514sys.fon','8514oem.fon',120 );
else
WriteDPIParamsInRegistry('vgafix.fo n','vgasys.fon','vga850.fon',96);
end;
end;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор