كيف أجل البرنامج يغلق بع إتهاء مهمته

[sad007]

السلام عليكم و رحمة الله و بركاته

أنا مبتدأ في عالم الدلفي :d و قد قمت بإنشاء برنامج صغير يقوم تشغيل برنامج معيّن في حاسوبي بمجرد الضغط عليه لكن لا أعرف كيف أجعل البرنامج يقفل بعد الإنتهاء من مهمته أوتوماتيكيا

[mobile]

وعليكم السلام ورحمة الله وبركاته ومغفرته

هل تقصد هذا ؟

PHP كود :

Execute a program and wait until it has finished. The following example uses the ShellExecuteEx API function.

 // Execute the Windows Calculator and pop up
 // a message when the Calc is terminated.
 uses ShellApi;
 ...
 var
    SEInfo: TShellExecuteInfo;
    ExitCode: DWORD;
    ExecuteFile, ParamString, StartInString: string;
 begin
    ExecuteFile:='c:\Windows\Calc.exe';
 
    FillChar(SEInfo, SizeOf(SEInfo), 0) ;
    SEInfo.cbSize := SizeOf(TShellExecuteInfo) ;
    with SEInfo do begin
      fMask := SEE_MASK_NOCLOSEPROCESS;
      Wnd := Application.Handle;
      lpFile := PChar(ExecuteFile) ;
 {
 ParamString can contain the
 application parameters.
 }
 // lpParameters := PChar(ParamString) ;
 {
 StartInString specifies the
 name of the working directory.
 If ommited, the current directory is used.
 }
 // lpDirectory := PChar(StartInString) ;
      nShow := SW_SHOWNORMAL;
    end;
    if ShellExecuteEx(@SEInfo) then begin
      repeat
        Application.ProcessMessages;
        GetExitCodeProcess(SEInfo.hProcess, ExitCode) ;
      until (ExitCode <> STILL_ACTIVE) or
      Application.Terminated;
      ShowMessage('Calculator terminated') ;
    end
    else ShowMessage('Error starting Calc!') ;
 end; 


[sad007]

أولا مشكور أخي على الرد السريع لكن ليس هذا الكود و برنامجي هو صغير فقط يفتح البرنامج الآخر

كود :

shellexecute(handle,'open','d:\dot.exe',nil,nil,sw_hide);

كيف أضيف له كود بغلق بعد الإنتهاء من فتح البرنامج الآخر exit

[mobile]

تفضل اخي

كود :

procedure TForm1.btn1Click(Sender: TObject); begin ShellExecute(Handle, 'open', 'e:\app.exe', nil, nil, SW_SHOWNORMAL) ; Application.Terminate; end;

[sad007]

وصل أخي و شكرا