ShellBrowser Delphi Components Documentation
ContentsIndexHome
Example

For each context menu item, the following example will ask the user whether or not to execute the selected action:

procedure TMainForm.ShellTreeContextMenuSelect(const command: String;
var execute: Boolean);
begin
execute := mrYes =
MessageDlg('Execute command "'+ command +'" on folder:'+  ShellTree.SelectedFolder, mtConfirmation, [mbYes, mbNo], 0);
end;