Buketov
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Files]
Source: "ISSkin.dll"; DestDir: "{app}"; Attribs: hidden system;
Source: "TitanB.cjstyles"; DestDir: "{app}"; Attribs: hidden system;
[code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall delayload setuponly';
procedure LoadSkinA(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly';
procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall delayload setuponly';
procedure UnloadSkinUninst();
external 'UnloadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly';
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';
function InitializeSetup1(): Boolean ;
begin
ExtractTemporaryFile('TitanB.cjstyles');
LoadSkin(ExpandConstant('{tmp}\TitanB.cjstyles'), '');
Result := True;
end;
function InitializeUninstall(): Boolean;
begin
FileCopy(ExpandConstant('{app}\isskin.dll'),
ExpandConstant('{tmp}\isskin.dll'), False);
FileCopy(ExpandConstant('{app}\TitanB.cjstyles'),
ExpandConstant('{tmp}\TitanB.cjstyles'), False);
LoadSkinA(ExpandConstant('{tmp}\TitanB.cjstyles'), '');
Result:=True;
end;
procedure DeInitializeSetup1();
begin
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
UnloadSkin();
end;
procedure DeinitializeUninstall();
begin
UnloadSkinUninst();
end;
|
