怎么做到在运行我的程序前终止其他所有程序

Question

先获得进程列表：
function TServerForm.Get_Process_List: string;
var
   sl : TStringList;
begin
   sl := TStringList.Create;
   EnumWindows(@EnumWinProc, integer(sl));
   Result := sl.Text;
   sl.Free;
end;
在结束进程：
procedure TProcListForm.CloseWinButClick(Sender: TObject);
begin
   with (Owner as TClientForm) do begin
      SendMsg(MSG_CLOSE_WIN, ProcList.Items[ProcList.ItemIndex], ClientSocket1.Socket);
   end;
end;procedure TProcListForm.KillButClick(Sender: TObject);
begin
   with (Owner as TClientForm) do begin
      SendMsg(MSG_KILL_WIN, ProcList.Items[ProcList.ItemIndex], ClientSocket1.Socket);
   end;
end;