Beliebiges Programm über Delphi schließen

[Temudschin]

Ziel des bescheidenen Delphi-Projektes ist es, dass jenes einfach eine anderes laufendes Programm ohne wenn und aber schließt. Zwar könnte einfach gesagt werden, fahre den Computer herunter und damit alle Programme die darauf laufen, aber das ist nicht so schön.
Auch nach durchsuchen dieses umfangreichen Forums (welches mir auch schon bei der gegenteiligen Methodik gut geholfen hat) wurde ich leider nicht fündig. Liegt das daran, das es keine Möglichkeit gibt, da es sich hierbei vielleicht um eine Zugriffsverletzung handeln könnte, oder das einfach nie die Notwendigkeit bestand?

Hoffe auf Zweiteres
danke im Voraus.

[Joachim Rohde]

Hab's nur (ganz) kurz überflogen, aber das müsste das Richtige für dein Vorhaben sein: http://msdn.microsoft.com/library/de...tml/dt0109.asp

[ManuMF]

Wenn der Name des Fensters bekannt ist:

Delphi-Quellcode:

var Window : hWnd;

Window := FindWindow(nil, 'Name des Fensters');
if Window <> 0 then PostMessage(Window, wm_close, 1, 1);

Funktioniert aber nicht, wenn das Programm z.B. eine Abfrage beim Beenden anzeigt

Wenn der Dateiname des Programms bekannt ist:

Delphi-Quellcode:

uses TlHelp32;

// Funktion
function KillTask(const AExeName: string): boolean;
var
  p: TProcessEntry32;
  h: THandle;
begin
  Result := false;
  p.dwSize := SizeOf(p);
  h := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
  try
    if Process32First(h, p) then
      repeat
        if AnsiLowerCase(p.szExeFile) = AnsiLowerCase(AExeName) then
          Result := TerminateProcess(OpenProcess(Process_Terminate,
                                                 false,
                                                 p.th32ProcessID),
                                     0);
      until (not Process32Next(h, p)) or Result;
  finally
    CloseHandle(h);
  end;
end;

// Aufruf
if not (KillTask('NameDesProgramms.exe') then
  {z.B.} showmessage('Programm konnte nicht beendet werden.');

Die harte Methode ;-) , von dsdt.info

[Temudschin]

Arigato
*verbeug*

Funktioniert alles super.