Robisz nową formę, kładziesz na niej komponenty:
- TShellTreeView - na nim będziesz wybierał folder docelowy,
- TTimer - będzie sprawdzał w jakim folderze się znajdujesz i przekazywał do Edit,
- TEdit - będzie wyświetlał obecną ścieżkę,
- TButton - przekaże ścieżkę do Edit'a z formy pierwszej.
Klikasz dwa razy na Timer1 i dodajesz kod:
Kod:
Edit1.Text:=ShellTreeView1.SelectedFolder.PathName;
, który wypisze w obecną ścieżkę zaznaczonego folderu w Edit1.
Następnie klikasz dwa razy na Button1 i dodajesz kod:
Kod:
Form1.Edit1.Text:=ShellTreeView1.SelectedFolder.PathName;
Form2.Close;
I to tyle...
Oczywiście po naciśnięciu Buttona Browse na 1-szej Formie pokaże formę drugą.
Acha, możesz jeszcze dodać jakiś bajer, np. Utworzenie Folderu, wtedy dodajesz jeszcze jednego buttona na Formę 2 i wklepujesz np. taki kod:
Kod:
NazwaFolderu:=InputBox('Utwórz Folder','Wprowadź nazwę folderu, który chcesz utworzyc','');
if NazwaFolderu <> '' then MkDir(ShellTreeView1.SelectedFolder.PathName+'\'+NazwaFolderu);
Tylko pamiętaj, żeby wcześniej zadeklarować zmienną NazwaFolderu, typu String.
Pozdro...
.