...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);
...