[STRAYKER]

Помогите, как сделать в скрипте что бы были дополнительные голочки по поводу установки дополнительного ПО?

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

STRAYKER, может в справке поглядеть?

Код:

[Tasks]
Name: vcredist; Description: MS Visual C++ 2008; GroupDescription: Доп.ПО

[Run]
Tasks: vcredist; Filename: {app}\VCRedist2008\vcredist_x86.exe; WorkingDir: {app}\VCRedist2008; Description: MS Visual C++ 2008; Flags: waituntilterminated

[leshcat]

Привет всем!

Странное дело:

function InitializeSetup(): Boolean;
var
path, RegValue, TmpFileName,TmpFileName2,ExecStdout: String;
ErrorCode, Messages, Messages2: Integer;
begin
Result:= True;


TmpFileName := ExpandConstant('{tmp}') + '\A.txt';
TmpFileName2 := ExpandConstant('{tmp}') + '\B.txt';

Exec('cmd.exe', ..+ TmpFileName +... , ExpandConstant('{tmp}'), SW_HIDE, ewWaitUntilTerminated, ErrorCode);
LoadStringFromFile(TmpFileName, ExecStdout);

Чето там с ним делается.

Потом:

Exec('cmd.exe', ..+ TmpFileName2 +... , ExpandConstant('{tmp}'), SW_HIDE, ewWaitUntilTerminated, ErrorCode);
LoadStringFromFile(TmpFileName2, ExecStdout);

Проблема в следующем:
TmpFileName2 := ExpandConstant('{tmp}') + '\B.txt'; ----> не создается ни под каким предлогом, хотя A файл всегда.

В чем проблема?

[SARATOVSKY]

Здравствуйте, ребят подскажите как создать инсталл с выборочной установкой. К примеру у меня в инстале 11 частей игры и нужно чтобы какие части нужны те и должны отмечаться галочками. Ткните мне туда где это описано!

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

SARATOVSKY,
Tasks (выше пример) и Components по аналогии

[wdmitriy]

как сделать чтобы видео проигрывалось на заднем фоне в окне инсталлятора за надписями, прогрес баром и тд.

[master00778]

помогить как сделать музыку в инсталляторе

[nazbek010]

Люди помогите как соединить эти 2 кода

procedure CurStepChanged(CurStep: TSetupStep);
var
FindFiles: TFindRec;
i: integer;
MyFiles: array of string;
MyDir, BackDir: string;
begin
if CurStep=ssInstall then begin
if MyTask.Checked then begin
MyFiles:=['*.vtx','*.','*.mdl','*.vvd','*.phy']; // указать файлы или маски нужные для бакупа через запятую. при указании маски '*' бакупятся все файлы с вложенными папками
MyDir:=ExpandConstant('{app}'+'\cstrike\models\weapons\'); //папка откуда бакупить
BackDir:=ExpandConstant('{app}'+'\Backup\'); // папка куда бакупить
for i:=0 to GetArrayLength(MyFiles)-1 do
begin
if FindFirst(MyDir+MyFiles[i], FindFiles) then begin
repeat
if not DirExists(BackDir) then begin
CreateDir(BackDir);
end;
MoveFile(MyDir+FindFiles.Name, BackDir+FindFiles.Name);
until not FindNext(FindFiles);
FindClose(FindFiles);
end;
end;
end;
end;
end;

и

procedure CurStepChanged(CurStep: TSetupStep);
begin
case CurStep of
ssInstall: begin
PercentsOldProc:=SetWindowLong(WizardForm.ProgressGauge.Handle,-4,CallBackProc(@PercentsProc,4));
if GetArrayLength(ADisk)>0 then begin
KillTimer(WizardForm.Handle,WFDiskTimerID);
SetArrayLength(ADisk,0);
end;
end;
ssPostInstall: SetWindowLong(WizardForm.ProgressGauge.Handle,-4,PercentsOldProc);
end;
end;

[Dark_Delphin]

master00778, вот пример.
Есть даже регулятор громкости.

[valyok666]

master00778, wdmitriy,
трудно в справку заглянуть или примеры в шапке???