[GELÖST] Windows 7 Theme und DPI auslesen?

[OLLI_S]

Liebe Community,

ich bin Lazarus-Anfänger und brauche bitte Eure Hilfe.

Ich möchte unter Windows 7 aus dem System folgendes auslesen:
- welches Design (Theme) ausgewählt ist
- welcher Zoomfaktor (DPI) eingestellt ist

Meine Anwendung soll den Benutzer warnen, wenn er bestimmte System-Einstellungen verwendet.

Danke für Eure Hilfe.

Gruß

OLLI

[Michl]

- welcher Zoomfaktor (DPI) eingestellt ist

Schon "Screen.PixelsPerInch" getestet?!

[Michl]

- welches Design (Theme) ausgewählt ist

Bei mir funktioniert:

Code: Alles auswählen

uses ..., Registry;   
...
procedure TForm1.Button1Click(Sender: TObject);
var
  Theme: String;
  Reg: TRegistry;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Themes', true);
  Theme:=Reg.ReadString('CurrentTheme');
  ShowMessage(Theme);
  Reg.CloseKey;
  Reg.free;
end; 

[OLLI_S]

Hallo Michl,

danke, beide Tipps funktionieren!
Problem gelöst!

Gruß

OLLI