[mAnah]

Есть autorun-файл (install.exe). После нажатия Установить открывается setup-файл (setup.exe).
Надо, чтобы после завершения работы setup-файла открылся другой файл.

форма и таймер

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:boolean;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  ShellInfo: TShellExecuteInfo;
  Code: DWord;
  Hnd: THandle;
  i:boolean;
begin
//i:=false;
//Application.ShowMainForm:=False
WinExec ('install.exe', SW_SHOW);
FillChar(ShellInfo, SizeOf(TShellExecuteInfo), 0);
ShellInfo.cbSize:=SizeOf(TShellExecuteInfo);
ShellInfo.fMask:=SEE_MASK_NOCLOSEPROCESS;
ShellInfo.Wnd:=HWND_DESKTOP;
ShellInfo.lpFile:='Disk\Setup.exe';
ShellInfo.lpParameters:=nil;
ShellInfo.lpDirectory:=nil;
ShellInfo.nShow:=SW_SHOWNORMAL;

//ShellExecuteEx(@ShellInfo); //Можно использовать вместо ShellExecute

Hnd:=ShellInfo.hProcess ;
GetExitCodeProcess(Hnd, Code);

if Code=Still_Active
 then i:=true;

if (not (Code=Still_Active))and (i=true) then begin
WinExec('patch\mapatch.exe',SW_SHOW);
Application.Terminate end
{приложение работает};
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//if FindWindow('WinSupClass', 'Обозреватель')=0
if FindWindow('#36760', 'InstallShield Wizard')<>0
then
i:=true;
//if FindWindow('#36760', 'InstallShield Wizard')=0
//then
else
if i=true then
begin
WinExec('patch\mapatch.exe',SW_SHOW);
Application.Terminate
end
end;

end.

[Ozerich]

Код:

unit Main;

interface
uses
ShellApi, Messages, Windows,
SysUtils, Classes, Controls, Forms, StdCtrls, Graphics, ExtCtrls ;
type
   TMain = class(TForm)
   procedure Button1Click(Sender: TObject);
   private

   public

   end;



implementation   

Procedure ExecuteWait(Programme: string);
var
 ShExecInfo: TShellExecuteInfo;
begin
 FillChar(ShExecInfo, SizeOf(ShExecInfo), 0);
 with ShExecInfo do
  begin
   cbSize:=SizeOf(ShExecInfo);
   fMask :=SEE_MASK_NOCLOSEPROCESS;
   lpFile:=PChar(Programme);
   lpVerb:='open';
   nShow :=SW_SHOW;
  end;
 if ShellExecuteEx(@ShExecInfo)
 then WaitForSingleObject(ShExecInfo.hProcess, INFINITE);
end;

end.



procedure TMain.Button1Click(Sender: TObject);
begin
 ExecuteWait('notepad.exe');
//здесь уже прога закрылась и делай что хочешь
end;

ТЕГАМИ ПОЛЬЗУЙСЯ а то накажут