Fragen zu TShellListView / TreeView

[kevin134]

Hallo zusammen

Ich habe mir vorgenommen, mich nun mal an etwas größeres als
einen Taschenrechner zu wagen =)

Nun habe ich mir überlegt, einen Windowsexplorer zu gestalten.
Nur hierbei hänge ich ein wenig fest,
da ich nicht weiss ich ich von ListView zu Listview kopieren kann
Also von Links nach Rechts und andersrum
Datei umbennen und löschen soll auch noch rein ...
Desweiteren wollte ich fragen, ob es irgentwie möglich ist,
Videodateien von Servern ( wie Youtube ect ) herunterzuladen.
Es gibt ja zich tools dafür, da wollte ich fragen ob es mit
Delphi auch möglich ist, wenn ja, wie

Danke schonmal im Vorrauss =)

MfG
Kevin


Benutze Delphi 7

[Fussball-Robby]

Ich will dir ja nicht die Laune am selber Programmieren verderben, aber Darstellen von Dateien im Explorer-Stil, Löschen bzw Verschieben von Dateien, und darüber hinaus das Anzeigen von Websiten etc. kann alles der TWebBrowser.
Wenn du es aber dennoch selber machen willst, such mal ein bisschen im Forum bzw in der Hilfe, da gibts es bestimmt genug Tipps

Mfg

[kevin134]

Zitat von Fussball-Robby:

Ich will dir ja nicht die Laune am selber Programmieren verderben, aber Darstellen von Dateien im Explorer-Stil, Löschen bzw Verschieben von Dateien, und darüber hinaus das Anzeigen von Websiten etc. kann alles der TWebBrowser.
Wenn du es aber dennoch selber machen willst, such mal ein bisschen im Forum bzw in der Hilfe, da gibts es bestimmt genug Tipps

Mfg

Hmm... mit dieser Funktion habe ich zwar auch
schon gearbeitet, aber mir war nicht bekannt,
das dieser auch Dateien bzw Ordner verwalten
kann ...
Was ist denn wesentlich einfacher ?
Sollte jedoch den gleich Zweck erfüllen

[kevin134]

push,

kann mir niemand helfen ?
die such funktion ist hier irgentwie so
unübersichtlich und google
spuckt au nich wirklich etwas aus =(


edit ...
so langsam komme ich der Sache schon näher ...
nur wie bekomm ich die TShellListView in diese Zeile zum Kopieren ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
DoFileWork(FO_COPY, 'C:\Test', 'D:\', 0);
end;

schon versucht die Pfade mit TShellListView1 bzw -2 zu ersetzen, geht aber nicht =(

[kevin134]

push ...
weiss keiner eine antwort darauf ?
oder gibt es da keine möglichkeit ? =/
mfg Kevin

[bitsetter]

Hi,

der Funktion musst du sicherlich 2 gültige Dateipfade übergeben.
ShellListView1.SelectedFolder.PathName Pfad vom selektiertem Item zum Beispiel.
ShellListView1.Folders[...].PathName Pfad von einem bestimmten Item.

[kevin134]

Zitat von bitsetter:

Hi,

der Funktion musst du sicherlich 2 gültige Dateipfade übergeben.
ShellListView1.SelectedFolder.PathName Pfad vom selektiertem Item zum Beispiel.
ShellListView1.Folders[...].PathName Pfad von einem bestimmten Item.

eh ja danke,
aber so ganz leuchtet es mir noch nicht wirklich
ein ...
also wie lautet jetzt bitte die zeile,
damit ich von ShellListView1 die ausgewählte datei bzw den ordner
zu ShellListView2 kopiere ?

mfg kevin



> bin noch nicht so vertraut mit delphi ....

[bitsetter]

DoFileWork(FO_COPY, ShellListView1.SelectedFolder.PathName, ShellListView2.RootFolder.PathName, 0); Muss du mal damit versuchen, konnte ich jedoch nicht testen.

Edit: Ein Problem stellen aber Ordner wie "Desktop" da, da dort der korrekte Pfad nicht übergeben wird.

[kevin134]

Alles klar , funktioniert prima

nun habe ich noch eine andere frage offen


-> ausgewähle datei löschen

edit :

jetzt wirds noch ein wenig komplizierter ...
wie unterlege ich diese ganze funktion ( also das kopieren )
mit einer progressbar , falls es mal länger dauert ? ^^

[bitsetter]

Delphi-Quellcode:

  if FileExists(ShellListView1.SelectedFolder.PathName) then
    DeleteFile(ShellListView1.SelectedFolder.PathName);