Aus Edit1 aus lesen

[Christian18]

Hallo,

Ich habe ein kleines Problem! Und zwar möchte ich den Pfad den in meinen Edit1 Feld angezeigt wird in mein ShellExecute haben. Hie einmal meine Procedure

Delphi-Quellcode:

ShellExecute(FMain.Handle, nil, 'pacomp','-a -c2 -r -P -q test.zip "C:\*.*"', nil, SW_NORMAL);

Jetzt packt er alle daten in test.zip statt test.zip soll der Pfad aus dem Edit1 Feld rein. wie mache ich das???

Mit freundlichen Grüßen

Christian18

[Luckie]

Strings kannst du mit + verküpfen.

Mal so am Rande, kann es sein, dass ich diese Zeile schon zum 159874 mal hier sehe? :roll:

Damit das hier mal ein Ende hat:

Delphi-Quellcode:

ShellExecute(FMain.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text' + "C:\*.*"'), nil, SW_NORMAL);

[S2B]

Delphi-Quellcode:

ShellExecute(FMain.Handle, nil, 'pacomp','-a -c2 -r -P -q' + Edit1.Text' "C:\*.*"', nil, SW_NORMAL);

Oder hab ich mal wieder alles falsch verstanden?? :mrgreen:

edit: So schlimm darf man das hier nicht stehen lassen... :oops: Stimmt immer noch nicht alles, aber ich wollt den Code von Luckie nicht einfach kopieren!

[Luckie]

Bei dir fehlt ein Plus und der Cast nach PChar. Bei zusammengesetzten Strings greift die Compilermagic von Delphi nicht mehr.

[s14]

Nein, nur " + '" vergessen :mrgreen:

[S2B]

@Luckie: Ich glaub, ich schreib auch mal sowas wie du in meine Signatur! :mrgreen: Der war einfach nur eigefügt und das " ' + Edit1.Text" hinzugefügt...

[himitsu]

Delphi-Quellcode:

ShellExecute(FMain.Handle, nil, 'pacomp', PChar('-a -c2 -r -P -q ' + Edit1.Text + ' "C:\*.*"'), nil, SW_NORMAL);

Und damit es noch besser geht, würde ich die 2 Leerzeichen wieder einfügen und das eine Plus auf die richtige Seite verschieben :wink:

Delphi-Quellcode:

PChar('-a -c2 -r -P -q ' + Edit1.Text + ' "C:\*.*"')
                      ^                  ^

Edit1.Text + ' "C:\*.*"')
          ^^^^^

[Wheelie]

wieso muss man eigentlich mit PChar casten?? :gruebel:

[MrKnogge]

Weil TEdit.Text vom Typ string ist.

[himitsu]

und weil ShellExecute keine Strings mag.

MSDN > ShellExecute


[EDIT]
:gruebel: die DP mochte den Link wohl nicht