[valyok666]

не надо чтобы чёрного кватрада не было а текст ложился на картинку

[Rikill]

valyok666, подожди я попробую пример сделать
винт меня опередил

[valyok666]

Neutron, попробую потом отпишусь

[vint56]

valyok666, Вот пример

читать дальше »

#define AppRunningFile "{app}\MyProg.exe"
;Путь к файлу, который запускается после установки

[Setup]
AppName=MyProg
AppVerName=MyProg
AppVersion=1.0
DefaultDirName={pf}\MyProg

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


[CustomMessages]
RUS.RunProgram=Запустить {#SetupSetting("AppName")}

[Files]
Source: C:\Program Files\Inno Setup 5\Examples\MyProg.exe; DestDir: {app}

[code]
var
RunProgram: TCheckBox; //Чекбоксы
RunProgramLabel: TLabel; //Надписи на странице выбора места установки

PageID,ResultCode: Integer; //Запуск программы после установки

function Run: Boolean;
begin
Result:=RunProgram.Checked;
end;

procedure RunProgramOnClick(Sender: TObject);
begin
if RunProgram.Checked = False then
RunProgram.Checked:= True else
RunProgram.Checked:= False;
end;

procedure InitializeWizard();
begin
RunProgram:= TCheckBox.Create(WizardForm);
with RunProgram do
begin
Parent:= WizardForm.FinishedPage;
Left:= ScaleX(176);
Top:= ScaleY(200);
Width:= ScaleX(14);
Height:= ScaleY(14);
TabOrder:= 4;
Checked:= True;
end;

RunProgramLabel:= TLabel.Create(WizardForm);
with RunProgramLabel do
begin
Caption:=ExpandConstant('{cm:RunProgram}');
Left:= ScaleX(196);
Top:= ScaleY(200);
Width:= ScaleX(150);
Height:= ScaleY(13);
Transparent := True;
Parent:= WizardForm.FinishedPage;
OnClick:= @RunProgramOnClick;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
PageID:=CurPageID;
if CurPageID=wpFinished then
end;

procedure DeinitializeSetup();
begin
if (PageID=wpFinished) and (RunProgram.Checked)
then Exec(ExpandConstant('{#AppRunningFile}'), '', '', SW_SHOWNORMAL, ewNoWait, ResultCode); //Запускает файл если на финишной странице выбран чекбокс
end;

[valyok666]

добавил картинки.место на диске.установка доп.ПО
тест

буду рад если что-нибудь исправителюди учатся на ошибках)

[Rikill]

valyok666, ошибка №1 запаковывай в зип или рар архив, неудобно распаковывать фриарком и не у всех он есть
http://i24.fastpic.ru/big/2011/0709/...566680893f.png
тут тоже указаны ошибки, ответ на одну из них уж точно обсуждался

[valyok666]

Rikill, ты новый скачал?

сорри почему то старый архив щас новый залью)

вот
качай

[murlakatamenka]

valyok666, так надо было его сдвинуть ... так бы и написал

как убрать?знаю что обсуждалось такое но не могу найти скриншот »

можно просто RunList сдвигать

Код:

[_Code]
procedure InitializeWizard();
begin
  with WizardForm.RunList do
  begin
    Left := ScaleX(256);
    Top := ScaleY(172);
  end;
end;

[Rikill]

немного доработал