Idd, daar had ik hem ook vandaan en een beetje omgebouwd
Maar, de code in zn totaal is
Code:
procedure TForm1.ShellListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
Var
ListItem:TListItem;
Map: String;
begin
ListItem := ShellListView1.Selected; // geselecteerde item
Map := ShellListView1.Folders[ListItem.Index].PathName; // Var Map krijgt nu de listitem waarde in string format
If Not (ExtractFileExt(Map) = '') Then Exit; // Als de Extensie '' is, oftewel geen, dan is het een map anders exit
Edit1.Text := Map;
end;
Nu met uitleg erbij. (Geeft een AV na 2 keer)
Maar, is er geen commando dat gewoon de huidige map aangeeft ?
Groeten, Pieter
Bookmarks