[Cinot]

Добрый день! У меня возникла небольшая проблема в понимании языка структуры Source в Inno Setup.

Дело в том, что первое окно установки у меня создано посредством скрипта (code), где имеется edit_box. Мне нужно продумать 2 варианта: если в edit_box введено правильное выражение, то в Source необходимо копировать файлы для полной версии программы; если же edit_box пустое или неверное, то устанавливать файлы демо-версии. Вопрос в том, как реализовать этот if и какова структура Source? Например,
Source: "{code:version}/*.dll"; DestDir: "{app}\Programs"

т.е. тут возможны либо "Full/*.dll", либо "Demo/*.dll" (эти папки уже созданы, и в них лежат соответствующие файлы).

[BlackSelf]

Cinot, ну, например, так (добавьте к своему скрипту):

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

Код:

[Files]
Source: "D:\file1.txt"; DestDir: "{app}\Programs"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: not Full;
Source: "D:\file2.txt"; DestDir: "{app}\Programs"; Flags: ignoreversion recursesubdirs createallsubdirs; Check: Full;

[Code]
var
  FullCheck: TCheckBox;

function Full: Boolean;
begin
  Result:=FullCheck.Checked;
end;

procedure InitializeWizard;
begin
  FullCheck := TCheckBox.Create(WizardForm);
  with FullCheck do
  begin
  Parent := WizardForm;
  Left := 0;
  Top := 0;
  Width := 0;
  Height := 0;
  TabOrder := 0;
  Checked := False;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  s: string;
begin
  if CurStep = ssinstall then
  begin
    s:=Edit.Text;
    If s='12345' then FullCheck.Checked:=True
    else FullCheck.Checked:=False;
  end;
end;

[R.i.m.s.k.y.]

Вопрос в том, как реализовать этот if и какова структура Source »

Source: "{code:version}/*.dll"; DestDir: "{app}\Programs"; Check: MyCheck

[_Code]
Function MyCheck():boolean;
Begin
//проверка что-то где-то введено
End;

Примерно так.

Если MyCheck возвращает True, то строчка с Check: MyCheck выполняется, если MyCheck возвращает False, то строчка с Check: MyCheck пропускается

[Cinot]

Извините, а более полного примера у Вас не найдётся? У меня что-то ничего не получается сделать на основе этого

[R.i.m.s.k.y.]

более полного примера у Вас не найдётся »

Надейтся, вот из справки:

Код:

[Files]
Source: "MYPROG.EXE"; DestDir: "{app}"; Check: MyProgCheck
Source: "A\MYFILE.TXT"; DestDir: "{app}"; Check: MyDirCheck(ExpandConstant('{app}\A'))
Source: "B\MYFILE.TXT"; DestDir: "{app}"; Check: DirExists(ExpandConstant('{app}\B'))

[_Code]
var
  MyProgChecked: Boolean;
  MyProgCheckResult: Boolean;

function MyProgCheck(): Boolean;
begin
  if not MyProgChecked then begin
    MyProgCheckResult := MsgBox('Do you want to install MyProg.exe to ' + ExtractFilePath(CurrentFileName) + '?', mbConfirmation, MB_YESNO) = idYes;
    MyProgChecked := True;
  end;
  Result := MyProgCheckResult;
end;

function MyDirCheck(DirName: String): Boolean;
begin
  Result := DirExists(DirName);
end;

Вот из моего инсталлера

Код:

[Components]
Name: mpc; Description: Настройки Media Player Classic Home Cinema; Check: mpcexists
[_Code]
function mpcexists(): Boolean;
Var MPCPath: string;
begin
  RegQueryStringValue(HKLM, 'SOFTWARE\Gabest\Media Player Classic','ExePath', MPCPath);
  if FileExists (MPCPath) then Result := True else Result := False;
end;

Функцию Check можно лепить во все секции кроме Code и Setup

[Cinot]

Спасибо, очень помогло!

[R.i.m.s.k.y.]

Спасибо, очень помогло »

Пожалуйста, я конечно, не Serega, но чем смогу - помогу.
Офф: а есть подобный форум по Visual Basic? Чтобы с примерами и справкой с чего начать

[SeDmY]

Доброго времени суток! Хотелось бы спросить про доп. программное обеспечение игры:

После установки игры DirectX и всякая мелкая дребедень дополнительная копируется в папку с игрой и устанавливается, после чего так и остается там, а можно сделать так, чтобы после установки этих программ их exe-шники автоматически удалялись из папки!?

[nik1967]

SeDmY,
А зачем копировать DirectX и всякую мелкую дребедень в папку с игрой?
[Run]
Filename: "{src}\DirectX\DXSETUP.exe"; WorkingDir: "{src}\DirectX"; Parameters: "/silent"; Flags: waituntilterminated
То есть программа работает из директории установки: {src}, и не копируется в папку назначения {app}.

[SeDmY]

SeDmY, А зачем копировать DirectX и всякую мелкую дребедень в папку с игрой? [Run] Filename: "{src}\DirectX\DXSETUP.exe"; WorkingDir: "{src}\DirectX"; Parameters: "/silent"; Flags: waituntilterminated То есть программа работает из директории установки: {src}, и не копируется в папку назначения {app}. »

Спасибо за ответ, нужно было втиснуть для стабильной работы, так после установки оставались в папке с игрой! Я сделал немного подругому, в конце добавил :

Source: E:\Games\Support\DirectX\dxwebsetup.exe; DestDir: {app}; Flags: deleteafterinstall

Блин, скрипт выдает мне следующее:



Что не так!?