urban
Старожил
зачем?оно же будет тупо+может юзер не хочет смотреть видео,так как оно в добавок установку не много замедляетздраствуйте подскажите как зделать видео на полный экран воспроизведение при установки
зачем?оно же будет тупо+может юзер не хочет смотреть видео,так как оно в добавок установку не много замедляетздраствуйте подскажите как зделать видео на полный экран воспроизведение при установки
procedure MyExitMessage();
begin
MyExit := CreateCustomForm();
MyExit.Position := poScreenCenter;
IsDoneExit.ClientWidth := ScaleX(300);
IsDoneExit.ClientHeight := ScaleY(100);
//Тут рисуешь контролы на форме
end;
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm := False;
MyExitMessage();
if MyExit.ShowModal() = mrNo then
Cancel := False;
end;
procedure IsDoneExitMessage();
begin
IsDoneExit := CreateCustomForm();
IsDoneExit.Position := poScreenCenter;
IsDoneExit.ClientWidth := ScaleX(300);
IsDoneExit.ClientHeight := ScaleY(100);
//Тут рисуешь контролы на форме
end;
procedure CancelButtonOnClick(Sender: TObject);
begin
SuspendProc;
IsDoneExitMessage();
if IsDoneExit.ShowModal() = mrYes then ISDoneCancel:=1;
ResumeProc;
end;
procedure CurStepChanged(CurStep: TSetupStep);
var Comps1,Comps2,Comps3, TmpValue:cardinal;
FindHandle1,ColFiles1,CurIndex1,tmp:integer;
ExecError:boolean;
InFilePath,OutFilePath,OutFileName:PAnsiChar;
begin
if CurStep = ssInstall then begin //Если необходимо, можно поменять на ssPostInstall
WizardForm.CancelButton.OnClick := @CancelButtonOnClick;
....
....
end;
К сожалению, не остались.Если еще осталься скрипт, скиньте пожалуйсто. Сдох жесткий на котором все было! Заранее спасибо..
[INI]
Filename: "{app}\zdoom-{username}.ini"; Section: "Global.Autoload"; Key: "Path"; String: "./mods/brutalv018a.pk3"; Tasks: Mods\HQMusic
Filename: "{app}\zdoom-{username}.ini"; Section: "Global.Autoload"; Key: "Path"; String: "./mods/DoomMetalVol3.wad"; Tasks: Mods\HQMusic
Filename: "{app}\zdoom-{username}.ini"; Section: "Global.Autoload"; Key: "Path"; String: "./mods/pk_doom_sfx_20120224.wad"; Tasks: Mods\HQSoundEffects
Filename: "{app}\zdoom-{username}.ini"; Section: "Global.Autoload"; Key: "Path"; String: "./mods/zdoom-dhtp-20121229.pk3"; Tasks: Mods\HDTextures
Filename: "{app}\zdoom-{username}.ini"; Section: "Global.Autoload"; Key: "Path"; String: "./mods/RealGoreForBrutalDoomV1.pk3"; Tasks: Mods\RealGore
Filename: "{app}\zdoom-{username}.ini"; Section: "Global.Autoload"; Key: "Path"; String: "./mods/BDMutator_v16zombiesounds.pk3"; Tasks: Mods\BDMutZombSounds
[Global.Autoload]
Path=./mods/BDMutator_v16zombiesounds.pk3
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
ShowTasksTreeLines=yes
[Tasks]
Name: Mods; Description: "Дополнительные моды:";
Name: Mods\HQMusic; Description: "Установить High Quality Music";
Name: Mods\HQSoundEffects; Description: "Установить High Quality SoundEffects";
Name: Mods\HDTextures; Description: "Установить High Definition Textures";
Name: Mods\RealGore; Description: "Установить Real Gore";
Name: Mods\BDMutZombSounds; Description: "Установить BD Mutator: Zombie Sounds";
[B][[/B]Code]
procedure SaveTasksInfo(FileName, Section: string);
var
s: string;
begin
if IsTaskSelected('Mods\HQMusic') then
s := 'Path=./mods/brutalv018a.pk3' + #13#10 + 'Path=./mods/DoomMetalVol3.wad' + #13#10;
if IsTaskSelected('Mods\HQSoundEffects') then
s := s + 'Path=./mods/pk_doom_sfx_20120224.wad' + #13#10;
if IsTaskSelected('Mods\HDTextures') then
s := s + 'Path=./mods/zdoom-dhtp-20121229.pk3' + #13#10;
if IsTaskSelected('Mods\RealGore') then
s := s + 'Path=./mods/RealGoreForBrutalDoomV1.pk3' + #13#10;
if IsTaskSelected('Mods\BDMutZombSounds') then
s := s + 'Path=./mods/BDMutator_v16zombiesounds.pk3';
s := Section + #13#10 + s;
SaveStringToFile(FileName, s, False);
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
case CurStep of
ssDone: begin
SaveTasksInfo(ExpandConstant('{app}\zdoom-{username}.ini'), '[Global.Autoload]');
end;
end;
end;
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
case CurUninstallStep of
usAppMutexCheck: begin
DeleteFile(ExpandConstant('{app}\zdoom-{username}.ini'));
end;
end;
end;
У меня такого не наблюдается.при установке инсталлятор извлекает только ini файл, остальные файлы игры пропускает и не извлекает.. Можно подправить?
код...Еще в содержимом INI файла есть только секция [Global.Autoload], я знаю, что можно сделать просто перезапись самой секции, а не полностью всего содержимого файла, но увы, я сам это сделать не в силах, можно тоже подправить?
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
ShowTasksTreeLines=yes
[Tasks]
Name: Mods; Description: "Дополнительные моды:";
Name: Mods\HQMusic; Description: "Установить High Quality Music";
Name: Mods\HQSoundEffects; Description: "Установить High Quality SoundEffects";
Name: Mods\HDTextures; Description: "Установить High Definition Textures";
Name: Mods\RealGore; Description: "Установить Real Gore";
Name: Mods\BDMutZombSounds; Description: "Установить BD Mutator: Zombie Sounds";
[B][[/B]Code]
procedure SaveTasksInfo(FName, SName: string);
var
s: string;
begin
if IsTaskSelected('Mods\HQMusic') then
s := 'Path=./mods/brutalv018a.pk3' + #13#10 + 'Path=./mods/DoomMetalVol3.wad' + #13#10;
if IsTaskSelected('Mods\HQSoundEffects') then
s := s + 'Path=./mods/pk_doom_sfx_20120224.wad' + #13#10;
if IsTaskSelected('Mods\HDTextures') then
s := s + 'Path=./mods/zdoom-dhtp-20121229.pk3' + #13#10;
if IsTaskSelected('Mods\RealGore') then
s := s + 'Path=./mods/RealGoreForBrutalDoomV1.pk3' + #13#10;
if IsTaskSelected('Mods\BDMutZombSounds') then
s := s + 'Path=./mods/BDMutator_v16zombiesounds.pk3';
s := #13#10 + '[' + SName + ']' + #13#10 + s;
DeleteIniSection(SName, FName);
SaveStringToFile(FName, s, True);
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
case CurStep of
ssDone: begin
SaveTasksInfo(ExpandConstant('{app}\zdoom-{username}.ini'), 'Global.Autoload');
end;
end;
end;
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
case CurUninstallStep of
usAppMutexCheck: begin
DeleteFile(ExpandConstant('{app}\zdoom-{username}.ini'));
end;
end;
end;
Procedure CurPageChanged(CurPageID: Integer);
Begin
case CurPageID of
wpSelectTasks:
begin
WizardForm.NextButton.Caption := ExpandConstant(SetupMessage(msgButtonInstall));
end;
end;
end;[/SOURCE][/SPOILER]