Sorry war falsch, bei der Prozedur zeigts mir die aktuelle style datei an:
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\Themes\LastTheme',FALSE);
Caption := ReadString('ThemeFile');
end;
FreeAndNil(reg);
end;
Edit: Unnötige Sachen gestrichen