Einzelnen Beitrag anzeigen

SyntaxXx

Registriert seit: 14. Dez 2008
328 Beiträge
 
Delphi XE4 Architect
 
#1

Exemod, nur leere Ausgabe

  Alt 22. Apr 2010, 07:00
Hallo und zwar habe ich jetzt letzens was interesanntes gefunden.
Dort hat jemand 2 .exe Dateien gecodet.

In der Ersten gibt er einen Text und den Pfad zur anderen .exe Datei an.
Wenn er dann auf einen button klickt, und dann die andere Datei starte, dann steht der Text auch da drin.

Das fand ich doch sehr interessant und wollte das natürlich auch mal probieren.
Aber bei mir bekomme ich nur eine leere ausgabe.

Im beispiel wurde "Exemod" verwendet.


SourceCode .exe1

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute = true then
Edit1.Text := OpenDialog1.FileName; //
Add2File('YourString',Edit1.Text,Edit2.Text);
SourceCode .exe2

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var YourString : String;
begin
ExtractFromExe('YourString',YourString);
showmessage(YourString);
end;
Wenn ich das jetzt genau so, also in der einen den Pfad und nen Text angeben, auf den button klicke und dann die andere .exe starte, dann bekomme ich aber in der Messagebox nur ne leere ausgabe.


In Edit1.Text steht der Pfad zur anderen Datei
In Edit2.Text steht mein Text


Ich verwende Delphi2009.
Der im Beispiel hatte Delphi 2005.
Aber eigendlich sollte das doch alles funktionieren.


Könnt ihr mir helfen?
  Mit Zitat antworten Zitat