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