[popt2t]

Не могу понять, по какой причине не срабатывает ISSkin. Помогите разобраться пожалуйста!

Делаю вот так:

читать дальше »

Код:

[Files]
; Добавляем ISSkin DLL, который используется в инсталляторах Inno Setup.
Source: ISSkin.dll; DestDir: {tmp}; Flags: dontcopy

; Добавляем файл визуального стиля, в котором находятся нужные ресурсы для визуализации.
; Вы также можете использовать Microsoft Visual Styles (*.msstyles).
Source: ISSkin.cjstyles; DestDir: {tmp}; Flags: dontcopy

[Секция Code]
// Импортируем LoadSkin API из ISSkin.DLL
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';

// Импортируем UnloadSkin API из ISSkin.DLL
procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

// Импортируем ShowWindow Windows API из User32.DLL
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';


function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('ISSkin.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\ISSkin.cjstyles'), '');
  Result := True;
end;

procedure DeinitializeSetup();
begin
   // Скрываем окно до выгрузки скина, чтобы пользователь не увидел
   // окно инсталлятора без визуальных стилей до его закрытия.
   ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
   Sleep(110);
   UnloadSkin();
end;