Einzelnen Beitrag anzeigen

Benutzerbild von X-Dragon
X-Dragon

Registriert seit: 14. Jan 2003
Ort: Schortens
289 Beiträge
 
Delphi 6 Enterprise
 
#24
  Alt 25. Mär 2003, 09:23
Wie schön das man auf die einfachsten Sachen einfach nicht kommt, wenn man sie braucht .

Also ich hab jetzt erstmal 2 einfache Möglichkeiten gefunden die ich, zumindest in meinem Fall, nutzen kann. Zum einen werden die Daten in einer Temporären-Datei gespeichert und die andere Anwendung kontrolliert beim Start ob diese vorhanden ist und liest diese dann aus.

Und die andere Möglichkeit ist eigentlich genauso einfach, und zwar übergebe ich die Daten einfach als Parameter beim Aufruf der anderen Anwendung, per ShellExecute .

[edit]
und so sieht jetzt meine Lösung aus:

Delphi-Quellcode:
  ShellExecute(0, 'open',
               PChar(ExtractFilePath(Application.ExeName)+'Reifenstart.exe'), // zu startende Anwendung
               PChar(txt), // Parameter (Text der Edit-Felder)
               '', SW_SHOW);
und in der dann gestarteten Anwendung:
Delphi-Quellcode:
  if ParamCount = 3 then // es sollten 3 Parameter übergeben werden, wenn nicht dann eben nicht :)
  begin
    EdNameA.Text := ParamStr(1);
    EdKennzA.Text := ParamStr(2);
    EdTypA.Text := ParamStr(3);
    BtNeu.Click;
  end;
  Mit Zitat antworten Zitat