بستن برنامه دیگر از دلفی

با این تابع می توانید برنامه های دیگر را از درون برنامه خودتان ببندید :

function KillApp(const sCapt: PChar) : boolean;
var AppHandle:THandle;
begin
AppHandle:=FindWindow(Nil, sCapt) ;
Result:=PostMessage(AppHandle, WM_QUIT, 0, 0) ;
end;

if KillApp('ليبيل برنامه مقصد') then ShowMessage('بسته شد') ;