» Inno Setup (создание инсталяционных пакетов)

подскажите пожалуйста с какой версией инно сетап скрипт механиков стабильно работает? а то через рез тулс ругается на строчки начиная с этой if (GetKeyState(VK_ESCAPE) < 0) and not CancelDuringInstall then

TonyJef

Цитата:

подскажите пожалуйста с какой версией инно сетап скрипт механиков стабильно работает?

Желательно использовать самую последнюю версию: 5.3.10
Для нее используй модификацию: http://restools.hanzify.org/inno/InnoCompiler100707(7zip).zip

я пробовал все равно ругается(

Добавлено:
у меня вот после восстановления системы почему то ругается на этот скрипт,а раньше все было отлично((( пробовал программу переустанавливал,все равно так же

Люди, помогите пожалуйста...как можно вытащить секцию [_Code] c помощью InnoUnpPlus?

Alexander61434
Только что сказали что секцию Code ты в исходном состоянии не увидишь!

Цитата:

Только что

Это где?

Цитата:

секцию Code ты в исходном состоянии не увидишь!

Кто сказал что она мне нужна будет именно в исходном виде? А вообще, я задал вопрос, не нужно разводить оффтоп...

Alexander61434
Тогда скажи что это "InnoUnpPlus"? Я такого не знаю...

StalkMent

Цитата:

Тогда скажи что это "InnoUnpPlus"?

http://www.sendspace.com/file/zp8lgm

Alexander61434
Дак тут всё просто)
скачал, распаковал, посмотрел...,нажал "открыть"(выбрал скомпилированный установщик), выделил что нужно...,нажал "извлечь"(указал куда извлечь), всё)))

CompiledCode.bin мало ли)

StalkMent, мне и интересно, что делать с этим самым
Цитата:

CompiledCode.bin

Alexander61434

Цитата:

StalkMent, мне и интересно, что делать с этим самым
Цитата:CompiledCode.bin

Тебе виднее. Ты же сам хотел вытащить секцию code. Это она есть, только скомпилированная. В оригинале ты ее никак не вытащишь.

Shegorat, теперь понятно, спасибо за объяснение...

ЗДорова люди! Возможно ли создать авторун который мог бы принимать форму изображния ?

dozor73 Вам сюда - Autoplay Media Studio Ответ есть в шапке темы. От себя могу лишь коротко добавить, что для начала нужно создать маску авторана с черным фоном, а затем наложить свою картинку (размер обоих - одинаковый).

Народ скиньте unpacker/packer на HAWX?

freestyle1309

Цитата:

Народ скиньте unpacker/packer на HAWX?

Данный вопрос к этой теме не относится.

freestyle1309
Гугл вам в помощь.

meekrab
гугла нету под рукой, как конкретно файл называется?ссылку монжо в ЛС

Помогите разобраться не пойму,что не так имеется скрипт:[more]

Код: ; Script generated by the &#204;&#224;&#241;&#242;&#229;&#240; Inno Setup Script.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{92FAFA3F-0926-4149-86E1-D29401A1AC5A}
AppName=My Program
AppVersion=1.5
;AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
AppPublisherURL=http://www.example.com/
AppSupportURL=http://www.example.com/
AppUpdatesURL=http://www.example.com/
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

[Files]
Source: C:\Program Files\Inno Setup 5\Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
Source: InnoCallback.dll; DestDir: {app}
Source: waterctrl.dll; DestDir: {app}
Source: WizModernImage-Is.bmp; DestDir: {app}

[Icons]
Name: {group}\My Program; Filename: {app}\MyProg.exe
Name: {commondesktop}\My Program; Filename: {app}\MyProg.exe; Tasks: desktopicon

[Run]
Filename: {app}\MyProg.exe; Description: {cm:LaunchProgram,My Program}; Flags: nowait postinstall skipifsilent

[Code]
type
TTimerProc = procedure(h:longword; msg:longword; idevent:longword; dwTime:longword);
// »&#216;µ&#247;&#186;&#175;&#202;&#253;&#178;&#206;&#202;&#253;&#184;&#241;&#202;&#189;&#201;&#249;&#195;&#247;

