Hallo,
hab es selbst herausgefunden.
Programm A ruft auf und sendet:
Delphi-Quellcode:
Anwendung:= TUmgebungsvariablen.VLVerzeichnis + 'Versorgungsluecke.exe ' ;
i := ShellExecute(Application.Handle,
'open',
PChar(Anwendung),
PChar(Kunde.Nachname + ' ' + Kunde.Vorname + ' ' + Datetostr(Kunde.Geburtsdatum)),
Nil,
SW_NORMAL);
Programm B wird gestartet und empfängt:
Delphi-Quellcode:
procedure TB.FormCreate(Sender: TObject);
begin
if ParamCount > 0 then
begin
KdName:=paramstr(1);
KdVorname:=paramstr(2);
KdGebdatum:=paramstr(3);
if KdName <> '' then
edtName.text := KdName;
if KdVorname <> '' then
edtVorname.text := KdVorname;
if KdGebdatum <> '' then
edtGebDat.text := KdGebdatum;
end;
Das funktioniert!
Das Programm muss auch ohne Parameter startbar sein.
Danke für die Tipps
okoeller