"dir"-Befehl in Delphi ausführen

[ThE_-_BliZZarD]

Hallihallo, mal wieder ein Problem^^

Ich würde gerne folgenden DOS-Befehl in der Console ausführen:

Zitat:

->> C:[enter]
--> C:\
->> dir *.* /s > C:\listing.txt[enter]

Dies führt bei normaler Eingabe in die Console dazu, das unter C:\listing.txt eine Datei entsteht, in der
das gesamte Laufwerk C und dessen Unterordner gelistet sind. (Einfach mal ausprobieren ;-))

Wie könnte ich diesen Befehl in Delphi umsetzten? und ich würde gerne erfahren, wann der Befehl vollständig ausgeführt wurde (->fertig). Mit ShellExecute funktioniert das nicht so prickelnd :mrgreen: :?:

Vielen Dank im Vorraus,

BliZZarD

[Udontknow]

Hallo!

Soll´s eine Konsolenanwendung werden?
Einfach mit Findfirst/FindNext alle Dateien des Pfades ( ParamStr(1) ) aufspüren und deren Namen in eine Stringliste packen. Anschliessend Stringliste unter Dateinamen speichern ( ParamStr(2) ).

Cu,
Udontknow

[TeronG]

DP-Bordmittel: FindAllFiles: Macht alles in eine Stringlist die man einfach mit .SaveToFile abspeichern kann.

[ThE_-_BliZZarD]

Zitat:

Zitat von TeronG

DP-Bordmittel: FindAllFiles: Macht alles in eine Stringlist die man einfach mit .SaveToFile abspeichern kann.

Sry, aber ich weiß grad nicht was du meinst^^ Ich hab hier im Board nach der Funktion gesucht, aber alles was ich gefunden habe sind halbausgereifte Probleme..

Auch ein kleiner Hinweis zur Funktionsweise von FindNext() fände ich sehr nett ;-)

[CCRDude]

Die Funktionsweise von FindNext... in der offiziellen Doku fehlt inzwischen leider wirklich ein Beispiel :? Hier schau ich inzwischen eh lieber nach, da ist ein vollständiges Beispiel.

[ThE_-_BliZZarD]

Danke, aber wie kann ich da herausfinden ob ein Ergebnis ein Ordner ist oder nicht?

[Klaus01]

f

Delphi-Quellcode:

unction FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer

;

Im SerachRec.Attr steht der Integerwert.

Wenn SearchRec.Attr = faDirectory ($10) dann ist es ein Verzeichnis.

Grüße
Klaus

[SirThornberry]

Zitat:

Zitat von Klaus01

...Wenn SearchRec.Attr = faDirectory ($10) dann ist es ein Verzeichnis.

Autsch :cyclops:
Und wenn es ein Ordner ist bei dem das Archiv-Attribut gesetzt ist, ist es kein Ordner mehr?

wenn SearchRec.Attr and faDirectory = faDirectory dann ist es ein Verzeichnis

[Udontknow]

Nicht ganz, es könnten Ordner ausgelassen werden, die weitere Attribute wie faHidden haben. Richtig:

Delphi-Quellcode:

(SearchRec.Attr and faDirectory) = faDirectory

Edit: Einfach zu langsam... :(

Cu,
Udontknow