function WrapTimerProc(callback:TTimerProc; paramcount:integer):longword;
external 'wrapcallback@files:innocallback.dll stdcall';
// &#202;&#185;&#211;&#195;»&#216;µ&#247;&#186;&#175;&#202;&#253;µ&#196;&#214;&#247;&#210;&#170;&#200;&#235;&#191;&#218;&#215;&#170;»»&#186;&#175;&#202;&#253;.

function SetTimer(hWnd: longword; nIDEvent, uElapse: longword; lpTimerFunc: longword): longword;
external 'SetTimer@user32.dll stdcall';
// WinAPI &#186;&#175;&#202;&#253;, &#202;±&#188;&#228;&#209;-»·&#186;&#175;&#202;&#253;, &#213;&#226;&#184;&#246;&#186;&#175;&#202;&#253;&#208;&#232;&#210;&#170;»&#216;µ&#247;&#186;&#175;&#202;&#253;, ·&#241;&#212;&#242;&#178;»&#196;&#220;&#202;µ&#207;&#214;&#185;¦&#196;&#220;

function enablewater(ParentWnd: HWND; Left, Top: integer; Bmp: HBITMAP;
WaterRadius, WaterHeight: integer): BOOL; external 'enablewater@files:waterctrl.dll stdcall';
//ParentWnd ·&#197;&#214;&#195;&#204;&#216;&#208;§&#180;°&#191;&#218;µ&#196;&#184;&#184;&#180;°&#191;&#218;&#190;&#228;±&#250;&#161;&#163;
//Left &#215;&#243;&#206;»&#214;&#195;
//Top &#201;&#207;&#206;»&#214;&#195;
//Bmp &#206;»&#205;&#188;&#190;&#228;±&#250;&#161;&#163;
//WaterRadius &#203;®&#206;&#198;°&#235;&#190;¶&#163;¬»&#225;&#193;&#238;µ&#189;&#203;®&#206;&#198;&#191;&#180;&#198;&#240;&#192;&#180;·¶&#206;§&#184;&#252;&#185;&#227;&#161;&#163;
//WaterHeight &#203;®&#206;&#198;&#184;&#223;¶&#200;&#163;¬»&#225;&#193;&#238;µ&#189;&#203;®&#206;&#198;&#191;&#180;&#198;&#240;&#192;&#180;&#184;&#252;&#201;&#238;&#161;&#163;
//&#215;&#162;&#210;&#226;&#163;¬&#203;®&#206;&#198;&#178;&#229;&#188;&#254;&#215;&#212;¶&#175;&#184;&#249;&#190;&#221;&#205;&#188;&#198;¬&#192;&#180;&#201;&#232;¶&#168;&#184;&#223;¶&#200;&#186;&#205;&#191;&#237;¶&#200;&#163;¬
//&#193;&#237;&#205;&#226;&#203;®&#206;&#198;µ&#215;&#205;&#188;±&#216;&#208;&#235;&#202;&#199;·-&#215;&#170;µ&#196;&#205;&#188;&#198;¬&#163;¬&#207;&#212;&#202;&#190;µ&#196;&#202;±&#186;&#242;»&#225;·-&#215;&#170;&#205;&#188;&#198;¬&#192;&#180;&#207;&#212;&#202;&#190;&#161;&#163;

function waterblob(x, y: integer; radius, height: integer): BOOL; external 'waterblob@files:waterctrl.dll stdcall';
// &#212;&#218; x,y µ&#227;&#178;&#250;&#201;&#250;°&#235;&#190;¶&#206;&#170;radius, &#184;&#223;¶&#200;&#206;&#170;height µ&#196;&#203;®&#206;&#198;&#161;&#163;

function flattenwater(): BOOL; external 'flattenwater@files:waterctrl.dll stdcall';
// &#198;&#189;·&#252;&#203;&#249;&#211;&#208;&#203;®&#206;&#198;&#161;&#163;

