Laufende Anwendung beenden

Uses TLHelp32;

Function KillTask(Const APID: Cardinal;
                  Const AKillStructure: Boolean = False): Boolean; Overload;
Var
   P:        TProcessEntry32;
   H:        THandle;
   D:        DWORD;
   TP:       TTokenPrivileges;
   hToken:   THandle;
   hProcess: Cardinal;
   Goon:     Boolean;
   Function IsWinNT: Boolean;
   Var
      VI: TOSVersionInfo;
   Begin
        VI.dwOSVersionInfoSize := SizeOf(VI);
        Result                 := False;
        If GetVersionEx(VI) Then
           Result              := VI.dwPlatformId = VER_PLATFORM_WIN32_NT;
   End;
Begin
     Result   := False;
     P.dwSize := SizeOf(P);
     H        := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
     Goon     := True;
     Try
        If Process32First(H, P) Then Begin
           Result := True;
           Repeat
              If P.th32ProcessID = APID Then Begin
                 If IsWinNT Then Begin
                    If OpenProcessToken(GetCurrentProcess,
                                        TOKEN_ADJUST_PRIVILEGES, hToken) Then Begin
                       LookupPrivilegeValue(NIL, 'SeDebugPrivilege',
                                            TP.Privileges[0].Luid);
                       TP.PrivilegeCount           := 1;
                       TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
                       D                           := 0;
                       AdjustTokenPrivileges(hToken, False, TP, 0,
                                             PTokenPrivileges(NIL)^, D);
                       CloseHandle(hToken);
                    End;
                    hProcess := OpenProcess(Process_Terminate, False,
                                            P.th32ProcessID);
                    Goon     := False;
                    If hProcess <> 0 Then
                       Try
                          Result    := TerminateProcess(hProcess, 0) And Result;
                          If WaitForSingleObject(hProcess, INFINITE) <> WAIT_OBJECT_0 Then
                             Result := False;
                       Finally
                          CloseHandle(hProcess);
                       End;
                 End;
              End Else If (AKillStructure) And (P.th32ParentProcessID = APID) Then
                 Result := KillTask(P.th32ProcessID, True) And Result;
           Until (Not Process32Next(H, P)) Or ((Not Goon) And (Not AKillStructure));
        End;
     Finally
        CloseHandle(H);
     End;
End;

Function KillTask(Const AExeName: String; Const AKillAll: Boolean = False;
                  Const AKillStructure: Boolean = False): Boolean; Overload;
Var
   P: TProcessEntry32;
   H: THandle;
Begin
     Result   := False;
     P.dwSize := SizeOf(P);
     H        := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
     Try
        If Process32First(H, P) Then Begin
           Result       := True;
           Repeat
              If AnsiLowerCase(P.szExeFile) = AnsiLowerCase(AExeName) Then Begin
                 Result := KillTask(P.th32ProcessID, AKillStructure) And Result;
                 If Not AKillAll Then
                    Break;
              End;
           Until (Not Process32Next(H, P));
        End;
     Finally
        CloseHandle(H);
     End;
End;

Function EnumWindowsCallback(WND: HWND; lParam: LPARAM): Boolean; StdCall;
Var
   PID:  Cardinal;
   Wait: Boolean;
Begin
     Result := True;
     If GetParent(WND) = 0 Then
        GetWindowThreadProcessID(WND, PID);
     If (lParam And (-1)) = -1 Then Begin
        Wait := True;
        lParam := (lParam And (Not (-1)));
     End Else
        Wait := False;
     If PID = lParam Then
        If Wait Then
           SendMessage(WND, WM_CLOSE, 0, 0)
        Else
           PostMessage(WND, WM_CLOSE, 0, 0);
End;

Procedure TryKillTask(PID: Cardinal; Wait: Boolean = True);
Var
   Flag: LPARAM;
Begin
     If Wait Then
        Flag := PID And (-1)
     Else
        Flag := PID;
     EnumWindows(@EnumWindowsCallback, Flag);
End;