Получить стиль оформления Windows

[AlexandrSid]

Необходимо определить какой стиль оформления используется в данный момент, вот что нарыл в нете

procedure TForm1.Button1Click(Sender: TObject);
var
   FileName, ColorScheme, SizeName: WideString;
   hThemeLib: THandle;
   GetCurrentThemeName: function (pszThemeFileName: LPWSTR; cchMaxNameChars: Integer;
     pszColorBuff: LPWSTR; cchMaxColorChars: Integer; pszSizeBuff: LPWSTR;
     cchMaxSizeChars: Integer): HRESULT; stdcall;
 begin
   try
     hThemeLib := LoadLibrary('uxtheme.dll');
     if hThemeLib > 0 then
       GetCurrentThemeName := GetProcAddress(hThemeLib, 'GetCurrentThemeName');
     if Assigned(GetCurrentThemeName) then
     begin
       SetLength(FileName, 255);
       SetLength(ColorScheme, 255);
       SetLength(SizeName, 255);
       OleCheck(GetCurrentThemeName(PWideChar(FileName), 255,
         PWideChar(ColorScheme), 255, PWideChar(SizeName), 255));
       // 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;
   finally
     FreeLibrary(hThemeLib);
   end;
end;

Но на строчке OleCheck(GetCurrentThemeName... выходит ошибка "Элемент не найден", подскажите что не так.

[Stilet]

А что возвращает сама GetCurrentThemeName?

[Ring0Sn]

UxTheme.pas :
GetThemeFilename: function(hTheme: HTHEME; iPartId, iStateId, iPropId: Integer;
pszThemeFileName: LPWSTR; cchMaxBuffChars: Integer): HRESULT; stdcall;

[AlexandrSid]

Функция GetCurrentThemeName возвращает ?????????, т.е. значения переменных она не изменяеет, что не так не могу понять.

[Ring0Sn]

смотри в msdm такие дела, там все параметры расписаны

Возвращает S_OK написано, что у тебя там неизменяеться непонятно...

var
  sBuffer : WideString;
begin
  SetLength(sBuffer, 100);
  if UxTheme.GetCurrentThemeName(PWideChar(s1), 100,
              nil, 0, nil, 0) = S_OK then
                     Result := WideCharToString(PWideChar(s1));
end;

[AlexandrSid]

Я имел виду переменные widestring
Прописал условие, видно что функция GetCurrentThemeName не возвращает S_OK. Посмотрел MSDN вроде все верно. Скажите где я облажался.

procedure TForm1.Button1Click(Sender: TObject);
  var
    GetCurrentThemeName: function (pszThemeFileName: LPWSTR; cchMaxNameChars: Integer;
      pszColorBuff: LPWSTR; cchMaxColorChars: Integer; pszSizeBuff: LPWSTR;
      cchMaxSizeChars: Integer): HRESULT; stdcall;
    FileName, ColorScheme, SizeName: WideString;
    hThemeLib: THandle;
begin
   try
     hThemeLib := LoadLibrary('uxtheme.dll');
     if hThemeLib > 0 then
       GetCurrentThemeName := GetProcAddress(hThemeLib, 'GetCurrentThemeName');
     if Assigned(GetCurrentThemeName) then
     begin
       SetLength(FileName, 255);
       SetLength(ColorScheme, 255);
       SetLength(SizeName, 255);

      if GetCurrentThemeName(PWideChar(FileName), 255,
         PWideChar(ColorScheme), 255, PWideChar(SizeName), 255) = S_OK then begin
      ShowMessage(FileName);
      ShowMessage(ColorScheme);
      ShowMessage(SizeName);
     end;
     end;
   finally
     FreeLibrary(hThemeLib);
   end;
end;

[Ring0Sn]

Сообщение от AlexandrSid

Я имел виду переменные widestring
Прописал условие, видно что функция GetCurrentThemeName не возвращает S_OK. Посмотрел MSDN вроде все верно. Скажите где я облажался.

в коде выше, ктр я привел, у меня например возвращеться S_OK)

[AlexandrSid]

Написал точно такой же код, все равно не возвращает S_OK, подскажите что еще может быть. В нете все тоже самое пишут

[Ring0Sn]

значит проблемы с uxtheme.dll, попробуй винду3 переустановить ))
зы еще возможно что кто то или чтото хукает у тебя её (например какаянибуть стороняя прога или какой нибуть ховновирус)...