Anwendung einmal starten und dem die Parameter geben

[xZise]

Hmmm, also aufjedenfall startet es nur einmal, aber ich komme nicht an die Parameter ran...

Delphi-Quellcode:

procedure TfrmQuinstall.DefaultHandler(var Message);
begin
  if TMessage(Message).Msg = SecondInstMsgId then begin
    PostThreadMessage(TMessage(Message).WParam, SecondInstMsgId, Handle, 0);
    BringToFront;
  end else
    inherited;
end;

procedure TfrmQuinstall.ProcessCommandline(lpData: Pointer);
begin
  Memo1.Text := Memo1.Text + ' {[]}';
end;

procedure TfrmQuinstall.FormShow(Sender: TObject);
var
  lpData: Pointer;
  cbData: DWORD;
begin
  lpData := ParamStrToBlob(cbData);
  try
    ProcessCommandline(lpData);
  finally
    FreeMemory(lpData);
  end;
end;

Es ruft nur einmal ProcessCommandline auf...