Programm aus einem anderen starten und Werte übergeben

[okoeller]

Hallo,

hab hier schon viele Beiträge über shellexecute und createprocess gelesen, konnte leider bisher keinen finden der mein Problem behandelt.

Ich möchte mit Programm A Programm B starten und dabei Werte(Name, Vorname, Geburtsdatum) an Programm B übergeben.

Mit shellexecute hab ich es probiert(ShellApi ist eingebunden), bekomme aber immer eine Fehlermeldung, da i kleiner 32 ist.

Delphi-Quellcode:

. . . 
 Anwendung:=  TUmgebungsvariablen.VLVerzeichnis + 'B.exe ' + Kunde.Nachname ;
//  + ' ' + Kunde.Vorname
//  + ' ' + Gebdat;

    i := ShellExecute(Application.Handle,'open',PChar(Anwendung),Nil, Nil, SW_NORMAL);
    if i <= 32 then
    ShowMessage('Es ist ein Fehler beim Starten von B aufgetreten');
. . .

Auf der Empfängerseite lese ich den Wert unter FormCreate wie folgt ein:

Delphi-Quellcode:

procedure TB.FormCreate(Sender: TObject);
var
  datumswert : String;
  FText1 : String;
  FText2 : String;

begin
  KdName:=paramstr(1);
  . . .

Für ein paar verständliche Zeilen auf Sender und Empfängerseite wäre ich sehr dankbar, da ich noch nicht so lange mit Delphi programmiere.

okoeller