sergey3695
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: [Files]
Source: ISSkin/ISSkin.dll; DestDir: {tmp}; Flags: dontcopy
Source: ISSkin/ISSkin.cjstyles; DestDir: {tmp}; Flags: dontcopy
[Code]
procedure LoadSkin(lpszPath: string; lpszIniFileName: string );
external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';
procedure SetThemeAppProperties(dwFlags: DWORD);
external 'SetThemeAppProperties@uxtheme.dll stdcall';
function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('ISSkin.cjstyles');
SetThemeAppProperties(0);
LoadSkin(ExpandConstant('{tmp}\ISSkin.cjstyles'), '');
Result := True;
end;
procedure DeinitializeSetup();
begin
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
Sleep(300);
UnloadSkin();
end; |
|
Всего записей: 181 | Зарегистр. 13-11-2010 | Отправлено: 22:11 29-04-2014 | Исправлено: sergey3695, 22:21 29-04-2014 |
|
