"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

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 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]

function 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 von Klaus01:

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

Autsch
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:

(SearchRec.Attr and faDirectory) = faDirectory Edit: Einfach zu langsam...

Cu,
Udontknow