Na, nun maul mal nicht gleich rum. Wenn du Luckies Link anklickst, kommst du
hier hin und selbst wenn du es nicht verstehst, ich gehe davon aus, daß du eh nur Code möchtest. Dann kopierst du die Funktion und alles was du dann machen mußt, ist aus die Funktion aufzurufen und anstelle von:
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.Button1Click(Sender: TObject);
begin
if TerminateEXE('notepad.exe') then ShowMessage('Anwendung beendet.');
end; |
setzt du einfach für Notepad.exe den Namen des Programms ein, daß du abschießen willst und ggf. machst du so:
Delphi-Quelltext
1:
2:
3:
4:
5:
| If TerminateExe('Name des Tools') Then
Begin
ShowMessage('Programm abgeschossen!');
Close;
End; |
Das ist doch nicht schwer. Das wird es erst, wenn du versuchst, dich mit dem Code auseinander zu setzen, aber davon bist du sicher noch was entfernt. Ich denke, selbst für Laien ist Luckies Link hilfreich. Ein wenig Engagement muss man eben zeigen..
TERMINATEPROCESS
