Скрипты Inno Setup. Помощь и советы [часть 3]

[valyok666]

чёрный инсталл,текстуирование кнопок,Logo,растяжка WizardImage и SmallImage всё подъключается как модуль смотрим скрипт может кому нужен:)
test.arc (http://rghost.ru/13837961)

[leshcat]

Помогите пожалуйста,

Проблема. При запуске:
if IsComponentSelected('notepad') then ShellExec('', ExpandConstant('{tmp}\notepad.bat'), '', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode);

где в notepad.bat: notepad

выдает:
'notepad' is not recognized as an internal or external command,
operable program or batch file.

Думаю проблема в win7 x64. Есть способы обхода?

[Rikill]

valyok666, допили его, сделай красивым, а то лажа какая-то. скрипт хорош для новичков так что сделай комментарии, многим будет полезно. если что, помогу

leshcat, возможно ошибка в самом батнике?

[leshcat]

нет, в том-то и дело.. какая может быть ошибка в одном слове?

[Gnom_aka_Lexander]

где в notepad.bat: notepad
выдает:
'notepad' is not recognized as an internal or external command, »
%systemroot%\system32\notepad.exe в батнике пропиши, должно прокатить. Такое бывает, когда криворукие сборщики ОС очищают директорию PACH. приходится в батниках указывать полные пути.

[valyok666]

Rikill,я сам новичок всего 3 недели=)ок доделаю картинки поставлю)

[Rikill]

valyok666, а так же сделай комментарии чтобы новичкам было понятней

[valyok666]

хорошо)

как изменить весь цвет текста на красный???просто не найду в справках

[VinTagE]

valyok666,

procedure InitializeWizard();{Меняем шрифт и цвет текста всего инсталлятора}
begin
WizardForm.Font.Color:= clRed; //Цвет текста всего инсталлятора
WizardForm.Font.Name:= 'GEORGIA'; //Шрифт текста всего инсталлятора
end;

[valyok666]

VinTagE, у меня не меняет токо на первый странице цвет в чём может быть проблема?

[valyok666]

Всё исправил=)

[leshcat]

Лександер,

Пробовал. Я вообще всячески пробовал. с ShellExec не дало результата.
Так что просто запустил через Exec. И все заработало. Вот я и не понял.. в ShellExec надо сами комманды прописывать что-ли.

[valyok666]

как убрать?знаю что обсуждалось такое но не могу найти
скриншот (http://s58.radikal.ru/i160/1107/8d/f1010f3b3e17.jpg)

[murlakatamenka]

как убрать?знаю что обсуждалось такое но не могу найти
скриншот »
в примерной секции [Run] надо удалить
[Run]
//строчку ниже
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, "&", "&&")}}"; Flags: nowait postinstall skipifsilent
или убрать флаг postinstall, отвечающий за создание этого чекбокса (правда в этом случае прога запуститься автоматом, без спроса пользователя)
давненько не заглядывал, много тут написали :)

[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]

добавил картинки.место на диске.установка доп.ПО
тест (http://rghost.ru/13946441)

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

[Rikill]

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