Example

The following sample event handler hides all Excel files and the floppy drive in a TJamShellList.

procedure TMainForm.ShellListAddItem(Item: TJamShellListItem; var CanAdd: Boolean);
begin
if CompareText(ExtractFileExt(ShellList.GetFullPath(Item)), '.xls')!=0 then
CanAdd := False;
CanAdd := not (GetDriveType(PChar(ShellList.GetFullPath(Item))) in [DRIVE_REMOVABLE]);
end;

Contents | Index | Home