vintage 1
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору [Setup] AppName=My prog AppVerName=My prog DefaultDirName={pf}\My prog [Files] Source: ISSkin.dll; DestDir: {app}; Flags: ignoreversion Source: Tiger.cjstyles; DestDir: {app}; Flags: ignoreversion [Code] procedure LoadSkin(lpszPath: string; lpszIniFileName: string ); external 'LoadSkin@files:isskin.dll stdcall delayload setuponly'; procedure LoadSkinUninst(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 InitializeSetup(): Boolean; begin ExtractTemporaryFile('Tiger.cjstyles'); LoadSkin(ExpandConstant('{tmp}\Tiger.cjstyles'), ''); Result := True; end; function InitializeUninstall(): Boolean; begin FileCopy(ExpandConstant('{app}\isskin.dll'), ExpandConstant('{tmp}\isskin.dll'), True); FileCopy(ExpandConstant('{app}\Tiger.cjstyles'), ExpandConstant('{tmp}\Tiger.cjstyles'), True); LoadSkinUninst(ExpandConstant('{tmp}\Tiger.cjstyles'), ''); Result := True; end; procedure DeinitializeUninstall(); begin UnloadSkinUninst(); end; |