procedure tform1.button2click(sender: Tobject);
var startinfo : Tstartupinfo;
processinfo : Tprocessinformation;
fin : Boolean;
begin
fillchar(startinfo,sizeof(startinfo),#0);
startinfo.cb := sizeof(startinfo);
if createprocess(nil, '"notepad.exe"', nil, nil, false,
0, nil, nil, startinfo,processinfo) then
begin
fin:=false;
repeat
case waitforsingleobject(processinfo.hprocess, 200)of
wait_object_0 :fin:=true;
wait_timeout;
end;
application.processmessages;
until fin;
showmessage('إنهاء');
end
else raiselastoserror;
end;
