Programm (Prozessor) in dem Task-Manager beenden

[Delphiturbo]

Hallo

ich verwende eine Kill-Funktion um ein Programm zu beenden

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
begin
KillProgram(nil,'projekt1.exe');
end;

Es funktioniert aber wenn das Programm in Hintergrund arbeitet (nur über Task-Manager sichtbar), dann schaffe ich mit der Funktion das Programm nicht zu beenden.

Welche Funktion ist fafür geeignet ?

[Nuclear-Ping]

- Wie schaut "KillProgram" denn aus?
- Kannst du den gewünschten Prozess im Task-Manager manuell beenden?

[Delphiturbo]

Manual kann ich das Programm beenden
Projekt1.exe war nur ein Beispiel
Ich möchte ein beliebiges Programm in Task-Manager beenden

Meine Funktion funktioniert leider nur wenn ich den Programm-Pfad eingebe

[toms]

Zitat von Nuclear-Ping:

- Wie schaut "KillProgram" denn aus?

Die Frage wurde noch nicht beantwortet.

[Delphiturbo]

Delphi-Quellcode:

procedure KillProgram(ClassName: PChar; Titre: String);
const
PROCESS_TERMINATE = $0001;
var
ProcessHandle : THandle;
ProcessID: Integer;
Appli : HWND;
begin
Appli := FindWindow(PChar(ClassName), PChar(Titre));
GetWindowThreadProcessID(Appli, @ProcessID);
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
TerminateProcess(ProcessHandle,4);
end;

[Nuclear-Ping]

Ja, dann sollte ja klar sein, warum das nur bei normalen Anwendungen funktioniert: Die Funktion arbeitet mit FindWindow.

Aber bei delphi kill process ist was dabei, was dir helfen sollte.

[Sharky]

Hallo Delphiturbo.

Ich glaube es reicht jetzt! Wenn Du weiterhin in der DP fragen stellen möchtest arbeite bitte diese Punkte ab:

1. Lerne Dich richtig auszudrücken
2. Lerne die Grundlagen von Delphi
3. Halte Dich daran was andere User (besonder Daniel) Dir sagen

Wenn Du hierzu nicht bereit bist solltest Du überlegen ob die DP das richtige Forum für dich ist!

[Daniel]

Zitat von Sharky:

[...]Halte Dich daran was andere User (besonder Daniel) Dir sagen[...]

[Wotan89]

Das wäre eine mögliche Variante:

Delphi-Quellcode:

procedure Killprocess(Name:String);
var PEHandle,hproc:cardinal; PE:ProcessEntry32;
begin
PEHandle:=CreateTOOLHelp32Snapshot(TH32cs_Snapprocess,0);
if PEHandle<>Invalid_Handle_Value then
  begin
  PE.dwSize:=Sizeof(ProcessEntry32);
  Process32first(PEHandle,PE);
  repeat
  if Lowercase(PE.szExeFile)=Lowercase(Pchar(Name)) then
    begin
    hproc:=openprocess(Process_Terminate,false,pe.th32ProcessID);
    TerminateProcess(hproc,0);
    closehandle(hproc);
    break;
    end;
  until Process32next(PEHandle,PE)=false;
  end;
closehandle(PEHandle);
end;

.
.
KillProcess('Project1.exe'); // Beispielcode

[Delphiturbo]

Keine schaft den Prozessor zu beenden !
auch diese Funktion :
KillTask