Guten Morgen,
ich habe folgendes Problem:
Ich habe ein kleines Programm programmiert, mit dessen Hilfe es möglich sein soll, die Struktur eies Ordners, oder einer Festplatte in einer Textdatei(*.txt) zu speichern. Dafür habe ich ein Editfeld(edtVerzeichnis), einen Button(btnDateienLesen) und eine Checkbox(chkLog).
Wenn in der Chekbox ein Häkchen ist, und der Button geklickt wird, soll die Struktur(oder wie man das nennt) in einer Textdatei gespeichert werden.
Folgender code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.btnDateienLesenClick(Sender: TObject);
begin
if chkLog.Checked = True then
begin
ShellExecute(application.Handle, 'open', PChar('tree'), PChar(edtVerzeichnis.Text + ' /F /A > Log_' + edtVerzeichnis.Text + '.txt'), nil,SW_HIDE);
end;
end; |
In das Editfeld sollte zuvor ein Pfad wie: C: eingegeben werden.
ShellApi hab ich in die uses eingebunden. Beim Compilieren kommt soweit auch kein Fehler, doch wenn ich einen pfad eingebe, ein häkchen setze undauf den button klicke, passsiert nix(keine Textdatei wird erstellt!).
Was habe ich falsch gemacht und sollte ich dafür überhaupt ShellExecute verwenden? Wenn nein, welchen Befehl dann?
Ich freue mich auf Antworten,
MFG cyberbug
)so umschreiben, dass ich den code in meinem Programm verwenden kann?? thx
jaenicke