مطللع شدن از بسته شدن یک برنامه

[reza_Nazem]

دوستان

من در برنامه خود یک فایل exe داسی را اجرا می کنم و چگونه می توانم از بسته شدن ( بعد ار اجرا برنامه exe ) این برنامه مطلع شوم

[حمیدرضاصادقیان]

یعنی میخوای تا زمانی که برنامه بسته نشده کار دیگه ایی انجام نده؟
اگر منظورت اینه در قسمت نکته های دلفی یک کد هست که خیلی جالبه.میتونی از اون استفاده کنی.
اینهم نمونه اش.


function ExecutePrg(const CmdLine: String; const Wait: boolean): boolean;
var
LastError: Integer;
ExitCode: Cardinal ;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
StartupInfo.wShowWindow := SW_SHOWNORMAL;
Result := CreateProcess(nil, // ptr to name of executable module
PChar(CmdLine), // ptr to command line string
nil, // ptr to process security attributes
nil, // ptr to thread security attributes
false, // handle inheritance flag
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, // creation flags
nil, // ptr to new environment block
nil, // ptr to current directory name
StartupInfo, // ptr to STARTUPINFO
ProcessInfo); // ptr to PROCESS_INFORMATION
if Result then
begin
if Wait then
begin
repeat
Application.ProcessMessages;
GetExitCodeProcess(ProcessInfo.hProcess, ExitCode);
until (ExitCode <> STILL_ACTIVE);
end;
end
else
begin
LastError := GetLastError;
MessageDlg(' (Error : ' +IntToStr(LastError) +')', mtError, [mbOK], 0);
end;
end;

[amin a.^2]

اگر میشه بیشتر توضیح بدید شما می خواهید از بسته شدن برنامه مطلع بشید یا فایلexe؟

[reza_Nazem]

از بسته شدن فایل exe داسی

[dkhatibi]

می تونی در لیست Process ها چک کنی آیا اون فایل وجود داره یا نه!