Task beenden

[taktaky]

Du brauchst nur den Titel von der Anwendung in Button1 Code einzugeben

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;

procedure TForm1.Button1Click(Sender: TObject);
begin
//KillProgram(nil,Edit1.text); du Kannst auch Edit.Text erstellen und drin den Titel eingeben
KillProgram(nil,'Anwendung-Titel'); // hier muss man den Titel von der Anwendung eingeben
end;