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.ShellListViewContextMenuSelect(const command: String; var execute: Boolean);
begin
execute := mrYes =
MessageDlg('Execute command "'+ command +'" on file:'+  ShellListView.Selected.Caption, mtConfirmation, [mbYes, mbNo], 0);
end;