Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 510
Благодарности: 51

Профиль | Отправить PM | Цитировать


AN9ROS инсталятор


Code
читать дальше »
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';

procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

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

procedure DeinitializeSetup();
begin
UnloadSkin();
end;

Отправлено: 22:10, 21-04-2011 | #1408