babak_delphi
یک شنبه 25 فروردین 1387, 00:14 صبح
procedure OnButton1Click;
var
program_Handle : THandle;
begin
program_Handle := WinExec('c:\Myprogram.exe',SW_SHOWNORMAL);
while GetModuleUsage(program_Handle) <> 0 do
Application.Processmessages;
// حالا در این قسمت کدی رو که می خواهید بعد از اتمام اون برنامه اجرا بشه قرار بدین
end;
var
program_Handle : THandle;
begin
program_Handle := WinExec('c:\Myprogram.exe',SW_SHOWNORMAL);
while GetModuleUsage(program_Handle) <> 0 do
Application.Processmessages;
// حالا در این قسمت کدی رو که می خواهید بعد از اتمام اون برنامه اجرا بشه قرار بدین
end;