In Klassisches Design wechseln.

[duff]

hallo hier der code

Delphi-Quellcode:

procedure ThemeOnOFF;
const
  themelib = 'uxtheme.dll';
type
  TIsThemeOn = function(fEnable:Boolean):String; stdcall; //keine Ahnung was der für ein Rückgabewert hat
var
  IsThemeON: TIsThemeOn;
  huxtheme: THandle;
  ThemeON: Boolean;
  tmp:string;
begin
  ThemeON:= false;
  // >= XP
  if (Win32Platform  = VER_PLATFORM_WIN32_NT) and
     (((Win32MajorVersion = 5) and (Win32MinorVersion >= 1)) or
      (Win32MajorVersion > 5)) then
  begin
    huxtheme := LoadLibrary(themelib);
    if huxtheme <> 0 then
    begin
      try
        @IsThemeOn := GetProcAddress(huxtheme, 'EnableTheming');
        if @IsThemeON <> nil then
           tmp:= TIsThemeOn(ThemeON);
      finally
       if huxtheme > 0 then
          FreeLibrary(huxtheme);
      end;
    end;
  end;
end;