Hi,
danke dir du hast mich auf die richtige Spur gebracht. Hatte zuerst versucht cmd.exe zu stoppen.
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;
Aufgerufen mit:
Delphi-Quellcode:
procedure Tmain.Button9Click(Sender: TObject);
begin
Killprocess('java.exe');
se2.Lines.Add('Anwahl gestoppt!');
end;
Ist mir bewusst das das nicht schön ist. Aber dass Java eventuell 2 mal offen ist lässt sich beherschen.
Das Programm wird nur von unseren Profis benutzt!
Vielen Dank. Ihr habt mir sehr geholfen!