Thanks Stacy...it seemed to work nicly....
cheers, Jeremy Coulter
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Stacey Verner
> Sent: Friday, 5 May 2000 11:50
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: executing an app...and waiting till its finished.
>
>
> We have developed the following procedure to simplify the use of
> CreateProcess and WaitForSingle object.
> This will execute the program, and wait for it to finish.
>
> function ExecuteApplication(PPath, PFileName, PParameters : String):
> Boolean;
> var LStartUp: TStartupInfo;
> LProcess: TProcessInformation;
> begin
> // ShowMessage(PPath + ' ' + PFileName + ' ' + PParameters);
> Result := True;
> try
> FillChar(LStartUp, SizeOf(LStartUp), 0);
> LStartUp.cb := SizeOf(LStartUp);
> Win32Check
> (
> CreateProcess
> (
> PChar(PFileName)
> , PChar(PFileName + ' ' + PParameters)
> , nil
> , nil
> , True
> , 0, nil
> , PChar(PPath)
> , lStartUp
> , lProcess
> )
> );
> CloseHandle(LProcess.HThread);
> WaitForSingleObject(LProcess.HProcess, INFINITE);
> CloseHandle(LProcess.HProcess);
> except
> Result := false;
> end;
> end;
>
> Stacey
>
> > -----Original Message-----
> > From: Jeremy Coulter [mailto:[EMAIL PROTECTED]]
> > Sent: Friday, 5 May 2000 11:44 a.m.
> > To: Multiple recipients of list delphi
> > Subject: [DUG]: executing an app...and waiting till its finished.
> >
> >
> > HI all.
> >
> > I am wanting to execute an app form another app (in this case
> > an Autorun
> > fiel I have written to go on an Install CD) but not move to
> > the next step
> > UNTIL the the app that was execute has finished?
> >
> > Would I be best to look for the handle of the app ever few
> > seconds, then
> > when its not there move to the next bit etc. ??
> >
> > Cheers, Jeremy Coulter
> >
> > --------------------------------------------------------------
> > -------------
> > New Zealand Delphi Users group - Delphi List -
> > [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
> >
> ------------------------------------------------------------------
> ---------
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
