[YURSHAT]

народ помогите со скриптом, чтобы перед установкой программы появлялось ЛОГО проги »

Пробуйте

[ImAge]

Помогите обьеденить скрипты 7z и скрипт от YURSHAT,а то я уже 2 день мучаюсь,заранее спасибо


[code]
[Setup]
AppName=My Program
AppVerName=My Program version 1.5
OutputDir=D:\New
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
Compression=none
InternalCompressLevel=none
DiskSpanning=true
DiskSliceSize=1457664000

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

[Files]
Source: is7z.dll; DestDir: {tmp}; Flags: dontcopy
Source: D:\New\Dirt.7z; DestDir: {app}; Flags: external deleteafterinstall

[Icons]
Name: {group}\Удалить; IconFilename: {app}\unins000.exe; Filename: {app}\unins000.exe

[UninstallDelete]
Type: filesandordirs; Name: {app}

Код:

var
ProgressBar : TNewProgressBar;
ExtractFile:TNewStaticText;
Button1:TButton;

procedure Extract7z (hWnd, hpb, hst: THandle; fpath, extractPath, pass:pchar); external 'Extract7z@files:is7z.dll stdcall';
procedure CancelExtract; external 'CancelExtract@files:is7z.dll stdcall';

procedure InitializeWizard();
begin
  ProgressBar := TNewProgressBar.Create(WizardForm);
  ExtractFile:=TNewStaticText.Create(WizardForm);
  with WizardForm.ProgressGauge do
    begin
      ProgressBar.Left := Left;
      ProgressBar.Top := Top + ScaleX(55);
      ProgressBar.Width := Width;
      ProgressBar.Height := Height;
      ProgressBar.Parent := WizardForm.InstallingPage;
      ProgressBar.max := 100;
      ProgressBar.Position := 0;
      ExtractFile.parent:=WizardForm.InstallingPage;
      ExtractFile.autosize:=false;
      ExtractFile.Width := Width;
      ExtractFile.top:=Top + ScaleX(35);
      ExtractFile.caption:='Распаковка архива 7zip';
    end;
end;

procedure Button1OnClick(Sender: TObject);
begin
 CancelExtract;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  If CurStep=ssPostInstall then
   begin
    Button1:=TButton.create(WizardForm);
    Button1.parent:=WizardForm;
    Button1.width:=135;
    Button1.caption:='Отменить распаковку';
    Button1.left:=260;
    Button1.top:=WizardForm.cancelbutton.top;
    Button1.OnClick:=@Button1OnClick;
    try
     Extract7z (wizardform.handle, progressbar.handle, ExtractFile.handle, ExpandConstant('{src}') + '\Dirt.7z', ExpandConstant('{app}'), '');
     Button1.visible:=false;
    except
     MsgBox('Неверный пароль!', mbInformation, MB_OK);
     Button1.visible:=false;
    end;
   end;
end;

[Молодой]

Подскажите как бороться с этой проблемой?

[Молодой]

Подскажите как бороться с этой проблемой? »

Все вопрос отклоняеться, разобрался. . .

[Молодой]

Подскажите как в конце установки, убрать вот такой запрос " Запустить prog.exe" и стоит галочка!
Надеюсь на помощь!

[YURSHAT]

Молодой,

Подскажите как в конце установки, убрать вот такой запрос " Запустить prog.exe" и стоит галочка! »

Удалите из секции [Run] строчку

Код:

[Run]
Filename: "{app}\MyProg.exe"; Description: "{cm:LaunchProgram,My Program}"; Flags: nowait postinstall skipifsilent

[paravozik2009]

Присоеденяюсь к ImAge,!!

[Молодой]

YURSHAT, спасибо за помощь!

[svensoft]

Как можно изменить надпись "Установка" в панели задач ?.. (когда инсталлятор работает).

[svensoft]

Sotonisto,

splash.rar »

YURSHAT,

manialogo.rar »

А музыку в них проиграть возможно, подобно как в AdvSplash.dll ?