Externes Programm beenden

[SKarin]

Hallo,
jetzt klappt es.
Ich habe folgende Procedure verwendet:
procedure TForm1.Killprocess(Name:String);
var
PEHandle,hproc: cardinal;
PE: ProcessEntry32;
begin
//NTSetPrivilege(SE_DEBUG_NAME,True);
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.th32Process ID);
TerminateProcess(hproc,0);
closehandle(hproc);
end;
until Process32next(PEHandle,PE)=false;
end;
closehandle(PEHandle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Killprocess ( 'notepad.exe');
end;

[SKarin]

Vielen Dank für Eure Hilfe. Jetzt kann ich erst einmal weiterbauen und das nächste Problem angehen.

[Der schöne Günther]

Super

Ich weiß zwar nicht, was im Windows-Jargon überhaupt genau als 'Snapshot' bezeichnet wird, aber das sieht ziemlich zeitaufwändig aus. Außerdem schießt du damit direkt alle Prozesse erbarmungslos ab, die das Unglück haben, so zu heißen. Mir wäre das zu unsicher: Ich hätte mir lieber am Anfang gemerkt, was ich selbst gestartet habe, damit ich am Ende auch genau das wieder zu machen kann. Wenn dein Anwender nun selbst gerade in einer notepad-Instanz an einem Roman schreibt, schießt du dem das auch direkt ungefragt mit ab.

Klar, in deinem Praxisfall wird es wohl nicht notepad sein, aber ich meine nur

[DeddyH]

Das sehe ich ähnlich, mit dem erwähnten CreateProcess oder auch mit ShellExecuteEx hätte man ja das ProcessHandle. Dann könnte man alle Fenster durchgehen (EnumWindows), deren Prozesshandle ermitteln (GetWindowThreadProcessID), vergleichen und sie bei Treffer höflichst auffordern, sich zu verdünnisieren (WM_CLOSE). Wenn das nicht fruchtet, kann man den Prozess ja dann immer noch abschießen.

[Union]

Bitte tagge Deinen Sourcecode, dann ist der besser zu lesen.

[Dalai]

Es gibt tatsächlich im Jahr 2013 Leute, die WinExec verwenden, eine Funktion, die schon seit Win9x-Zeiten tot ist? Wow! Welchen Vorteil gewinnt man damit gegenüber ShellExecute(Ex)?

Und bzgl. deiner Methode zum Abschießen der Prozesse kann ich mich dem schönen Günther und DeddyH nur anschließen: Einfach alle gleichnamigen Prozesse abzuschießen gehört sich nicht (es sei denn, man hat einen sehr guten Grund dafür)!

MfG Dalai

[Luckie]

Mit EnumWindows dürfte er nicht weiter kommen. Ein Dienst läuft in einer anderen Windows Station und sieht die Fenster des Benutzers gar nicht.

[Union]

Zitat von Luckie:

Mit EnumWindows dürfte er nicht weiter kommen. Ein Dienst läuft in einer anderen Windows Station und sieht die Fenster des Benutzers gar nicht.

Normalerweise... Aber dafür gibt es ja OpenWindowStation, SetProcessWindowStation, GetUserObjectInformation, OpenDesktop, SetThreadDesktop und Konsorten.