ShellBrowser Delphi Components Documentation
ContentsIndexHome
Example

The following sample event handler hides the floppy drive in a TJamShellTree.

procedure TMainForm.ShellListAddItem(Node: TJamShellTreeNode; Path: String;
var CanAdd: Boolean);
begin
CanAdd := not (GetDriveType(PChar(Path)) in [DRIVE_REMOVABLE]);
end;