Abbild des Computers [Festplatte]

Robii · Beiträge: 236

Seid gegrüßt, ( mal eine etwas originellere Begrüßung)
ich möchte, das in meinem Programm ein Tree der Festplatte gemacht wird, wie wenn man in die CMD 'Tree' eingibt. Dieses Bild(/TextDatei/Stringliste/Was auch immer), soll dann in einer Textdatei gespeichert werden. Leider habe ich überhaupt
keine Ahnung wie ich das anstellen soll, vermute nur, das ich das mit 'TTreeView' machen muss, oder? Würde mich über Hilfe freuden.
Gruß

Boldar · Verfasst: Fr 12.06.09 22:37

zum beispiel mit

markieren

Delphi-Quelltext

1:	shellexecute (nil, nil, 'tree C: >C:tree.txt', nil, nil);

oder so änlich.
(Hab grad kein delphi da
mfg Boldar

Xentar · Verfasst: Fr 12.06.09 22:40

Und was hat das mit Abbild zu tun? Abbild wäre für mich eher sowas wie Acronis True Image, also eine Sicherung des Computers.

Zu deinem Problem:
Man kann in der Konsole die Ausgabe auch in Dateien umleiten..

tree > tree.txt

_________________
PROGRAMMER: A device for converting coffee into software.

Robii · Beiträge: 236

Muss ich sonst noch irgendetwas ändern, den so kennt mein Delphi diesen Befehl leider nicht.

---Moderiert von Narses: Beiträge zusammengefasst---

Wie das in der Konsole funktioniert, weiß ich ja. Aber es geht mir ja darum, das es in meinem Delphi-Programm funktioniert.

Xentar · Verfasst: Fr 12.06.09 22:59

Du musst noch eine Unit einbinden. Glaub ShellAPI heißt die.

_________________
PROGRAMMER: A device for converting coffee into software.

Robii · Beiträge: 236

Richtig, das habe ich jetzt getan, aber jetzt kommt folgende Fehlermeldung

Zitat:

[Pascal Fehler] Upload_Unit.pas(42): E2010 Inkompatible Typen: 'HWND' und 'Pointer'

bei folgendem Code:

markieren

Delphi-Quelltext

1:	shellexecute (nil, nil, 'tree C: >C:tree.txt', nil, nil);

Was heißt das, sorry ich verstehe den Code nicht wirklich, also was das nil heißt..
Gruß

Boldar · Verfasst: Fr 12.06.09 23:33

markieren

Delphi-Quelltext

1:	shellexecute (handle, nil, 'tree C: >C:tree.txt', nil, nil);

müsste gehen.

Robii · Beiträge: 236

markieren

Delphi-Quelltext

1:	Shellexecute (handle, nil, 'tree C:\Fiaa\ >C:tree.txt', nil, nil,SW_SHOWNORMAL);

Genau so habe ich es geschrieben, scheint aber nicht zu klappen. Habe das mal mit der Konsole versucht,
da wird immer de Fehlermeldung 'Zugriff verweigert' gemeldet. Wie kann ich das ändern? Grüße.

Xentar · Verfasst: Fr 12.06.09 23:48

a) gibt es das von dir angegebene Verzeichnis c:\fiaaa\ ?
b) Füg mal im Dateinamen, wo er das abspeichern soll, einen \ ein.

_________________
PROGRAMMER: A device for converting coffee into software.

Robii · Beiträge: 236

Ja das Verzeichniss gibt es definitv. Auch mti dem / klappt es nicht.
Kann es an dem Zugriff verweigert liegen ? Grüße.

jaenicke · Verfasst: Sa 13.06.09 00:16

Naja, unter c: direkt wirst du ja auch keine Schreibrechte haben...
Ich würde schauen wo das Tempverzeichnis ist und dieses benutzen oder direkt vorher den Speicherndialog anzeigen.

Robii · Beiträge: 236

Auch im Ordner 'Eigene Dateien ' wird keine Txt File erstellt.
Ich probier es noch mal mit der Konsole im gleichen Verzeichnis.
Gruß

---Moderiert von Narses: Beiträge zusammengefasst---

Seltsamer Weise klappt es wenn ich in der Konsole folgendes eingebe:

Zitat:

Tree >Test.txt

Wieso klappt es so, aber nicht, wenn ich die TXT-Datei in ein anderes Verzecihniss verschieben will?
Gruß

jaenicke · Verfasst: Sa 13.06.09 01:05

So klappt es dann:

markieren

Delphi-Quelltext

1:	Shellexecute(Handle, 'open', 'cmd.exe', '/C tree C:\Fiaa > C:\...\tree.txt', nil, SW_SHOWNORMAL);

Erklärung: Das Piping via > funktioniert nur in der Konsole, so wie vorher wäre es ein Parameter an Tree. ;-)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme