Запуск программы из своего приложения.

[QunneD]

var
    path : string;
begin
    path := ExtractFilePath(paramstr(0))+'myprog.exe';
    ShellExecute(0, nil, pchar(path), nil, nil, SW_RESTORE);
end;

Так если правильно понял.

[Kotofff]

Сообщение от DomiNick

А можно ли, чтоб при запуске exe-файла программа замирала (ну или останавливалась)..?
Как форма при запуске модального окна...

DelphiWorld :

Здесь представлена функция, которая вызывается таким же образом как и WinExec, однако она ждёт, пока запущенная задача завершится. 
-------------------------------------------------------------------------
function WinExecAndWait(Path: PChar; Visibility: Word): Word;
var
  InstanceID: THandle;
  Msg: TMsg;
begin
  InstanceID := WinExec(Path, Visibility);
  if InstanceID < 32 then { значение меньше чем 32 указывает на ошибку }
    WinExecAndWait := InstanceID
  else
    repeat
      while PeekMessage(Msg, 0, 0, 0, pm_Remove) do
      begin
        if Msg.message = wm_Quit then Halt(Msg.WParam);
        TranslateMessage(Msg);
        DispatchMessage(Msg);
      end;
    until
      GetModuleUsage(InstanceID) = 0;
  WinExecAndWait := 0;
end;

[Leloush]

CreateProcess( nil, 'c:\myprogram.exe', nil, nil, false, NORMAL_PRIORITY_CLASS, nil, nil, SInfo, PInfo );
if ( PInfo.hProcess > 0 ) then WaitForSingleObject( PInfo.hProcess, INFINITE );