ShellBrowser Delphi Components Documentation
ContentsIndexHome
Example 1

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

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