1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

var  TListe     : TList;

function EnumWindowsProc(WND: HWND; LParam: LPARAM): BOOL; stdcall;
var PLW: ^HWND;
begin
  Result := True;
  If IsWindow(WND) and ((IsWindowVisible(WND) {or IsIconic(WND)}) and
    ((GetWindowLong(WND, GWL_HWNDPARENT) = 0) or
     (GetWindowLong(WND, GWL_HWNDPARENT) = GetDesktopWindow)) and
     (GetWindowLOng(WND, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0)) Then begin 
       If Assigned(TListe) Then begin
         new(PLW);
         PLW^ := WND; 
         TListe.Add(PLW); 
       end; 
  end; 
end; 


procedure TForm1.FormCreate(Sender: TObject);
begin
  TListe          := TList.Create;
  EnumWindows(@EnumWindowsProc,0);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function TerminateProcessByWindow(wnd: HWND): Boolean;
var
  idProcess: Cardinal;
  hProcess: THandle;
begin
  Result := False;
  GetWindowThreadProcessId(wnd, idProcess);
  hProcess := OpenProcess(PROCESS_TERMINATE, False, idProcess);
  if hProcess <> 0 then
  begin
    TerminateProcess(hProcess, 0);
    CloseHandle(hProcess);
    Result := True;
  end;
end;					

1:
2:
3:

if Assigned(TListe) then begin
  TListe.Add(Pointer(WND));
end;					

1:

SendMessage(FindWindow(nil,'Nachrichtendienst '),WM_Close,0,0);