function disablewater(): BOOL; external 'disablewater@files:waterctrl.dll stdcall';
//&#202;&#205;·&#197;&#203;®&#206;&#198;&#178;&#229;&#188;&#254;

function setwaterparent(ParentWnd: HWND): BOOL; external 'setwaterparent@files:waterctrl.dll stdcall';
//v2 &#208;&#194;&#212;&#246;&#163;¬&#201;&#232;&#214;&#195;&#203;®&#206;&#198;&#178;&#229;&#188;&#254;µ&#196;&#184;&#184;&#190;&#228;±&#250;

var
bmp: TBitmap;

procedure mytimerproc(h:longword; msg:longword; idevent:longword; dwTime:longword);
begin
waterblob(random(162), random(289), random(5), random(200)); // &#203;&#230;»&#250;&#178;&#250;&#201;&#250;&#208;&#161;&#203;®&#206;&#198;
end;

procedure InitializeWizard();
var
timercallback: longword;
begin
ExtractTemporaryFile('WizModernImage-Is.bmp');
bmp := TBitmap.create;
bmp.LoadFromFile(ExpandConstant('{tmp}\WizModernImage-Is.bmp'));
enablewater(WizardForm.WelcomePage.Handle, 0, 0, bmp.Handle, 3, 50);

timercallback := WrapTimerProc(@mytimerproc,4); // &#215;&#170;»» Inno Setup µ&#196;&#186;&#175;&#202;&#253;&#200;&#235;&#191;&#218;
settimer(0, 0, 200, timercallback); // &#202;µ&#207;&#214; Timer µ&#196;&#209;-»·&#214;&#216;&#184;&#180;µ&#247;&#211;&#195;&#186;&#175;&#202;&#253;&#208;§&#185;&#251;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpWelcome then
begin
setwaterparent(WizardForm.WelcomePage.Handle);
// waterblob(70, 198, 10, 1000);
end else
if CurPageID = wpFinished then
begin
setwaterparent(WizardForm.FinishedPage.Handle);
// waterblob(70, 198, 10, 1000);
end else
flattenwater();
end;

procedure DeinitializeSetup();
begin
disablewater();
bmp.Free;
end;

Кто подскажет?
Где в Этом скрипте
http://victor-dobrov.narod.ru/InnoSetup_CoronaSkin_and_System_Test.7z
Вот это :
http://img267.imageshack.us/i/progressz.jpg/

а вот в инно унпакере никак нельзя сделать вытаскивания скрипта с секцией код? было бы здорово...

Добавлено:
у меня в скрипте мехов почему то ругается на код фриарка... а ISDone поддерживает распаковку архивов фриарк? мне кто то что то вроде этого говорил...?

TonyJef
Это не возможно!

ChanVS,на счет секции код?


Добавлено:
помогите пожалуйста,соедините плз скрипт механиков с ISDone,буду очень благодарен,а то на скрипт фриарка ругается.

TonyJef
Да!

Добавлено:
TonyJef
Как ругается?
Какие у тебя в скрипте распаковки?

ChanVS,freearc,но я удалил эту распаковку,мне надо поставить ISDone,вот скрипт [more][Setup]
AppName=S.T.A.L.K.E.R. - Зов Припяти
AppVerName=S.T.A.L.K.E.R. - Зов Припяти [v1.6.02]
DefaultDirName={pf}\GSC World Publishing\S.T.A.L.K.E.R. - Зов Припяти
DefaultGroupName=GSC World Publishing\S.T.A.L.K.E.R. - Зов Припяти
WizardImageFile=WizardImage.bmp
WizardSmallImageFile=WizardSmallImage.bmp

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Messages]
DiskSpaceMBLabel=Требуется как минимум 6,02 Гб свободного дискового пространства.

