Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Аватара для Sotonisto

Пользователь


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

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


svensoft, сейчас все объясню.
За черную рамку инстала отвечают скины. Я использовал свой скин (но он переделан из скина Tiger).
Незнаю поможет вам или нет, но вот отсюда можно скачать архив http://rghost.ru/888810 - в нем все, что
я использовал для создания инсталла (кроме музыки).
-----
А вот сам скрипт использования скина (для любого инсталлятора)
читать дальше »
[Files]
Source: "D:\Programs\ISSkin\ISSkin.dll"; DestDir: {app}; Flags: dontcopy
Source: "D:\My Skin\my.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';

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

procedure DeinitializeSetup();
begin
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
UnloadSkin();
end;

-------
Большой шаг вперед, как правило, следствие хорошего пинка под зад.

Это сообщение посчитали полезным следующие участники:

Отправлено: 19:08, 26-01-2010 | #1048