From: Ben Licht <benl@panix.com>
Subject: Re: [delphi] Executing a file from Delphi
Date: Tue, 1 Aug 1995 23:31:28 -0400

The first point I would make is that you went to an awful lot of trouble
to implement the WinExec API call...  cleaner code would look like:

begin
  winexec('C:\Program.exe', SW_SHOWNORMAL);
end;

Delphi automatically treats this as a null-terminated string (like c).  As
to the answer to your question.  WinExec returns a handle to the
task.  Simply do the following:

procedure SomeProc;
var
  ProgramHandle : THandle;
begin
  ProgramHandle := WinExec('C:\Program.exe', SW_SHOWNORMAL);
  while GetModuleusage(ProgramHandle) <> 0 do application.processmessages;
  {The above line will loop until the program terminates}
  {continue on with program below here}
end;

					Hope this helps,

						Ben


