Habib2302
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: [Setup]
AppName=My prog
AppVerName=My prog
DefaultDirName={pf}\My prog
[Files]
Source: ISSkinEx.dll; DestDir: {app}; Flags: ignoreversion
Source: ISSkinEx.cjstyles; DestDir: {app}; Flags: ignoreversion
[Code]
procedure LoadSkin(lpszPath: string; lpszIniFileName: string );
external 'LoadSkin@files:isskinex.dll stdcall delayload setuponly';
procedure UnloadSkin();
external 'UnloadSkin@files:isskinex.dll stdcall delayload setuponly';
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';
function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('ISSkinEx.cjstyles');
LoadSkin(ExpandConstant('{tmp}\ISSkinEx.cjstyles'), '');
Result := True;
end;
procedure DeinitializeSetup();
begin
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
Sleep(110);
UnloadSkin();
end; |
|
Всего записей: 529 | Зарегистр. 09-05-2012 | Отправлено: 13:43 17-03-2017 | Исправлено: Habib2302, 10:20 18-03-2017 |
|
