Programm beenden über Programm

[TStringlist]

...wahrscheinlich lags/liegts tatsächlich an FindWindow. Das sehe ich hier in dem Thread nämlich immer mit etwas falschen Parametern bestückt. Weil nämlich, normale Strings sollten da eigentlich nicht stehen, sondern eher Pointer auf nullterminierte Strings. Also folgendes funktionierte bei mir z.B.:

Code:

var
  WindowHandle : HWnd;
begin
  WindowHandle := FindWindow(PChar(0), PChar('Testprog'));
  if WindowHandle <> 0 then PostMessage(WindowHandle,WM_Quit,0,0);
  ...