Eigene Anwendung bei Mehrfachstart beenden

[MiKaEr]

auf seite zwei steht doch was ich abgeändert habe:

Zitat von MiKaEr:

das mit dem "letzten feld", verstehe ich übrhaupt nicht.

ich sende meinen "string" nun im ascii-format:

Delphi-Quellcode:

     iNew := 0;

     for i := 0 to Length(ParamStr(2)) - 1 do
      iNew := iNew + Ord(ParamStr(2)[i]);

     SendMessage(hExisting, WM_COPYDATA, iNew, 0);

und egal was ich mache, folgendes trifft, warum auch immer, nie ein:

Delphi-Quellcode:

 if Msg.message = WM_COPYDATA then
   showmessage(inttostr(Msg.wParam));