Aktuelles Theme herausfinden

[Manne]

den DateiNamen bekommst du so:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var reg : TRegistry;
begin
reg := TRegistry.Create;
with reg do
 begin
  RootKey := HKEY_CURRENT_USER;
  OpenKey('Software\Microsoft\Windows\CurrentVersion\ThemeManager',FALSE);
  Caption := ReadString('DllName');
 end;
 FreeAndNil(reg);
end;