TOnBeforeShellCommand = procedure (Sender: TShellBrowser; const command: String; Paths: TJamPathList; var AllowExecute: Boolean) of object;