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