[CustomMessages]
rus.FinishedLabel=Программа {#SetupSetting("AppName")} установлена на Ваш компьютер. Приложение можно запустить с помощью соответствующего значка.%n%nНажмите «Завершить», чтобы выйти из программы установки.
rus.AdditionalTasks=Системные задачи:
rus.UpdateDirect=Обновить DirectX
rus.InstallComrade=Установить GameSpy Comrade
rus.InstallAcroReader=Установить Adobe Acrobat Reader

rus.ArcBreak=Установка прервана!
rus.ArcError=Распаковщик FreeArc вернул код ошибки: %1
rus.ArcBroken=Возможно, архив <%1> повреждён или недостаточно места на диске назначения.
rus.ArcFail=Распаковка не завершена!
rus.ArcTitle=Распаковка FreeArc-архивов...
rus.StatusInfo=файлов: %1%2, %3%% выполнено, осталось ждать %4
rus.ArcInfo=Архив %1 из %2, объём %3 из %5, %4%% обработано
rus.ArcFinish=Распаковано архивов: %1, получено файлов: %2 [%3]
rus.taskbar=%1%%, жди %2
rus.ending=завершение
rus.hour=часов
rus.min=мин
rus.sec=сек

[Components]
Name: rus; Description: Русская локализация; Flags: exclusive
Name: ukr; Description: Украинская локализация; Flags: exclusive

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: directx; Description: {cm:UpdateDirect}; GroupDescription: {cm:AdditionalTasks}
Name: comrade; Description: {cm:InstallComrade}; GroupDescription: {cm:AdditionalTasks}; Flags: unchecked
Name: adobe; Description: {cm:InstallAcroReader}; GroupDescription: {cm:AdditionalTasks}; Flags: unchecked

[Files]
Source: unarc.dll; DestDir: {tmp}; Flags: dontcopy
Source: InnoCallback.dll; DestDir: {tmp}; Flags: dontcopy
Source: DirBitmap.bmp; DestDir: {tmp}; Flags: dontcopy
Source: GroupBitmap.bmp; DestDir: {tmp}; Flags: dontcopy
Source: Logo.bmp; DestDir: {tmp}; Flags: dontcopy
Source: button.bmp; DestDir: {tmp}; Flags: dontcopy

Source: Logo.bmp; DestDir: {app}; Attribs: hidden system
Source: WizardSmallImage.bmp; DestDir: {app}; Attribs: hidden system

Source: {src}\*.arc; DestDir: {app}; Flags: external dontcopy

[Icons]
Name: {group}\My Program; Filename: {app}\MyProg.exe
Name: {group}\{cm:UninstallProgram,My Program}; Filename: {uninstallexe}
Name: {commondesktop}\My Program; Filename: {app}\MyProg.exe; Tasks: desktopicon
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\My Program; Filename: {app}\MyProg.exe; Tasks: quicklaunchicon

[UninstallDelete]
Type: filesandordirs; Name: {app}

[Code]

type
#ifdef UNICODE
#define A "W"
#else
#define A "A"
#endif

TMessage = record hWnd: HWND; msg, wParam: Word; lParam: LongWord; Time: TFileTime; pt: TPoint; end;
TFreeArcCallback = function (what: PAnsiChar; int1, int2: Integer; str: PAnsiChar): Integer;
TArc = record Path, Dest, comp, task: string; allMb, Files: Integer; Size: Extended; end;
TBarInfo = record stage, name: string; size, allsize: Extended; count, perc, pos, mb, time: Integer; end;
TCWPSTRUCT = record lParam: LongWord; wParam: Word; Msg: LongWord; hwnd: HWnd; end;
TCWPSTRUCTProc = procedure(Code: Integer; wParam: Word; lParam: TCWPSTRUCT);
TTimerProc = procedure(HandleW, Msg, idEvent, TimeSys: LongWord);

const
Color = clBlack;
ButtonWidth = 80;
ButtonHeight = 23;

bidBack = 0;
bidNext = 1;
bidCancel = 2;
bidDirBrowse = 3;
bidGroupBrowse = 4;

PM_REMOVE = 1;
CP_ACP = 0; CP_UTF8 = 65001;
oneMB=1024*1024;
Period = 250;
VK_ESCAPE = 27;
HC_ACTION = 0;
WH_CALLWNDPROC = 4;
WM_PAINT = $F;
CancelDuringInstall = {#False;(SetupSetting("AllowCancelDuringInstall"))};

var
LogoImage: TBitmapImage;

ButtonPanel: array [0..4] of TPanel;
ButtonImage: array [0..4] of TBitmapImage;
ButtonLabel: array [0..4] of TLabel;

StatusLabel, FileNameLabel, ExtractFile, StatusInfo, FinishedLabel: TLabel;
ProgressBar: TNewProgressBar;
CancelCode, n, ArcInd, UnPackError, StartInstall, LastTimerEvent, lastMb, baseMb: Integer;
FreeMB, TotalMB: Cardinal;
WndHookID, TimerID: LongWord;
Arcs, Records: array of TArc;
msgError: string;
Status: TBarInfo;
FreezeTimer: Boolean;
totalUncompressedSize, origsize: Integer;
Texture2, Texture: TBitmapImage;

//************************************************ [Начало - Вн. вид инсталла] ***************************************************//

procedure RepaintInstall();
begin
ExtractTemporaryFile('button.bmp')
ExtractTemporaryFile('DirBitmap.bmp');
ExtractTemporaryFile('GroupBitmap.bmp');
ExtractTemporaryFile('Logo.bmp');

WizardForm.WizardBitmapImage.Width := ScaleX(530);
WizardForm.WizardBitmapImage2.Width := ScaleX(224);
WizardForm.PageNameLabel.Width:=ScaleX(300);
WizardForm.PageDescriptionLabel.Hide;

WizardForm.Font.Color:=clWhite;

WizardForm.Color:=Color;
WizardForm.WelcomePage.Color:=Color;
WizardForm.InnerPage.Color:=Color;
WizardForm.FinishedPage.Color:=Color;
WizardForm.SelectDirPage.Color:=Color;
WizardForm.SelectComponentsPage.Color:=Color;
WizardForm.SelectProgramGroupPage.Color:=Color;
WizardForm.SelectTasksPage.Color:=Color;
WizardForm.ReadyPage.Color:=Color;
WizardForm.InstallingPage.Color:=Color;

WizardForm.PageNameLabel.Color:=Color;
WizardForm.PageNameLabel.Font.Color:=ClWhite;
WizardForm.MainPanel.Color:=Color;

WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;

WizardForm.SelectDirLabel.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.DiskSpaceLabel.Color:=Color;

WizardForm.ComponentsList.Color:=Color;
WizardForm.SelectComponentsLabel.Color:=Color;
WizardForm.TypesCombo.Hide;
WizardForm.ComponentsDiskSpaceLabel.Hide;

WizardForm.GroupEdit.Color:=Color;
WizardForm.SelectStartMenuFolderLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;

WizardForm.SelectTasksLabel.Color:=Color;
WizardForm.TasksList.Color:=Color;

WizardForm.ReadyMemo.Color:=Color;
WizardForm.ReadyMemo.ScrollBars:= ssNone
WizardForm.ReadyLabel.Color:=Color;

WizardForm.StatusLabel.Color:=Color;
WizardForm.FilenameLabel.Color:=Color;

WizardForm.FinishedHeadingLabel.Hide;
WizardForm.FinishedLabel.Hide;

WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\DirBitmap.bmp'));
WizardForm.SelectDirBitmapImage.AutoSize:=true;

WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\GroupBitmap.bmp'));
WizardForm.SelectGroupBitmapImage.AutoSize:=true;

LogoImage := TBitmapImage.Create(WizardForm);
with LogoImage do
begin
SetBounds(ScaleX(10), ScaleY(320), ScaleX(175), ScaleY(40));
Bitmap.LoadFromFile(ExpandConstant('{tmp}\Logo.bmp'));
Parent := WizardForm;
end;

with WizardForm.WizardSmallBitmapImage do
begin
SetBounds(ScaleX(335), ScaleY(2), ScaleX(160), ScaleY(50));
end;

with WizardForm.ComponentsList do
begin
Top:=ScaleY(55);
Height:=ScaleY(150);
end;

with TLabel.Create(WizardForm) do begin
AutoSize:=WizardForm.WelcomeLabel1.AutoSize;
Left:=WizardForm.WelcomeLabel1.Left;
Top:=WizardForm.WelcomeLabel1.Top
Width:=WizardForm.WelcomeLabel1.Width
Height:=WizardForm.WelcomeLabel1.Height
WordWrap:=WizardForm.WelcomeLabel1.WordWrap;
Font.Name:=WizardForm.WelcomeLabel1.Font.Name;
Font.Size:=WizardForm.WelcomeLabel1.Font.Size;
Font.Color:=clWhite;
Font.Style:=WizardForm.WelcomeLabel1.Font.Style;
Caption:=WizardForm.WelcomeLabel1.Caption;
Parent:=WizardForm.WelcomeLabel1.Parent
Transparent:=True
end;

with TLabel.Create(WizardForm) do begin
AutoSize:=WizardForm.WelcomeLabel2.AutoSize;
Left:=WizardForm.WelcomeLabel2.Left;
Top:=WizardForm.WelcomeLabel2.Top
Width:=WizardForm.WelcomeLabel2.Width
Height:=WizardForm.WelcomeLabel2.Height
WordWrap:=WizardForm.WelcomeLabel2.WordWrap;
Font.Name:=WizardForm.WelcomeLabel2.Font.Name;
Font.Size:=WizardForm.WelcomeLabel2.Font.Size;
Font.Color:=clWhite;
Font.Style:=WizardForm.WelcomeLabel2.Font.Style;
Caption:=WizardForm.WelcomeLabel2.Caption;
Parent:=WizardForm.WelcomeLabel2.Parent
Transparent:=True
end;

with TLabel.Create(WizardForm) do begin
AutoSize:=WizardForm.FinishedHeadingLabel.AutoSize;
Left:=WizardForm.FinishedHeadingLabel.Left;
Top:=WizardForm.FinishedHeadingLabel.Top
Width:=WizardForm.FinishedHeadingLabel.Width
Height:=WizardForm.FinishedHeadingLabel.Height
WordWrap:=WizardForm.FinishedHeadingLabel.WordWrap;
Font.Name:=WizardForm.FinishedHeadingLabel.Font.Name;
Font.Size:=WizardForm.FinishedHeadingLabel.Font.Size;
Font.Color:=clWhite;
Font.Style:=WizardForm.FinishedHeadingLabel.Font.Style;
Caption:=WizardForm.FinishedHeadingLabel.Caption;
Parent:=WizardForm.FinishedHeadingLabel.Parent
Transparent:=True
end;

FinishedLabel:= TLabel.Create(WizardForm)
with FinishedLabel do begin
AutoSize:=WizardForm.FinishedLabel.AutoSize;
Left:=WizardForm.FinishedLabel.Left;
Top:=WizardForm.FinishedLabel.Top
Width:=WizardForm.FinishedLabel.Width;
Height:=WizardForm.FinishedLabel.Height+50;
WordWrap:=WizardForm.FinishedLabel.WordWrap;
Font.Name:=WizardForm.FinishedLabel.Font.Name;
Font.Size:=WizardForm.FinishedLabel.Font.Size;
Font.Color:=clWhite;
Font.Style:=WizardForm.FinishedLabel.Font.Style;
Caption:=ExpandConstant('{cm:FinishedLabel}');
Parent:=WizardForm.FinishedLabel.Parent
Transparent:=True
end;
end;

procedure InitializeUninstallProgressForm;
begin
FileCopy(ExpandConstant('{app}\WizardSmallImage.bmp'), ExpandConstant('{tmp}\WizardSmallImage.bmp'), False);
FileCopy(ExpandConstant('{app}\Logo.bmp'), ExpandConstant('{tmp}\Logo.bmp'), False);

UninstallProgressForm.Color:=Color;
UninstallProgressForm.InnerPage.Color:=Color;
UninstallProgressForm.MainPanel.Color:=Color;
UninstallProgressForm.PageNameLabel.Color:=Color;
UninstallProgressForm.PageDescriptionLabel.Hide;
UninstallProgressForm.PageNameLabel.Font.Color:=clWhite;
UninstallProgressForm.PageNameLabel.Width:=ScaleX(300);
UninstallProgressForm.StatusLabel.Color:=Color;
UninstallProgressForm.StatusLabel.Font.Color:=clWhite;

LogoImage := TBitmapImage.Create(UninstallProgressForm);
with LogoImage do
begin
SetBounds(ScaleX(10), ScaleY(320), ScaleX(175), ScaleY(40));
Bitmap.LoadFromFile(ExpandConstant('{tmp}\Logo.bmp'));
Parent := UninstallProgressForm;
end;

with UninstallProgressForm.WizardSmallBitmapImage do
begin
Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardSmallImage.bmp'));
SetBounds(ScaleX(335), ScaleY(2), ScaleX(160), ScaleY(50));
end;
end;

//************************************************ [Конец - Вн. вид инсталла] ***************************************************//

//************************************************ [Начало - Кнопки] ***************************************************//

procedure ButtonLabelClick(Sender: TObject);
var
Button: TButton;
begin
ButtonImage[TLabel(Sender).Tag].Left:=0
case TLabel(Sender).Tag of
bidBack: Button:=WizardForm.BackButton
bidNext: Button:=WizardForm.NextButton
bidCancel: Button:=WizardForm.CancelButton
bidDirBrowse: Button:=WizardForm.DirBrowseButton
bidGroupBrowse: Button:=WizardForm.GroupBrowseButton
else
Exit
end
Button.OnClick(Button)
end;

procedure ButtonLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if ButtonLabel[TLabel(Sender).Tag].Enabled then
ButtonImage[TLabel(Sender).Tag].Left:=-ButtonWidth
end;

procedure ButtonLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ButtonImage[TLabel(Sender).Tag].Left:=0
end;

procedure LoadButtonImage(AButton: TButton; AButtonIndex: integer);
var
Image: TBitmapImage;
Panel: TPanel;
Labl: TLabel;

begin
Panel:=TPanel.Create(WizardForm)
Panel.Left:=AButton.Left
Panel.Top:=AButton.Top
Panel.Width:=AButton.Width
Panel.Height:=AButton.Height
Panel.Tag:=AButtonIndex
Panel.Parent:=AButton.Parent
ButtonPanel[AButtonIndex]:=Panel

Image:=TBitmapImage.Create(WizardForm)
Image.Width:=160
Image.Height:=23
Image.Enabled:=False
Image.Bitmap.LoadFromFile(ExpandConstant('{tmp}\button.bmp'))
Image.Parent:=Panel
ButtonImage[AButtonIndex]:=Image

with TLabel.Create(WizardForm) do begin
Tag:=AButtonIndex
Parent:=Panel
Width:=Panel.Width
Height:=Panel.Height
Transparent:=True
OnClick:=@ButtonLabelClick
OnDblClick:=@ButtonLabelClick
OnMouseDown:=@ButtonLabelMouseDown
OnMouseUp:=@ButtonLabelMouseUp
end

Labl:=TLabel.Create(WizardForm)
Labl.Left:=23
Labl.Top:=5
Labl.Autosize:=True
Labl.Alignment:=taCenter
Labl.Tag:=AButtonIndex
Labl.Transparent:=True
Labl.Font.Color:=clWhite
Labl.Caption:=AButton.Caption
Labl.OnClick:=@ButtonLabelClick
Labl.OnDblClick:=@ButtonLabelClick
Labl.OnMouseDown:=@ButtonLabelMouseDown
Labl.OnMouseUp:=@ButtonLabelMouseUp
Labl.Parent:=Panel
ButtonLabel[AButtonIndex]:=Labl
end;

procedure UpdateButton(AButton: TButton;AButtonIndex: integer);
begin
ButtonLabel[AButtonIndex].Caption:=AButton.Caption
ButtonPanel[AButtonIndex].Visible:=AButton.Visible
ButtonLabel[AButtonIndex].Enabled:=Abutton.Enabled
end;

procedure LicenceAcceptedRadioOnClick(Sender: TObject);
begin
ButtonLabel[bidNext].Enabled:=True
end;

procedure LicenceNotAcceptedRadioOnClick(Sender: TObject);
begin
ButtonLabel[bidNext].Enabled:=False
end;

procedure UpdateButtons(CurPageID: Integer);
begin
UpdateButton(WizardForm.BackButton,bidBack)
UpdateButton(WizardForm.NextButton,bidNext)
UpdateButton(WizardForm.CancelButton,bidCancel)
ButtonLabel[bidBack].Left := (ButtonPanel[bidBack].Width / 2 - ButtonLabel[bidBack].Width / 2);
ButtonLabel[bidNext].Left := (ButtonPanel[bidNext].Width / 2 - ButtonLabel[bidNext].Width / 2);
ButtonLabel[bidCancel].Left := (ButtonPanel[bidCancel].Width / 2 - ButtonLabel[bidCancel].Width / 2);
ButtonLabel[bidDirBrowse].Left := (ButtonPanel[bidDirBrowse].Width / 2 - ButtonLabel[bidDirBrowse].Width / 2);
ButtonLabel[bidGroupBrowse].Left := (ButtonPanel[bidGroupBrowse].Width / 2 - ButtonLabel[bidGroupBrowse].Width / 2);
end;

procedure ButtonTextures();
begin
WizardForm.BackButton.Width:=ButtonWidth
WizardForm.BackButton.Height:=ButtonHeight

WizardForm.NextButton.Width:=ButtonWidth
WizardForm.NextButton.Height:=ButtonHeight

WizardForm.CancelButton.Width:=ButtonWidth
WizardForm.CancelButton.Height:=ButtonHeight

WizardForm.DirBrowseButton.Left:=337
WizardForm.DirBrowseButton.Width:=ButtonWidth
WizardForm.DirBrowseButton.Height:=ButtonHeight

WizardForm.GroupBrowseButton.Left:=337
WizardForm.GroupBrowseButton.Width:=ButtonWidth
WizardForm.GroupBrowseButton.Height:=ButtonHeight

WizardForm.LicenseAcceptedRadio.OnClick:=@LicenceAcceptedRadioOnClick

WizardForm.LicenseNotAcceptedRadio.OnClick:=@LicenceNotAcceptedRadioOnClick

LoadButtonImage(WizardForm.BackButton,bidBack)
LoadButtonImage(WizardForm.NextButton,bidNext)
LoadButtonImage(WizardForm.CancelButton,bidCancel)
LoadButtonImage(WizardForm.DirBrowseButton,bidDirBrowse)
LoadButtonImage(WizardForm.GroupBrowseButton,bidGroupBrowse)
end;

//************************************************ [Конец - Кнопки] ***************************************************//

//************************************************ [Начало - FreeArc] ***************************************************//


//************************************************ [Конец - FreeArc] ***************************************************//

procedure InitializeWizard();
begin
RepaintInstall();
ButtonTextures();
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
UpdateButtons(CurPageID);
end;[/more]


Добавлено:
пожалуйста сделайте кто нибудь скрипт механиков с ISDone,это будет прогсто супер , буду благодарен очень очень.

появилась проблема с инсталом...
когда для проверки(без игры) делаю компиляцию, инстал открывается.
а когда вместе с игрой он не открывается вообще =(
что делать?

Скрипт: http://rghost.ru/2302296

TonyJef
http://forum.ru-board.com/topic.cgi?forum=5&topic=33457&start=3840#4
Попробуй переделать.
Я ISdone не очень знаю!

спасибо!!!!!!!!!!!!!!

Добавлено:
troyan90,распаковка arc есть,да?

Цитата:

распаковка arc есть,да?

isdone умеет это