[vint56]

Jerichoman,
[CustomMessages]
russian.ArcTitle=Распаковка FreeArc-архивов...

[Jerichoman]

vint56
Спс

[vint56]

это файл картинки progress1.bmp для процесс бара

[svensoft]

vint56, да , уже понял, спасибо, блин, чего то не нахожу там от куда он фоновую картинку берет и растягивает и где для шапки окна там код, ну да ладно, буду дальше смотреть.. процесс бар - это полоса установки насколько я понимаю, да ?..

[vint56]

svensoft,
procedure InitializeWizard1();
begin
ExtractTemporaryFile('1.bmp'); распаковывает во времиный каталог

BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp'));
BmpFile.Top:= ScaleY(0);
BmpFile.Left:= ScaleX(0);
BmpFile.Width:= ScaleX(790); ширина
BmpFile.Height:= ScaleY(533); высота
BmpFile.Stretch:= true;
BmpFile.Parent:= WizardForm.WelcomePage; первая страничка привествия

[svensoft]

vint56, ааа, так 1-2-3-4-5 .bmp это и есть фоновые рисунки, я думал что это маленькие изображения "приветствие", "параметры","пуск","установка","завершение",..... понял, СПАСИБО !!!..... А за шапку окна наверное скины отвечают ? вот это наверное :

Код:

Source: "D:\Programs\ISSkin\ISSkin.dll"; DestDir: {app}; Flags: dontcopy
Source: "D:\Programs\ISSkin\Styles\my.cjstyles"; DestDir: {tmp}; Flags: dontcopy

[vint56]

svensoft, нет это за скин удаления

[Sotonisto]

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;

[Tukash]

Sotonisto
ксати а чем переделать-то уже готовый скиН???

[YURSHAT]

ксати а чем переделать-то уже готовый скиН??? »

Этой прогой - ISSkin Программа для создания и добавления в инсталлятор кастомных скинов. Изменить можно практически любой элемент окна.