ShellExecute_AndWait

[R2009]

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!