Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - neuen ordner über ShellListView1 erstellen


hibbert - Mo 28.10.02 17:26
Titel: neuen ordner über ShellListView1 erstellen
hallo,
wie kann ich über ShellListView1 einen neuen ordner erstellen ?
ess soll so ähnlich aus sehen, wie wenn man z.b. unter word sagt: datei > speichern unter. es öffnet si ja ein neues fenster, und so ähnlich soll dann meins auch sein. hats jemand verstanden :?: :?: :?:
wenn nicht einfach nachfragen !!
mfg hibbert


DelphiMan - So 03.11.02 10:52
Titel: Wieso mit ShellListView?
Machs doch einfach mit einem TOpenDialog...oder TSaveDialog. ist ja egal.

MfG
DelphiMan


DelphiMan - So 03.11.02 11:16
Titel: Es geht aber auch mit ShellListView...
Ich habs mir mal gerade angeschaut. Wenn du's unbedingt mit ShellListView machen willst geht es natürlich auch...
Den aktuellen Pfad kannst du folgendermaßen ermitteln:

Quelltext
1:
  shelllistview.RootFolder.PathName;                    


Mit Hilfe eines PopupMenüs oder wie auch immer kannst du somit nun mit den üblichen Funktionen ein Verzeichnis erstellen:


Quelltext
1:
2:
3:
4:
5:
6:
7:
  if not DirectoryExists(sh.RootFolder.PathName+'\Ordner') then
    begin
      if not CreateDir(sh.RootFolder.PathName+'\Ordner') then
        Showmessage('Verzeichnis konnte nicht angelegt werden!');
    end
  else
    Showmessage('Verzeichnis bereits vorhanden!');


MfG
DelphiMan