1:

PostMessage(FindWindow(nil,pchar('Delphi 5'),WM_CLOSE, 0, 0);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

interface 
uses 
{ . . . , } TLHelp32 { important ! } 

// Global Variables , Globale Variablen 

VAR aSnapshotHandle:THandle;
  aProcessEntry32:TProcessEntry32;
  
procedure TFormMain.BtnRefreshClick( Sender:TObject);
var i:integer;
  bLoop:BOOL;
  NewItem:TListItem;
begin 
  ListView.Items.Clear;
  aSnapshotHandle:=CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS,0);
  aProcessEntry32.dwSize:=Sizeof( aProcessEntry32);
  bLoop:=Process32First( aSnapshotHandle,aProcessEntry32);
  while integer( bLoop)<>0 do 
  begin 
    NewItem:=ListView.Items.add;
    NewItem.Caption:=ExtractFileName( aProcessEntry32.szExeFile);
    NewItem.subItems.Add( IntToHex( aProcessEntry32.th32ProcessID,4));
    NewItem.subItems.Add( aProcessEntry32.szExeFile);
    ContinueLoop:=Process32Next( aSnapshotHandle,aProcessEntry32);
  end;
  CloseHandle( aSnapshotHandle);
end;

procedure TFormMain.ListViewDblClick( Sender:TObject);
var Ret:BOOL;
  PrID:integer;// processidentifier 
  Ph:THandle;// processhandle 
  begin 
  try 
    with ListView do 
    begin 
      if MessageDlg( 'Do you want to Terminate "'+ItemFocused.Caption+'"?'+^J+
      'posible the system is instabile or out of'+^J+
      'control......',
      mtConfirmation,[mbYes,mbNo],0)=mrYes then 
      begin 
        PrID:=StrToInt( '$'+ItemFocused.SubItems[0]);
        Ph:=OpenProcess( 1,BOOL( 0),PrID);
        Ret:=TerminateProcess( Ph,0);
        if Integer( Ret)=0 Then 
        MessageDlg( 'Can Not Terminate "'+ItemFocused.Caption+'"',mtInformation,[mbOk],0) 
        else 
        ItemFocused.Delete;
      end;
    end;
  except 
  end;
end;

procedure TFormMain.FormCreate( Sender:TObject);
begin 
  // Application . OnHint := DisplayHint ; // If you want / need it . . . 
  BtnRefreshClick( Sender);
end;