Aktueller Windows XP Style abfragen

[toms]

Hallo

Überprüfe, ob GetCurrentThemeName S_OK zurückgibt.

Delphi-Quellcode:

     
//....
if GetCurrentThemeName(PWideChar(FileName), 255,
        PWideChar(ColorScheme), 255, PWideChar(SizeName), 255) = S_OK then
     begin
      // show the the theme path and file name.
      ShowMessage(PWideChar(FileName));
      // show the color scheme name
      ShowMessage(PWideChar(ColorScheme));
      // show the size name
      ShowMessage(PWideChar(SizeName));
    end;
//....