Wow habe es selber hinbekommen
Muss über Nacht eine Erleuchtung gehabt haben.
Vielleicht braucht es mal jemand
Delphi-Quellcode:
var
i : integer;
NS: TNamespace;
Node: PVirtualNode;
begin
Node := LBSearch.GetFirst;
while Assigned(Node) do
begin
if LBSearch.ValidateNamespace(Node, NS) then
if NS.FileSystem then begin
for i := 0 to 254 do
LB.Items.Add(IntToStr(i) + NS.DetailsOf(i));
end;
Node := LBSearch.GetNext(Node)
end; end;