ShellExecute Parameter übergeben???

[Christian18]

Guten Tag,

Ich habe mal eine kleine Frage, die "denke ich" auch zu lösen ist!

Ich habe eine Application programmiert womit ich meine Datenbanken sichern kann. Man kann auswählen in welchen Verzeichnis die Datenbanken liegen die gesichert werden sollen. Also der Pfad ist in einer Paradox7 Tabelle gespeichert. Auf einer anderen Form habe ich ein Edit wo auch ein Pfad in meinem Edit Feld drinn steht. (Das muß man vorher auswählen!!!) Aber in diesem Edit Feld wird eingeschrieben wo die Datensicherung hin gepackt werden sollen. Die Komandozeile um Dateien zu packen lautet:

pacomp.exe -a -c2 -r -P -q test.zip

Das ist die Komandozeile womit ich das Externe Programm anspreche. Anschließend packt meine Application auch was. Aber leider nicht das was es soll. Wie bringe ich hier noch unter wo sich die Quelle befindet und das ziel wo es hin soll(die gepackte Datei)

Delphi-Quellcode:

  ShellExecute(0,'open' , 'pacomp.exe','-a -c2 -r -P -q test.zip ', Nil, SW_NORMAL);

PS: Jetzt Packt das Programm test.zip es soll aber das Datum packen. BSP.: 20040414.zip

[Luckie]

Dann bau dir vorher in einer Variablen den String für den Parameter zusammen.

[THE MATRIX]

Probier das doch mal so

Delphi-Quellcode:

ShellExecute(0,'open' , 'pacomp.exe','-a -c2 -r -P -q ' + DateToStr(Date) + '.zip ', ExtractFileDir(Application.Exename)+'\backup', SW_NORMAL);

dann ruft der die pacomp.exe af mit dem datum und setzt als Arbeitsverzeichnis den Ordner, wo deine Anweundung ist + backup
z.b. C:\MeinProgramm\backup
der Ordner Backup muss natürlich existieren.

[Christian18]

Hi, The Matrix

wenn ich deinen lösungsvorschlag nehme, dann kommt bei mir eine Fehlermeldung.

[Fehler] UTagessicherung.pas(62): Inkompatible Typen: 'String' und 'PChar'

was kann ich dagegen machen???

[Luckie]

Du musst die Strings nach PChar casten.

[Christian18]

wie mache ich das

[Markus K.]

Hallo Christian,
so zum Beispiel.

Delphi-Quellcode:

 ShellExecute(0,'open' , 'pacomp.exe',PChar('-a -c2 -r -P -q ' + DateToStr(Date) + '.zip '), PChar(ExtractFileDir(Application.Exename)+'\backup'), SW_NORMAL);

Tschüß Markus

[Christian18]

ich weiß nicht warum, aber wenn ich auf den button klicke, dann passiert gar nichts! es kommt aber auch kein fehler!
weiß jemand warum???

[Luckie]

Existiert das verzeichnis backup? Und was gibt dir Shellexecute für eine Zahl zurück?

[Christian18]

ja das verzeichnis ist da, aber shellexecute gibt auch keine zahl zurück