如何在程序关闭其他程序

Question

如何在程序中判断其他应用程序是否开启，如果开启如何关闭？？？？
========================================
PROCEDURE Tform1.Button1Click(Sender:TObject);
var
  h1: THandle;
begin
  h1 := FindWindow('APP1', nil);
  if (h1<>0) then
    ////////?????????///////////
    ////////这里怎么写？？//////
    //DestroyWindow(h1);
    //CloseWindow(h1);                   //这句代码只能最小话计算器程序
end;