Windows Nachrichten Korreckt versenden.

[Corpsman]

So ich habe noch ein wenig an der urpsrünglichen Variante rumgedocktert

mittels

Delphi-Quellcode:

    SendMessage(HWND_BROADCAST, WM_COPYDATA, Longint(Handle),
      Longint(@aCopyData));

wie das dieses
OneInstance auch versenden würde, wenns denn Täte

gehts, nur das die 2. Instanz sich leider nicht beendet, nach dem Senden.

Egal ob ich halt; oder Application.terminate mache

Delphi-Quellcode:

Procedure TForm1.FormCreate(Sender: TObject);
Var
  aCopyData: TCopyDataStruct;
  p: PChar;
Begin
  If NeedToSend Then Begin
    p := pchar(Paramstr(1));
    With aCopyData Do Begin
      dwData := 0;
      cbData := StrLen(p) + 1;
      lpData := p;
    End;
    SendMessage(HWND_BROADCAST, WM_COPYDATA, Longint(Handle),
      Longint(@aCopyData));
    // Halt;
    Application.Terminate;
  End;