├── .gitattributes ├── .gitignore ├── CBuilder ├── 11AndAbove │ ├── CBuilder.groupproj │ ├── VirtualShellToolsC.cbproj │ ├── VirtualShellToolsC.cpp │ ├── VirtualShellToolsC.ico │ ├── VirtualShellToolsCD.cbproj │ ├── VirtualShellToolsCD.cpp │ └── VirtualShellToolsCD.ico ├── Berlin │ ├── CBuilder.groupproj │ ├── VirtualShellToolsC.cbproj │ ├── VirtualShellToolsC.cpp │ ├── VirtualShellToolsC.ico │ ├── VirtualShellToolsC.res │ ├── VirtualShellToolsCD.cbproj │ ├── VirtualShellToolsCD.cpp │ ├── VirtualShellToolsCD.ico │ └── VirtualShellToolsCD.res ├── Rio │ ├── CBuilder.groupproj │ ├── VirtualShellToolsC.cbproj │ ├── VirtualShellToolsC.cpp │ ├── VirtualShellToolsC.ico │ ├── VirtualShellToolsC.res │ ├── VirtualShellToolsCD.cbproj │ ├── VirtualShellToolsCD.cpp │ ├── VirtualShellToolsCD.ico │ └── VirtualShellToolsCD.res ├── Sydney │ ├── CBuilder.groupproj │ ├── VirtualShellToolsC.cbproj │ ├── VirtualShellToolsC.cpp │ ├── VirtualShellToolsC.ico │ ├── VirtualShellToolsC.res │ ├── VirtualShellToolsCD.cbproj │ ├── VirtualShellToolsCD.cpp │ ├── VirtualShellToolsCD.ico │ └── VirtualShellToolsCD.res └── Tokyo │ ├── CBuilder.groupproj │ ├── VirtualShellToolsC.cbproj │ ├── VirtualShellToolsC.cpp │ ├── VirtualShellToolsC.ico │ ├── VirtualShellToolsC.res │ ├── VirtualShellToolsCD.cbproj │ ├── VirtualShellToolsCD.cpp │ ├── VirtualShellToolsCD.ico │ └── VirtualShellToolsCD.res ├── Delphi ├── 11AndAbove │ ├── Delphi.groupproj │ ├── VirtualShellToolsD.dpk │ ├── VirtualShellToolsD.dproj │ ├── VirtualShellToolsDD.dpk │ └── VirtualShellToolsDD.dproj ├── Berlin │ ├── Delphi.groupproj │ ├── VirtualShellToolsD.dpk │ ├── VirtualShellToolsD.dproj │ ├── VirtualShellToolsD.res │ ├── VirtualShellToolsDD.dpk │ ├── VirtualShellToolsDD.dproj │ └── VirtualShellToolsDD.res ├── Jam-VT │ ├── Delphi.groupproj │ ├── VirtualShellToolsD.dpk │ ├── VirtualShellToolsD.dproj │ ├── VirtualShellToolsD.res │ ├── VirtualShellToolsDD.dpk │ ├── VirtualShellToolsDD.dproj │ ├── VirtualShellToolsDD.res │ └── readme.md ├── Rio │ ├── Delphi.groupproj │ ├── VirtualShellToolsD.dpk │ ├── VirtualShellToolsD.dproj │ ├── VirtualShellToolsD.res │ ├── VirtualShellToolsDD.dpk │ ├── VirtualShellToolsDD.dproj │ └── VirtualShellToolsDD.res ├── Sydney │ ├── Delphi.groupproj │ ├── VirtualShellToolsD.dpk │ ├── VirtualShellToolsD.dproj │ ├── VirtualShellToolsD.res │ ├── VirtualShellToolsDD.dpk │ ├── VirtualShellToolsDD.dproj │ └── VirtualShellToolsDD.res └── Tokyo │ ├── Delphi.groupproj │ ├── VirtualShellToolsD.dpk │ ├── VirtualShellToolsD.dproj │ ├── VirtualShellToolsD.res │ ├── VirtualShellToolsDD.dpk │ ├── VirtualShellToolsDD.dproj │ └── VirtualShellToolsDD.res ├── Demos ├── Adding Custom Columns Using ShellDetails │ ├── ShellDetailsCustomColumns.dpr │ ├── ShellDetailsCustomColumns.res │ ├── Unit1.dfm │ └── Unit1.pas ├── Applet and Wizard Launcher │ ├── AppletWizardLauncher.dpr │ ├── AppletWizardLauncher.res │ ├── Unit1.dfm │ └── Unit1.pas ├── AutoComplete Component │ ├── AutoCompleteComponentProject.dpr │ ├── AutoCompleteComponentProject.res │ ├── Unit1.dfm │ └── Unit1.pas ├── AutoCompleteObject │ ├── AutoCompleteObject.dpr │ ├── AutoCompleteObject.res │ ├── Unit1.dfm │ └── Unit1.pas ├── Backgnd Menu │ ├── BkGndMenuProject.dpr │ ├── Unit1.dfm │ └── Unit1.pas ├── CheckBoxes │ ├── CheckBoxes.dpr │ ├── CheckBoxes.res │ ├── TEST.TXT │ ├── Unit1.dfm │ └── Unit1.pas ├── Custom Columns │ ├── CustomColumnProject.dpr │ ├── CustomColumnProject.res │ ├── Unit1.dfm │ └── Unit1.pas ├── Custom Sorting │ ├── CustomSortProject.dpr │ ├── Unit1.dfm │ └── Unit1.pas ├── DOS Shell CommandLine │ ├── DOSCommandLineProject.dpr │ ├── DOSCommandLineProject.res │ ├── Unit1.dfm │ └── Unit1.pas ├── Explorer CheckBoxes │ ├── ExplorerCheckboxes.dpr │ ├── ExplorerCheckboxes.res │ ├── InfoForm.dfm │ ├── InfoForm.pas │ ├── Tree.dat │ ├── Unit1.dfm │ ├── Unit1.pas │ └── VirtualCheckboxesSynchronizer.pas ├── File Search │ ├── FileSearch.dpr │ ├── FindFile.pas │ ├── ReadMe.txt │ ├── uWndSearchFiles.dfm │ └── uWndSearchFiles.pas ├── FileSearch │ ├── FileSearchProject.cfg │ ├── FileSearchProject.dof │ ├── FileSearchProject.dpr │ ├── Unit1.dfm │ └── Unit1.pas ├── FolderSize │ ├── FolderSizeDemo.dpr │ ├── FolderSizeDemo.res │ ├── Unit1.dfm │ └── Unit1.pas ├── KnownFolders │ ├── KnwonwFoldersProject.dpr │ ├── Unit1.dfm │ └── Unit1.pas ├── Namespace Browser │ ├── NamespaceBrowserProject.dpr │ ├── NamespaceBrowserProject.res │ ├── Unit1.dfm │ └── Unit1.pas ├── Overview │ ├── InfoForm.dfm │ ├── InfoForm.pas │ ├── Unit1.dfm │ ├── Unit1.pas │ ├── VET.dpr │ ├── VET.dproj │ ├── VET.res │ └── VETBkgnd.bmp ├── PrevDirNode EasyListview │ ├── EasyListviewPrevFolderProject.dpr │ ├── Unit1.dfm │ └── Unit1.pas ├── PrevDirNode │ ├── Project1.dpr │ ├── Project1.res │ ├── Unit1.dfm │ └── Unit1.pas ├── Readme.txt ├── SendTo Menu │ ├── Back.bmp │ ├── Fwd.bmp │ ├── SendTo Menu TBX │ │ ├── Back.bmp │ │ ├── Fwd.bmp │ │ ├── SendToMenuProject.dpr │ │ ├── SendToMenuProject.res │ │ ├── Unit1.dfm │ │ ├── Unit1.pas │ │ └── folder.bmp │ ├── SendToMenuProject.dpr │ ├── SendToMenuProject.res │ ├── Unit1.dfm │ ├── Unit1.pas │ └── folder.bmp ├── Shell History │ ├── ShellHistory.dpr │ ├── ShellHistory.res │ ├── TBX Enabled Demo │ │ ├── ShellHistoryTBX.dpr │ │ ├── ShellHistoryTBX.res │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Unit1.dfm │ └── Unit1.pas ├── Shell Link Shortcuts │ ├── ShellLinkShortcuts.dpr │ ├── ShellLinkShortcuts.res │ ├── Unit1.dfm │ └── Unit1.pas ├── Shell Notify │ ├── ShellNotify.dpr │ ├── ShellNotify.res │ ├── Unit1.dfm │ ├── Unit1.pas │ ├── Unit2.dfm │ └── Unit2.pas ├── ShellColumn State Storing │ ├── ShellColumnStateStoring.dpr │ ├── ShellColumnStateStoring.res │ ├── Unit1.dfm │ └── Unit1.pas ├── ShellNew (New File) Menu │ ├── ShellNew_NewFileMenu.dpr │ ├── ShellNew_NewFileMenu.res │ ├── TBX Enabled Demo │ │ ├── ShellNew_NewFileMenuTBX.dpr │ │ ├── ShellNew_NewFileMenuTBX.res │ │ ├── Unit1.dfm │ │ └── Unit1.pas │ ├── Unit1.dfm │ └── Unit1.pas ├── ShellToolbars │ ├── ShellToolbars.dpr │ ├── ShellToolbars.res │ ├── Unit1.dfm │ └── Unit1.pas ├── User Data │ ├── Unit1.dfm │ ├── Unit1.pas │ ├── UserDataProject.dpr │ └── UserDataProject.res ├── Vertical Icons Custom Draw │ ├── ProjectVerticalIcons.cfg │ ├── ProjectVerticalIcons.dof │ ├── ProjectVerticalIcons.dpr │ ├── ProjectVerticalIcons.res │ ├── Unit1.dfm │ └── Unit1.pas ├── Virtual Explorer │ ├── About.dfm │ ├── About.pas │ ├── Event.log │ ├── Unit1.dfm │ ├── Unit1.pas │ ├── VST Logo 1.bmp │ ├── VirtualExplorer.cfg │ ├── VirtualExplorer.dof │ ├── VirtualExplorer.dpr │ ├── VirtualExplorer.res │ └── bugreport.txt ├── VirtualDropStack │ ├── DropStackProject.cfg │ ├── DropStackProject.dof │ ├── DropStackProject.dpr │ ├── DropStackProject.res │ ├── Unit1.dfm │ └── Unit1.pas ├── VirtualEasyListModeView │ ├── EasyListModeViewProjectGroup.bpg │ ├── Unit1.dfm │ ├── Unit1.pas │ ├── VirtualExplorerListModeViewProject.dpr │ └── VirtualExplorerListModeViewProject.res ├── VirtualEasyListviewCustomContextMenu │ ├── Unit1.dfm │ ├── Unit1.pas │ └── VirtaulExplorerEasyListviewMEnuProject.dpr ├── VirtualExplorerEasyListview │ ├── Unit1.dfm │ ├── Unit1.pas │ ├── VEasyListviewProject.cfg │ ├── VEasyListviewProject.dof │ ├── VEasyListviewProject.dpr │ └── VEasyListviewProject.res ├── VirtualShellToolsDemos.bpg └── Wow64 File Redirection │ ├── Unit1.dfm │ ├── Unit1.pas │ ├── Wow64FileRedirection.dpr │ ├── Wow64FileRedirection.dproj │ └── Wow64FileRedirection.res ├── Design ├── VirtualExplorerListviewExReg.dcr ├── VirtualExplorerListviewExReg.pas ├── VirtualShellToolsReg.dcr └── VirtualShellToolsReg.pas ├── Docs ├── CBuilder 6 Issues.txt ├── Unicode Compatibilty.txt ├── VirtualShellTools History.txt └── Whats New.txt ├── Include ├── Addins.inc └── uxtheme.h ├── LICENCE ├── Resources └── Images │ ├── Bkgnd.bmp │ ├── Folder Funnel 24x24.bmp │ ├── Setup Gear 24x24.bmp │ ├── Setup Gear 32x32.bmp │ ├── VET_Logo.png │ ├── ViewButton.bmp │ ├── XDisk.bmp │ ├── XPBackArrow 24x24.bmp │ ├── XPBackArrow.bmp │ ├── XPFolders 16x16.bmp │ ├── XPFolders 24x24.bmp │ ├── XPFolders.bmp │ ├── XPHistory 16x16.bmp │ ├── XPHistory 24x24.bmp │ ├── XPListviewStyle.bmp │ ├── XPNextArrow 24x24.bmp │ ├── XPNextArrow.bmp │ ├── XPSearch 24x24.bmp │ ├── XPSearch.bmp │ ├── XPSearch2.bmp │ ├── XPSearch2Small.bmp │ └── XPUpFolder.bmp ├── Source ├── AppletsAndWizards.pas ├── ColumnForm.dfm ├── ColumnForm.pas ├── ColumnFormSpTBX.pas ├── ColumnFormTBX.dfm ├── VirtualBreadCrumbBar.pas ├── VirtualCommandLine.pas ├── VirtualExplorerEasyListModeview.pas ├── VirtualExplorerEasyListview.pas ├── VirtualExplorerTree.pas ├── VirtualExplorerTreeExt.res ├── VirtualFileSearch.pas ├── VirtualRedirector.pas ├── VirtualResources.pas ├── VirtualScrollbars.pas ├── VirtualSendToMenu.pas ├── VirtualShellAutoComplete.pas ├── VirtualShellHistory.pas ├── VirtualShellNewMenu.pas ├── VirtualShellNotifier.pas ├── VirtualShellToolBar.pas └── VirtualThumbnails.pas └── readme.md /.gitattributes: -------------------------------------------------------------------------------- 1 | # Set the default behavior, in case people don't have core.autocrlf set. 2 | * text=auto 3 | 4 | # Explicitly declare text files you want to always be normalized and converted 5 | # to native line endings on checkout. 6 | *.pas text 7 | *.dfm text 8 | *.md text 9 | *.txt text 10 | *.java text 11 | *.cs text 12 | *.dpk -text 13 | *.dproj -text 14 | *.groupproj -text 15 | 16 | # Declare files that will always have CRLF line endings on checkout. 17 | 18 | # Denote all files that are truly binary and should not be modified. 19 | *.exe binary 20 | *.res binary 21 | -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | # Compiled source # 2 | ################### 3 | *.dcu 4 | *.obj 5 | *.exe 6 | *.bpl 7 | *.bpi 8 | *.dcp 9 | *.rsm 10 | *.stat 11 | *.map 12 | *.lib 13 | 14 | # Generated source # 15 | ################### 16 | *.hpp 17 | 18 | # Backup files # 19 | ################### 20 | *.~* 21 | *.bak 22 | *.#00 23 | *.pch 24 | *.Patch 25 | /__history 26 | 27 | # IDE Files # 28 | ################### 29 | *.dproj.local 30 | *.groupproj.local 31 | *.identcache 32 | *.dsk 33 | *.tvsconfig 34 | *.otares 35 | *.drc 36 | *.rc 37 | *.res 38 | *.local 39 | 40 | # Output Folders # 41 | ################### 42 | /Win32 43 | /Win64 44 | /OSX32 45 | 46 | # C++ Files # 47 | ################### 48 | *.prjmgc 49 | 50 | -------------------------------------------------------------------------------- /CBuilder/11AndAbove/CBuilder.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {08E512AA-B6C7-4392-B232-FE72BB50BC69} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /CBuilder/11AndAbove/VirtualShellToolsC.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | USEFORMNS("..\..\Source\ColumnForm.pas", Columnform, FormColumnSettings); 6 | //--------------------------------------------------------------------------- 7 | #pragma package(smart_init) 8 | //--------------------------------------------------------------------------- 9 | 10 | // Package source. 11 | //--------------------------------------------------------------------------- 12 | 13 | #pragma argsused 14 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 15 | { 16 | return 1; 17 | } 18 | //--------------------------------------------------------------------------- 19 | -------------------------------------------------------------------------------- /CBuilder/11AndAbove/VirtualShellToolsC.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/11AndAbove/VirtualShellToolsC.ico -------------------------------------------------------------------------------- /CBuilder/11AndAbove/VirtualShellToolsCD.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package source. 9 | //--------------------------------------------------------------------------- 10 | 11 | #pragma argsused 12 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 13 | { 14 | return 1; 15 | } 16 | //--------------------------------------------------------------------------- 17 | -------------------------------------------------------------------------------- /CBuilder/11AndAbove/VirtualShellToolsCD.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/11AndAbove/VirtualShellToolsCD.ico -------------------------------------------------------------------------------- /CBuilder/Berlin/CBuilder.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {08E512AA-B6C7-4392-B232-FE72BB50BC69} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /CBuilder/Berlin/VirtualShellToolsC.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | USEFORMNS("..\..\Source\ColumnForm.pas", Columnform, FormColumnSettings); 6 | //--------------------------------------------------------------------------- 7 | #pragma package(smart_init) 8 | //--------------------------------------------------------------------------- 9 | 10 | // Package source. 11 | //--------------------------------------------------------------------------- 12 | 13 | #pragma argsused 14 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 15 | { 16 | return 1; 17 | } 18 | //--------------------------------------------------------------------------- 19 | -------------------------------------------------------------------------------- /CBuilder/Berlin/VirtualShellToolsC.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Berlin/VirtualShellToolsC.ico -------------------------------------------------------------------------------- /CBuilder/Berlin/VirtualShellToolsC.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Berlin/VirtualShellToolsC.res -------------------------------------------------------------------------------- /CBuilder/Berlin/VirtualShellToolsCD.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package source. 9 | //--------------------------------------------------------------------------- 10 | 11 | #pragma argsused 12 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 13 | { 14 | return 1; 15 | } 16 | //--------------------------------------------------------------------------- 17 | -------------------------------------------------------------------------------- /CBuilder/Berlin/VirtualShellToolsCD.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Berlin/VirtualShellToolsCD.ico -------------------------------------------------------------------------------- /CBuilder/Berlin/VirtualShellToolsCD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Berlin/VirtualShellToolsCD.res -------------------------------------------------------------------------------- /CBuilder/Rio/CBuilder.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {08E512AA-B6C7-4392-B232-FE72BB50BC69} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /CBuilder/Rio/VirtualShellToolsC.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | USEFORMNS("..\..\Source\ColumnForm.pas", Columnform, FormColumnSettings); 6 | //--------------------------------------------------------------------------- 7 | #pragma package(smart_init) 8 | //--------------------------------------------------------------------------- 9 | 10 | // Package source. 11 | //--------------------------------------------------------------------------- 12 | 13 | #pragma argsused 14 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 15 | { 16 | return 1; 17 | } 18 | //--------------------------------------------------------------------------- 19 | -------------------------------------------------------------------------------- /CBuilder/Rio/VirtualShellToolsC.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Rio/VirtualShellToolsC.ico -------------------------------------------------------------------------------- /CBuilder/Rio/VirtualShellToolsC.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Rio/VirtualShellToolsC.res -------------------------------------------------------------------------------- /CBuilder/Rio/VirtualShellToolsCD.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package source. 9 | //--------------------------------------------------------------------------- 10 | 11 | #pragma argsused 12 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 13 | { 14 | return 1; 15 | } 16 | //--------------------------------------------------------------------------- 17 | -------------------------------------------------------------------------------- /CBuilder/Rio/VirtualShellToolsCD.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Rio/VirtualShellToolsCD.ico -------------------------------------------------------------------------------- /CBuilder/Rio/VirtualShellToolsCD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Rio/VirtualShellToolsCD.res -------------------------------------------------------------------------------- /CBuilder/Sydney/CBuilder.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {08E512AA-B6C7-4392-B232-FE72BB50BC69} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /CBuilder/Sydney/VirtualShellToolsC.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | USEFORMNS("..\..\Source\ColumnForm.pas", Columnform, FormColumnSettings); 6 | //--------------------------------------------------------------------------- 7 | #pragma package(smart_init) 8 | //--------------------------------------------------------------------------- 9 | 10 | // Package source. 11 | //--------------------------------------------------------------------------- 12 | 13 | #pragma argsused 14 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 15 | { 16 | return 1; 17 | } 18 | //--------------------------------------------------------------------------- 19 | -------------------------------------------------------------------------------- /CBuilder/Sydney/VirtualShellToolsC.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Sydney/VirtualShellToolsC.ico -------------------------------------------------------------------------------- /CBuilder/Sydney/VirtualShellToolsC.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Sydney/VirtualShellToolsC.res -------------------------------------------------------------------------------- /CBuilder/Sydney/VirtualShellToolsCD.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package source. 9 | //--------------------------------------------------------------------------- 10 | 11 | #pragma argsused 12 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 13 | { 14 | return 1; 15 | } 16 | //--------------------------------------------------------------------------- 17 | -------------------------------------------------------------------------------- /CBuilder/Sydney/VirtualShellToolsCD.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Sydney/VirtualShellToolsCD.ico -------------------------------------------------------------------------------- /CBuilder/Sydney/VirtualShellToolsCD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Sydney/VirtualShellToolsCD.res -------------------------------------------------------------------------------- /CBuilder/Tokyo/CBuilder.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {08E512AA-B6C7-4392-B232-FE72BB50BC69} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /CBuilder/Tokyo/VirtualShellToolsC.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | USEFORMNS("..\..\Source\ColumnForm.pas", Columnform, FormColumnSettings); 6 | //--------------------------------------------------------------------------- 7 | #pragma package(smart_init) 8 | //--------------------------------------------------------------------------- 9 | 10 | // Package source. 11 | //--------------------------------------------------------------------------- 12 | 13 | #pragma argsused 14 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 15 | { 16 | return 1; 17 | } 18 | //--------------------------------------------------------------------------- 19 | -------------------------------------------------------------------------------- /CBuilder/Tokyo/VirtualShellToolsC.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Tokyo/VirtualShellToolsC.ico -------------------------------------------------------------------------------- /CBuilder/Tokyo/VirtualShellToolsC.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Tokyo/VirtualShellToolsC.res -------------------------------------------------------------------------------- /CBuilder/Tokyo/VirtualShellToolsCD.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package source. 9 | //--------------------------------------------------------------------------- 10 | 11 | #pragma argsused 12 | int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*) 13 | { 14 | return 1; 15 | } 16 | //--------------------------------------------------------------------------- 17 | -------------------------------------------------------------------------------- /CBuilder/Tokyo/VirtualShellToolsCD.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Tokyo/VirtualShellToolsCD.ico -------------------------------------------------------------------------------- /CBuilder/Tokyo/VirtualShellToolsCD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/CBuilder/Tokyo/VirtualShellToolsCD.res -------------------------------------------------------------------------------- /Delphi/11AndAbove/Delphi.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {89D072DB-A12D-432C-B37E-6B8989CE4962} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /Delphi/11AndAbove/VirtualShellToolsD.dpk: -------------------------------------------------------------------------------- 1 | package VirtualShellToolsD; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS OFF} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE RELEASE} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESCRIPTION 'VirtualShellTools Delphi Runtime Package'} 29 | {$LIBSUFFIX AUTO} 30 | {$RUNONLY} 31 | {$IMPLICITBUILD OFF} 32 | 33 | requires 34 | rtl, 35 | vcl, 36 | vclimg, 37 | EasyListviewD, 38 | MPCommonLibD, 39 | VirtualTreesDR; 40 | 41 | contains 42 | AppletsAndWizards in '..\..\Source\AppletsAndWizards.pas', 43 | VirtualCommandLine in '..\..\Source\VirtualCommandLine.pas', 44 | VirtualExplorerTree in '..\..\Source\VirtualExplorerTree.pas', 45 | VirtualRedirector in '..\..\Source\VirtualRedirector.pas', 46 | VirtualResources in '..\..\Source\VirtualResources.pas', 47 | VirtualScrollbars in '..\..\Source\VirtualScrollbars.pas', 48 | VirtualSendToMenu in '..\..\Source\VirtualSendToMenu.pas', 49 | VirtualShellAutoComplete in '..\..\Source\VirtualShellAutoComplete.pas', 50 | VirtualShellHistory in '..\..\Source\VirtualShellHistory.pas', 51 | VirtualShellNewMenu in '..\..\Source\VirtualShellNewMenu.pas', 52 | VirtualShellNotifier in '..\..\Source\VirtualShellNotifier.pas', 53 | VirtualShellToolBar in '..\..\Source\VirtualShellToolBar.pas', 54 | VirtualThumbnails in '..\..\Source\VirtualThumbnails.pas', 55 | VirtualExplorerEasyListview in '..\..\Source\VirtualExplorerEasyListview.pas', 56 | VirtualExplorerEasyListModeview in '..\..\Source\VirtualExplorerEasyListModeview.pas', 57 | VirtualFileSearch in '..\..\Source\VirtualFileSearch.pas', 58 | ColumnForm in '..\..\Source\ColumnForm.pas' {FormColumnSettings}; 59 | 60 | end. 61 | -------------------------------------------------------------------------------- /Delphi/11AndAbove/VirtualShellToolsDD.dpk: -------------------------------------------------------------------------------- 1 | package VirtualShellToolsDD; 2 | 3 | {$R *.res} 4 | {$R '..\..\Design\VirtualShellToolsReg.dcr'} 5 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 6 | {$ALIGN 8} 7 | {$ASSERTIONS ON} 8 | {$BOOLEVAL OFF} 9 | {$DEBUGINFO OFF} 10 | {$EXTENDEDSYNTAX ON} 11 | {$IMPORTEDDATA ON} 12 | {$IOCHECKS ON} 13 | {$LOCALSYMBOLS OFF} 14 | {$LONGSTRINGS ON} 15 | {$OPENSTRINGS ON} 16 | {$OPTIMIZATION ON} 17 | {$OVERFLOWCHECKS OFF} 18 | {$RANGECHECKS OFF} 19 | {$REFERENCEINFO OFF} 20 | {$SAFEDIVIDE OFF} 21 | {$STACKFRAMES OFF} 22 | {$TYPEDADDRESS OFF} 23 | {$VARSTRINGCHECKS ON} 24 | {$WRITEABLECONST OFF} 25 | {$MINENUMSIZE 1} 26 | {$IMAGEBASE $400000} 27 | {$DEFINE RELEASE} 28 | {$ENDIF IMPLICITBUILDING} 29 | {$DESCRIPTION 'Virtual Shell Tools Delphi Designtime Package'} 30 | {$LIBSUFFIX AUTO} 31 | {$DESIGNONLY} 32 | {$IMPLICITBUILD OFF} 33 | 34 | requires 35 | vcl, 36 | rtl, 37 | designide, 38 | vclactnband, 39 | vclx, 40 | EasyListviewD, 41 | VirtualShellToolsD; 42 | 43 | contains 44 | VirtualShellToolsReg in '..\..\Design\VirtualShellToolsReg.pas'; 45 | 46 | end. 47 | -------------------------------------------------------------------------------- /Delphi/Berlin/Delphi.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {89D072DB-A12D-432C-B37E-6B8989CE4962} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /Delphi/Berlin/VirtualShellToolsD.dpk: -------------------------------------------------------------------------------- 1 | package VirtualShellToolsD; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS OFF} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE RELEASE} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESCRIPTION 'VirtualShellTools Delphi Runtime Package'} 29 | {$LIBSUFFIX '240'} 30 | {$RUNONLY} 31 | {$IMPLICITBUILD OFF} 32 | 33 | requires 34 | rtl, 35 | vcl, 36 | vclimg, 37 | EasyListviewD, 38 | MPCommonLibD, 39 | VirtualTreesDR; 40 | 41 | contains 42 | AppletsAndWizards in '..\..\Source\AppletsAndWizards.pas', 43 | VirtualCommandLine in '..\..\Source\VirtualCommandLine.pas', 44 | VirtualExplorerTree in '..\..\Source\VirtualExplorerTree.pas', 45 | VirtualRedirector in '..\..\Source\VirtualRedirector.pas', 46 | VirtualResources in '..\..\Source\VirtualResources.pas', 47 | VirtualScrollbars in '..\..\Source\VirtualScrollbars.pas', 48 | VirtualSendToMenu in '..\..\Source\VirtualSendToMenu.pas', 49 | VirtualShellAutoComplete in '..\..\Source\VirtualShellAutoComplete.pas', 50 | VirtualShellHistory in '..\..\Source\VirtualShellHistory.pas', 51 | VirtualShellNewMenu in '..\..\Source\VirtualShellNewMenu.pas', 52 | VirtualShellNotifier in '..\..\Source\VirtualShellNotifier.pas', 53 | VirtualShellToolBar in '..\..\Source\VirtualShellToolBar.pas', 54 | VirtualThumbnails in '..\..\Source\VirtualThumbnails.pas', 55 | VirtualExplorerEasyListview in '..\..\Source\VirtualExplorerEasyListview.pas', 56 | VirtualExplorerEasyListModeview in '..\..\Source\VirtualExplorerEasyListModeview.pas', 57 | VirtualFileSearch in '..\..\Source\VirtualFileSearch.pas', 58 | ColumnForm in '..\..\Source\ColumnForm.pas' {FormColumnSettings}; 59 | 60 | end. 61 | -------------------------------------------------------------------------------- /Delphi/Berlin/VirtualShellToolsD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Berlin/VirtualShellToolsD.res -------------------------------------------------------------------------------- /Delphi/Berlin/VirtualShellToolsDD.dpk: -------------------------------------------------------------------------------- 1 | package VirtualShellToolsDD; 2 | 3 | {$R *.res} 4 | {$R '..\..\Design\VirtualShellToolsReg.dcr'} 5 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 6 | {$ALIGN 8} 7 | {$ASSERTIONS ON} 8 | {$BOOLEVAL OFF} 9 | {$DEBUGINFO OFF} 10 | {$EXTENDEDSYNTAX ON} 11 | {$IMPORTEDDATA ON} 12 | {$IOCHECKS ON} 13 | {$LOCALSYMBOLS OFF} 14 | {$LONGSTRINGS ON} 15 | {$OPENSTRINGS ON} 16 | {$OPTIMIZATION ON} 17 | {$OVERFLOWCHECKS OFF} 18 | {$RANGECHECKS OFF} 19 | {$REFERENCEINFO OFF} 20 | {$SAFEDIVIDE OFF} 21 | {$STACKFRAMES OFF} 22 | {$TYPEDADDRESS OFF} 23 | {$VARSTRINGCHECKS ON} 24 | {$WRITEABLECONST OFF} 25 | {$MINENUMSIZE 1} 26 | {$IMAGEBASE $400000} 27 | {$DEFINE RELEASE} 28 | {$ENDIF IMPLICITBUILDING} 29 | {$DESCRIPTION 'Virtual Shell Tools Delphi Designtime Package'} 30 | {$LIBSUFFIX '240'} 31 | {$DESIGNONLY} 32 | {$IMPLICITBUILD OFF} 33 | 34 | requires 35 | vcl, 36 | rtl, 37 | designide, 38 | vclactnband, 39 | vclx, 40 | EasyListviewD, 41 | VirtualShellToolsD; 42 | 43 | contains 44 | VirtualShellToolsReg in '..\..\Design\VirtualShellToolsReg.pas'; 45 | 46 | end. 47 | -------------------------------------------------------------------------------- /Delphi/Berlin/VirtualShellToolsDD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Berlin/VirtualShellToolsDD.res -------------------------------------------------------------------------------- /Delphi/Jam-VT/Delphi.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {89D072DB-A12D-432C-B37E-6B8989CE4962} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /Delphi/Jam-VT/VirtualShellToolsD.dpk: -------------------------------------------------------------------------------- 1 | package VirtualShellToolsD; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS OFF} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE RELEASE} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESCRIPTION 'VirtualShellTools Delphi Runtime Package'} 29 | {$LIBSUFFIX AUTO} 30 | {$RUNONLY} 31 | {$IMPLICITBUILD OFF} 32 | 33 | requires 34 | rtl, 35 | vcl, 36 | vclimg, 37 | EasyListviewD, 38 | MPCommonLibD, 39 | VirtualTreesR; 40 | 41 | contains 42 | AppletsAndWizards in '..\..\Source\AppletsAndWizards.pas', 43 | VirtualCommandLine in '..\..\Source\VirtualCommandLine.pas', 44 | VirtualExplorerTree in '..\..\Source\VirtualExplorerTree.pas', 45 | VirtualRedirector in '..\..\Source\VirtualRedirector.pas', 46 | VirtualResources in '..\..\Source\VirtualResources.pas', 47 | VirtualScrollbars in '..\..\Source\VirtualScrollbars.pas', 48 | VirtualSendToMenu in '..\..\Source\VirtualSendToMenu.pas', 49 | VirtualShellAutoComplete in '..\..\Source\VirtualShellAutoComplete.pas', 50 | VirtualShellHistory in '..\..\Source\VirtualShellHistory.pas', 51 | VirtualShellNewMenu in '..\..\Source\VirtualShellNewMenu.pas', 52 | VirtualShellNotifier in '..\..\Source\VirtualShellNotifier.pas', 53 | VirtualShellToolBar in '..\..\Source\VirtualShellToolBar.pas', 54 | VirtualThumbnails in '..\..\Source\VirtualThumbnails.pas', 55 | VirtualExplorerEasyListview in '..\..\Source\VirtualExplorerEasyListview.pas', 56 | VirtualExplorerEasyListModeview in '..\..\Source\VirtualExplorerEasyListModeview.pas', 57 | VirtualFileSearch in '..\..\Source\VirtualFileSearch.pas', 58 | ColumnForm in '..\..\Source\ColumnForm.pas' {FormColumnSettings}; 59 | 60 | end. 61 | -------------------------------------------------------------------------------- /Delphi/Jam-VT/VirtualShellToolsD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Jam-VT/VirtualShellToolsD.res -------------------------------------------------------------------------------- /Delphi/Jam-VT/VirtualShellToolsDD.dpk: -------------------------------------------------------------------------------- 1 | package VirtualShellToolsDD; 2 | 3 | {$R *.res} 4 | {$R '..\..\Design\VirtualShellToolsReg.dcr'} 5 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 6 | {$ALIGN 8} 7 | {$ASSERTIONS ON} 8 | {$BOOLEVAL OFF} 9 | {$DEBUGINFO OFF} 10 | {$EXTENDEDSYNTAX ON} 11 | {$IMPORTEDDATA ON} 12 | {$IOCHECKS ON} 13 | {$LOCALSYMBOLS OFF} 14 | {$LONGSTRINGS ON} 15 | {$OPENSTRINGS ON} 16 | {$OPTIMIZATION ON} 17 | {$OVERFLOWCHECKS OFF} 18 | {$RANGECHECKS OFF} 19 | {$REFERENCEINFO OFF} 20 | {$SAFEDIVIDE OFF} 21 | {$STACKFRAMES OFF} 22 | {$TYPEDADDRESS OFF} 23 | {$VARSTRINGCHECKS ON} 24 | {$WRITEABLECONST OFF} 25 | {$MINENUMSIZE 1} 26 | {$IMAGEBASE $400000} 27 | {$DEFINE RELEASE} 28 | {$ENDIF IMPLICITBUILDING} 29 | {$DESCRIPTION 'Virtual Shell Tools Delphi Designtime Package'} 30 | {$LIBSUFFIX AUTO} 31 | {$DESIGNONLY} 32 | {$IMPLICITBUILD OFF} 33 | 34 | requires 35 | vcl, 36 | rtl, 37 | designide, 38 | vclactnband, 39 | vclx, 40 | EasyListviewD, 41 | VirtualShellToolsD; 42 | 43 | contains 44 | VirtualShellToolsReg in '..\..\Design\VirtualShellToolsReg.pas'; 45 | 46 | end. 47 | -------------------------------------------------------------------------------- /Delphi/Jam-VT/VirtualShellToolsDD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Jam-VT/VirtualShellToolsDD.res -------------------------------------------------------------------------------- /Delphi/Jam-VT/readme.md: -------------------------------------------------------------------------------- 1 | This directory contains alternative Delphi packages that allow VirtualShellTools to be used with the 2 | [Jam-Software version of Virtual-Treeview](https://github.com/JAM-Software/Virtual-TreeView) -------------------------------------------------------------------------------- /Delphi/Rio/Delphi.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {89D072DB-A12D-432C-B37E-6B8989CE4962} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /Delphi/Rio/VirtualShellToolsD.dpk: -------------------------------------------------------------------------------- 1 | package VirtualShellToolsD; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS OFF} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE RELEASE} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESCRIPTION 'VirtualShellTools Delphi Runtime Package'} 29 | {$LIBSUFFIX '260'} 30 | {$RUNONLY} 31 | {$IMPLICITBUILD OFF} 32 | 33 | requires 34 | rtl, 35 | vcl, 36 | vclimg, 37 | EasyListviewD, 38 | MPCommonLibD, 39 | VirtualTreesDR; 40 | 41 | contains 42 | AppletsAndWizards in '..\..\Source\AppletsAndWizards.pas', 43 | VirtualCommandLine in '..\..\Source\VirtualCommandLine.pas', 44 | VirtualExplorerTree in '..\..\Source\VirtualExplorerTree.pas', 45 | VirtualRedirector in '..\..\Source\VirtualRedirector.pas', 46 | VirtualResources in '..\..\Source\VirtualResources.pas', 47 | VirtualScrollbars in '..\..\Source\VirtualScrollbars.pas', 48 | VirtualSendToMenu in '..\..\Source\VirtualSendToMenu.pas', 49 | VirtualShellAutoComplete in '..\..\Source\VirtualShellAutoComplete.pas', 50 | VirtualShellHistory in '..\..\Source\VirtualShellHistory.pas', 51 | VirtualShellNewMenu in '..\..\Source\VirtualShellNewMenu.pas', 52 | VirtualShellNotifier in '..\..\Source\VirtualShellNotifier.pas', 53 | VirtualShellToolBar in '..\..\Source\VirtualShellToolBar.pas', 54 | VirtualThumbnails in '..\..\Source\VirtualThumbnails.pas', 55 | VirtualExplorerEasyListview in '..\..\Source\VirtualExplorerEasyListview.pas', 56 | VirtualExplorerEasyListModeview in '..\..\Source\VirtualExplorerEasyListModeview.pas', 57 | VirtualFileSearch in '..\..\Source\VirtualFileSearch.pas', 58 | ColumnForm in '..\..\Source\ColumnForm.pas' {FormColumnSettings}; 59 | 60 | end. 61 | -------------------------------------------------------------------------------- /Delphi/Rio/VirtualShellToolsD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Rio/VirtualShellToolsD.res -------------------------------------------------------------------------------- /Delphi/Rio/VirtualShellToolsDD.dpk: -------------------------------------------------------------------------------- 1 | package VirtualShellToolsDD; 2 | 3 | {$R *.res} 4 | {$R '..\..\Design\VirtualShellToolsReg.dcr'} 5 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 6 | {$ALIGN 8} 7 | {$ASSERTIONS ON} 8 | {$BOOLEVAL OFF} 9 | {$DEBUGINFO OFF} 10 | {$EXTENDEDSYNTAX ON} 11 | {$IMPORTEDDATA ON} 12 | {$IOCHECKS ON} 13 | {$LOCALSYMBOLS OFF} 14 | {$LONGSTRINGS ON} 15 | {$OPENSTRINGS ON} 16 | {$OPTIMIZATION ON} 17 | {$OVERFLOWCHECKS OFF} 18 | {$RANGECHECKS OFF} 19 | {$REFERENCEINFO OFF} 20 | {$SAFEDIVIDE OFF} 21 | {$STACKFRAMES OFF} 22 | {$TYPEDADDRESS OFF} 23 | {$VARSTRINGCHECKS ON} 24 | {$WRITEABLECONST OFF} 25 | {$MINENUMSIZE 1} 26 | {$IMAGEBASE $400000} 27 | {$DEFINE RELEASE} 28 | {$ENDIF IMPLICITBUILDING} 29 | {$DESCRIPTION 'Virtual Shell Tools Delphi Designtime Package'} 30 | {$LIBSUFFIX '260'} 31 | {$DESIGNONLY} 32 | {$IMPLICITBUILD OFF} 33 | 34 | requires 35 | vcl, 36 | rtl, 37 | designide, 38 | vclactnband, 39 | vclx, 40 | EasyListviewD, 41 | VirtualShellToolsD; 42 | 43 | contains 44 | VirtualShellToolsReg in '..\..\Design\VirtualShellToolsReg.pas'; 45 | 46 | end. 47 | -------------------------------------------------------------------------------- /Delphi/Rio/VirtualShellToolsDD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Rio/VirtualShellToolsDD.res -------------------------------------------------------------------------------- /Delphi/Sydney/Delphi.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {89D072DB-A12D-432C-B37E-6B8989CE4962} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /Delphi/Sydney/VirtualShellToolsD.dpk: -------------------------------------------------------------------------------- 1 | package VirtualShellToolsD; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS OFF} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE RELEASE} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESCRIPTION 'VirtualShellTools Delphi Runtime Package'} 29 | {$LIBSUFFIX '270'} 30 | {$RUNONLY} 31 | {$IMPLICITBUILD OFF} 32 | 33 | requires 34 | rtl, 35 | vcl, 36 | vclimg, 37 | EasyListviewD, 38 | MPCommonLibD, 39 | VirtualTreesDR; 40 | 41 | contains 42 | AppletsAndWizards in '..\..\Source\AppletsAndWizards.pas', 43 | VirtualCommandLine in '..\..\Source\VirtualCommandLine.pas', 44 | VirtualExplorerTree in '..\..\Source\VirtualExplorerTree.pas', 45 | VirtualRedirector in '..\..\Source\VirtualRedirector.pas', 46 | VirtualResources in '..\..\Source\VirtualResources.pas', 47 | VirtualScrollbars in '..\..\Source\VirtualScrollbars.pas', 48 | VirtualSendToMenu in '..\..\Source\VirtualSendToMenu.pas', 49 | VirtualShellAutoComplete in '..\..\Source\VirtualShellAutoComplete.pas', 50 | VirtualShellHistory in '..\..\Source\VirtualShellHistory.pas', 51 | VirtualShellNewMenu in '..\..\Source\VirtualShellNewMenu.pas', 52 | VirtualShellNotifier in '..\..\Source\VirtualShellNotifier.pas', 53 | VirtualShellToolBar in '..\..\Source\VirtualShellToolBar.pas', 54 | VirtualThumbnails in '..\..\Source\VirtualThumbnails.pas', 55 | VirtualExplorerEasyListview in '..\..\Source\VirtualExplorerEasyListview.pas', 56 | VirtualExplorerEasyListModeview in '..\..\Source\VirtualExplorerEasyListModeview.pas', 57 | VirtualFileSearch in '..\..\Source\VirtualFileSearch.pas', 58 | ColumnForm in '..\..\Source\ColumnForm.pas' {FormColumnSettings}; 59 | 60 | end. 61 | -------------------------------------------------------------------------------- /Delphi/Sydney/VirtualShellToolsD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Sydney/VirtualShellToolsD.res -------------------------------------------------------------------------------- /Delphi/Sydney/VirtualShellToolsDD.dpk: -------------------------------------------------------------------------------- 1 | package VirtualShellToolsDD; 2 | 3 | {$R *.res} 4 | {$R '..\..\Design\VirtualShellToolsReg.dcr'} 5 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 6 | {$ALIGN 8} 7 | {$ASSERTIONS ON} 8 | {$BOOLEVAL OFF} 9 | {$DEBUGINFO OFF} 10 | {$EXTENDEDSYNTAX ON} 11 | {$IMPORTEDDATA ON} 12 | {$IOCHECKS ON} 13 | {$LOCALSYMBOLS OFF} 14 | {$LONGSTRINGS ON} 15 | {$OPENSTRINGS ON} 16 | {$OPTIMIZATION ON} 17 | {$OVERFLOWCHECKS OFF} 18 | {$RANGECHECKS OFF} 19 | {$REFERENCEINFO OFF} 20 | {$SAFEDIVIDE OFF} 21 | {$STACKFRAMES OFF} 22 | {$TYPEDADDRESS OFF} 23 | {$VARSTRINGCHECKS ON} 24 | {$WRITEABLECONST OFF} 25 | {$MINENUMSIZE 1} 26 | {$IMAGEBASE $400000} 27 | {$DEFINE RELEASE} 28 | {$ENDIF IMPLICITBUILDING} 29 | {$DESCRIPTION 'Virtual Shell Tools Delphi Designtime Package'} 30 | {$LIBSUFFIX '270'} 31 | {$DESIGNONLY} 32 | {$IMPLICITBUILD OFF} 33 | 34 | requires 35 | vcl, 36 | rtl, 37 | designide, 38 | vclactnband, 39 | vclx, 40 | EasyListviewD, 41 | VirtualShellToolsD; 42 | 43 | contains 44 | VirtualShellToolsReg in '..\..\Design\VirtualShellToolsReg.pas'; 45 | 46 | end. 47 | -------------------------------------------------------------------------------- /Delphi/Sydney/VirtualShellToolsDD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Sydney/VirtualShellToolsDD.res -------------------------------------------------------------------------------- /Delphi/Tokyo/Delphi.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {89D072DB-A12D-432C-B37E-6B8989CE4962} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | Default.Personality.12 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | -------------------------------------------------------------------------------- /Delphi/Tokyo/VirtualShellToolsD.dpk: -------------------------------------------------------------------------------- 1 | package VirtualShellToolsD; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS OFF} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE RELEASE} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESCRIPTION 'VirtualShellTools Delphi Runtime Package'} 29 | {$LIBSUFFIX '250'} 30 | {$RUNONLY} 31 | {$IMPLICITBUILD OFF} 32 | 33 | requires 34 | rtl, 35 | vcl, 36 | vclimg, 37 | EasyListviewD, 38 | MPCommonLibD, 39 | VirtualTreesDR; 40 | 41 | contains 42 | AppletsAndWizards in '..\..\Source\AppletsAndWizards.pas', 43 | VirtualCommandLine in '..\..\Source\VirtualCommandLine.pas', 44 | VirtualExplorerTree in '..\..\Source\VirtualExplorerTree.pas', 45 | VirtualRedirector in '..\..\Source\VirtualRedirector.pas', 46 | VirtualResources in '..\..\Source\VirtualResources.pas', 47 | VirtualScrollbars in '..\..\Source\VirtualScrollbars.pas', 48 | VirtualSendToMenu in '..\..\Source\VirtualSendToMenu.pas', 49 | VirtualShellAutoComplete in '..\..\Source\VirtualShellAutoComplete.pas', 50 | VirtualShellHistory in '..\..\Source\VirtualShellHistory.pas', 51 | VirtualShellNewMenu in '..\..\Source\VirtualShellNewMenu.pas', 52 | VirtualShellNotifier in '..\..\Source\VirtualShellNotifier.pas', 53 | VirtualShellToolBar in '..\..\Source\VirtualShellToolBar.pas', 54 | VirtualThumbnails in '..\..\Source\VirtualThumbnails.pas', 55 | VirtualExplorerEasyListview in '..\..\Source\VirtualExplorerEasyListview.pas', 56 | VirtualExplorerEasyListModeview in '..\..\Source\VirtualExplorerEasyListModeview.pas', 57 | VirtualFileSearch in '..\..\Source\VirtualFileSearch.pas', 58 | ColumnForm in '..\..\Source\ColumnForm.pas' {FormColumnSettings}; 59 | 60 | end. 61 | -------------------------------------------------------------------------------- /Delphi/Tokyo/VirtualShellToolsD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Tokyo/VirtualShellToolsD.res -------------------------------------------------------------------------------- /Delphi/Tokyo/VirtualShellToolsDD.dpk: -------------------------------------------------------------------------------- 1 | package VirtualShellToolsDD; 2 | 3 | {$R *.res} 4 | {$R '..\..\Design\VirtualShellToolsReg.dcr'} 5 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 6 | {$ALIGN 8} 7 | {$ASSERTIONS ON} 8 | {$BOOLEVAL OFF} 9 | {$DEBUGINFO OFF} 10 | {$EXTENDEDSYNTAX ON} 11 | {$IMPORTEDDATA ON} 12 | {$IOCHECKS ON} 13 | {$LOCALSYMBOLS OFF} 14 | {$LONGSTRINGS ON} 15 | {$OPENSTRINGS ON} 16 | {$OPTIMIZATION ON} 17 | {$OVERFLOWCHECKS OFF} 18 | {$RANGECHECKS OFF} 19 | {$REFERENCEINFO OFF} 20 | {$SAFEDIVIDE OFF} 21 | {$STACKFRAMES OFF} 22 | {$TYPEDADDRESS OFF} 23 | {$VARSTRINGCHECKS ON} 24 | {$WRITEABLECONST OFF} 25 | {$MINENUMSIZE 1} 26 | {$IMAGEBASE $400000} 27 | {$DEFINE RELEASE} 28 | {$ENDIF IMPLICITBUILDING} 29 | {$DESCRIPTION 'Virtual Shell Tools Delphi Designtime Package'} 30 | {$LIBSUFFIX '250'} 31 | {$DESIGNONLY} 32 | {$IMPLICITBUILD OFF} 33 | 34 | requires 35 | vcl, 36 | rtl, 37 | designide, 38 | vclactnband, 39 | vclx, 40 | EasyListviewD, 41 | VirtualShellToolsD; 42 | 43 | contains 44 | VirtualShellToolsReg in '..\..\Design\VirtualShellToolsReg.pas'; 45 | 46 | end. 47 | -------------------------------------------------------------------------------- /Delphi/Tokyo/VirtualShellToolsDD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Delphi/Tokyo/VirtualShellToolsDD.res -------------------------------------------------------------------------------- /Demos/Adding Custom Columns Using ShellDetails/ShellDetailsCustomColumns.dpr: -------------------------------------------------------------------------------- 1 | program ShellDetailsCustomColumns; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.RES} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/Adding Custom Columns Using ShellDetails/ShellDetailsCustomColumns.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Adding Custom Columns Using ShellDetails/ShellDetailsCustomColumns.res -------------------------------------------------------------------------------- /Demos/Adding Custom Columns Using ShellDetails/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 534 3 | Top = 326 4 | Caption = 'Form1' 5 | ClientHeight = 463 6 | ClientWidth = 844 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object VirtualExplorerListview1: TVirtualExplorerListview 17 | Left = 0 18 | Top = 0 19 | Width = 844 20 | Height = 463 21 | Active = True 22 | Align = alClient 23 | ColumnDetails = cdShellColumns 24 | DefaultNodeHeight = 17 25 | DragHeight = 250 26 | DragWidth = 150 27 | FileObjects = [foFolders, foNonFolders, foHidden, foEnableAsync] 28 | FileSizeFormat = fsfExplorer 29 | FileSort = fsFileType 30 | Header.AutoSizeIndex = -1 31 | Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible] 32 | Header.ParentFont = True 33 | Header.SortColumn = 0 34 | Header.Style = hsFlatButtons 35 | HintMode = hmHint 36 | Indent = 0 37 | ParentColor = False 38 | RootFolder = rfDesktop 39 | TabOrder = 0 40 | TabStop = True 41 | TreeOptions.AutoOptions = [toAutoScroll] 42 | TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toReportMode, toToggleOnDblClick] 43 | TreeOptions.PaintOptions = [toShowTreeLines, toUseBlendedImages, toGhostedIfUnfocused] 44 | TreeOptions.SelectionOptions = [toMultiSelect, toRightClickSelect, toSiblingSelectConstraint] 45 | TreeOptions.VETFolderOptions = [toHideRootFolder, toThreadedExpandMark] 46 | TreeOptions.VETShellOptions = [toRightAlignSizeColumn, toContextMenus, toShellColumnMenu] 47 | TreeOptions.VETSyncOptions = [toCollapseTargetFirst, toExpandTarget, toSelectTarget] 48 | TreeOptions.VETMiscOptions = [toBrowseExecuteFolder, toBrowseExecuteFolderShortcut, toBrowseExecuteZipFolder, toChangeNotifierThread, toExecuteOnDblClk] 49 | TreeOptions.VETImageOptions = [toImages, toThreadedImages, toMarkCutAndCopy] 50 | OnCustomColumnCompare = ExplorerListview1CustomColumnCompare 51 | OnGetVETText = ExplorerListview1GetVETText 52 | ColumnMenuItemCount = 8 53 | OnHeaderRebuild = ExplorerListview1HeaderRebuild 54 | end 55 | end 56 | -------------------------------------------------------------------------------- /Demos/Adding Custom Columns Using ShellDetails/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 7 | ExtCtrls, VirtualExplorerTree, VirtualTrees, MPShellUtilities, 8 | StdCtrls; 9 | 10 | type 11 | TForm1 = class(TForm) 12 | VirtualExplorerListview1: TVirtualExplorerListview; 13 | procedure ExplorerListview1GetVETText( 14 | Sender: TCustomVirtualExplorerTree; Column: TColumnIndex; 15 | Node: PVirtualNode; Namespace: TNamespace; var Text: string); 16 | procedure ExplorerListview1HeaderRebuild(Sender: TCustomVirtualExplorerTree; 17 | Header: TVTHeader); 18 | procedure ExplorerListview1CustomColumnCompare( 19 | Sender: TCustomVirtualExplorerTree; Column: TColumnIndex; Node1, 20 | Node2: PVirtualNode; var Result: Integer); 21 | private 22 | { Private declarations } 23 | public 24 | { Public declarations } 25 | CustomIndex: integer; 26 | end; 27 | 28 | var 29 | Form1: TForm1; 30 | 31 | implementation 32 | 33 | {$R *.DFM} 34 | 35 | procedure TForm1.ExplorerListview1GetVETText( 36 | Sender: TCustomVirtualExplorerTree; Column: TColumnIndex; Node: PVirtualNode; 37 | Namespace: TNamespace; var Text: string); 38 | var 39 | NS: TNamespace; 40 | begin 41 | if Sender.ValidateNamespace(Node, NS) then 42 | begin 43 | if Column = CustomIndex then 44 | Text := ExtractFileExt(NS.NameParseAddress); 45 | if Column = CustomIndex + 1 then 46 | Text := 'CustomColumn 2' 47 | end; 48 | end; 49 | 50 | procedure TForm1.ExplorerListview1HeaderRebuild( 51 | Sender: TCustomVirtualExplorerTree; Header: TVTHeader); 52 | var 53 | NewColumn: TVETColumn; 54 | begin 55 | CustomIndex := Header.Columns.Count; 56 | NewColumn := TVETColumn(Header.Columns.Add); 57 | NewColumn.ColumnDetails := cdCustom; 58 | NewColumn.Text := 'Extension'; 59 | NewColumn.Width := 60; 60 | 61 | NewColumn := TVETColumn( Header.Columns.Add); 62 | NewColumn.ColumnDetails := cdCustom; 63 | NewColumn.Text := 'Second Custom'; 64 | end; 65 | 66 | procedure TForm1.ExplorerListview1CustomColumnCompare( 67 | Sender: TCustomVirtualExplorerTree; Column: TColumnIndex; Node1, 68 | Node2: PVirtualNode; var Result: Integer); 69 | var 70 | NS1, NS2: TNamespace; 71 | s1, s2: string; 72 | begin 73 | if Sender.ValidateNamespace(Node1, NS1) and Sender.ValidateNamespace(Node2, NS2) then 74 | begin 75 | if Column = CustomIndex then 76 | begin 77 | { Win9x compatible } 78 | s1 := ExtractFileExt(NS1.NameParseAddress); 79 | s2 := ExtractFileExt(NS2.NameParseAddress); 80 | Result := lstrcmp(PChar(s1), PChar(s2)); 81 | { If equal use the name ordering as a secondary sort } 82 | if Result = 0 then 83 | begin 84 | s1 := NS1.NameNormal; 85 | s2 := NS2.NameNormal; 86 | Result := lstrcmp(PChar(s1), PChar(s2)); 87 | end; 88 | end 89 | end; 90 | end; 91 | 92 | end. 93 | -------------------------------------------------------------------------------- /Demos/Applet and Wizard Launcher/AppletWizardLauncher.dpr: -------------------------------------------------------------------------------- 1 | program AppletWizardLauncher; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.RES} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/Applet and Wizard Launcher/AppletWizardLauncher.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Applet and Wizard Launcher/AppletWizardLauncher.res -------------------------------------------------------------------------------- /Demos/AutoComplete Component/AutoCompleteComponentProject.dpr: -------------------------------------------------------------------------------- 1 | program AutoCompleteComponentProject; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/AutoComplete Component/AutoCompleteComponentProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/AutoComplete Component/AutoCompleteComponentProject.res -------------------------------------------------------------------------------- /Demos/AutoCompleteObject/AutoCompleteObject.dpr: -------------------------------------------------------------------------------- 1 | program AutoCompleteObject; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.RES} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/AutoCompleteObject/AutoCompleteObject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/AutoCompleteObject/AutoCompleteObject.res -------------------------------------------------------------------------------- /Demos/AutoCompleteObject/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | // Demo of how to custom popuplate the Autocomple drop down 4 | 5 | interface 6 | 7 | uses 8 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 9 | StdCtrls, VirtualExplorerTree, ExtCtrls, VirtualTrees; 10 | 11 | type 12 | TForm1 = class(TForm) 13 | ExplorerTreeview1: TVirtualExplorerTreeview; 14 | ExplorerListview1: TVirtualExplorerListview; 15 | ExplorerComboBox1: TVirtualExplorerCombobox; 16 | CheckBoxCustom: TCheckBox; 17 | Label1: TLabel; 18 | procedure ExplorerComboBox1AutoCompleteUpdateList(Sender: TObject; 19 | const CurrentEditContents: string; EnumList: TStringList; 20 | var Handled: Boolean); 21 | private 22 | { Private declarations } 23 | public 24 | { Public declarations } 25 | end; 26 | 27 | var 28 | Form1: TForm1; 29 | 30 | implementation 31 | 32 | {$R *.DFM} 33 | 34 | procedure TForm1.ExplorerComboBox1AutoCompleteUpdateList(Sender: TObject; 35 | const CurrentEditContents: string; EnumList: TStringList; 36 | var Handled: Boolean); 37 | begin 38 | if CheckBoxCustom.Checked then 39 | begin 40 | Handled := True; // We are handling the autocomplete list 41 | EnumList.Add('C:\'); 42 | EnumList.Add('C:\Windows'); 43 | EnumList.Add('C:\Windows\System'); 44 | EnumList.Add('C:\WinNT'); 45 | EnumList.Add('C:\WinNT\System32'); 46 | EnumList.Add('D:\'); 47 | EnumList.Add('Control Panel'); 48 | EnumList.Add('Recycle Bin'); 49 | end; 50 | end; 51 | 52 | end. 53 | -------------------------------------------------------------------------------- /Demos/Backgnd Menu/BkGndMenuProject.dpr: -------------------------------------------------------------------------------- 1 | program BkGndMenuProject; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/CheckBoxes/CheckBoxes.dpr: -------------------------------------------------------------------------------- 1 | program CheckBoxes; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | 15 | -------------------------------------------------------------------------------- /Demos/CheckBoxes/CheckBoxes.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/CheckBoxes/CheckBoxes.res -------------------------------------------------------------------------------- /Demos/CheckBoxes/TEST.TXT: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/CheckBoxes/TEST.TXT -------------------------------------------------------------------------------- /Demos/Custom Columns/CustomColumnProject.dpr: -------------------------------------------------------------------------------- 1 | program CustomColumnProject; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/Custom Columns/CustomColumnProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Custom Columns/CustomColumnProject.res -------------------------------------------------------------------------------- /Demos/Custom Columns/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 316 3 | Top = 110 4 | Width = 667 5 | Height = 480 6 | Caption = 'Form1' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object VirtualExplorerEasyListview1: TVirtualExplorerEasyListview 17 | Left = 0 18 | Top = 0 19 | Width = 651 20 | Height = 444 21 | Active = True 22 | Align = alClient 23 | CompressedFile.Color = clBlue 24 | CompressedFile.Font.Charset = DEFAULT_CHARSET 25 | CompressedFile.Font.Color = clWindowText 26 | CompressedFile.Font.Height = -11 27 | CompressedFile.Font.Name = 'MS Shell Dlg 2' 28 | CompressedFile.Font.Style = [] 29 | DefaultSortColumn = 0 30 | EditManager.Font.Charset = DEFAULT_CHARSET 31 | EditManager.Font.Color = clWindowText 32 | EditManager.Font.Height = -11 33 | EditManager.Font.Name = 'MS Shell Dlg 2' 34 | EditManager.Font.Style = [] 35 | EncryptedFile.Color = clGreen 36 | EncryptedFile.Font.Charset = DEFAULT_CHARSET 37 | EncryptedFile.Font.Color = clWindowText 38 | EncryptedFile.Font.Height = -11 39 | EncryptedFile.Font.Name = 'MS Shell Dlg 2' 40 | EncryptedFile.Font.Style = [] 41 | FileSizeFormat = vfsfDefault 42 | Font.Charset = DEFAULT_CHARSET 43 | Font.Color = clWindowText 44 | Font.Height = -11 45 | Font.Name = 'MS Shell Dlg 2' 46 | Font.Style = [] 47 | Grouped = False 48 | GroupingColumn = 0 49 | GroupFont.Charset = DEFAULT_CHARSET 50 | GroupFont.Color = clWindowText 51 | GroupFont.Height = -11 52 | GroupFont.Name = 'MS Shell Dlg 2' 53 | GroupFont.Style = [] 54 | Header.Font.Charset = DEFAULT_CHARSET 55 | Header.Font.Color = clWindowText 56 | Header.Font.Height = -11 57 | Header.Font.Name = 'MS Shell Dlg 2' 58 | Header.Font.Style = [] 59 | Header.Visible = True 60 | Options = [eloBrowseExecuteFolder, eloBrowseExecuteFolderShortcut, eloBrowseExecuteZipFolder, eloExecuteOnDblClick, eloThreadedEnumeration, eloThreadedImages, eloThreadedDetails] 61 | PaintInfoGroup.MarginBottom.CaptionIndent = 4 62 | PaintInfoGroup.MarginTop.Visible = False 63 | ParentFont = False 64 | Sort.Algorithm = esaQuickSort 65 | Sort.AutoSort = True 66 | TabOrder = 0 67 | ThumbsManager.StorageFilename = 'Thumbnails.album' 68 | View = elsReport 69 | OnCustomColumnAdd = VirtualExplorerEasyListview1CustomColumnAdd 70 | OnCustomColumnCompare = VirtualExplorerEasyListview1CustomColumnCompare 71 | OnCustomColumnGetCaption = VirtualExplorerEasyListview1CustomColumnGetCaption 72 | end 73 | end 74 | -------------------------------------------------------------------------------- /Demos/Custom Columns/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, MPCommonObjects, EasyListview, VirtualExplorerEasyListview, Menus, 8 | MPShellUtilities; 9 | 10 | type 11 | TForm1 = class(TForm) 12 | VirtualExplorerEasyListview1: TVirtualExplorerEasyListview; 13 | procedure VirtualExplorerEasyListview1CustomColumnAdd( 14 | Sender: TCustomVirtualExplorerEasyListview; 15 | AddColumnProc: TELVAddColumnProc); 16 | procedure VirtualExplorerEasyListview1CustomColumnCompare( 17 | Sender: TCustomVirtualExplorerEasyListview; Column: TExplorerColumn; 18 | Group: TEasyGroup; Item1, Item2: TExplorerItem; 19 | var CompareResult: Integer); 20 | procedure VirtualExplorerEasyListview1CustomColumnGetCaption( 21 | Sender: TCustomVirtualExplorerEasyListview; Column: TExplorerColumn; 22 | Item: TExplorerItem; var Caption: string); 23 | private 24 | { Private declarations } 25 | public 26 | { Public declarations } 27 | end; 28 | 29 | var 30 | Form1: TForm1; 31 | 32 | implementation 33 | 34 | {$R *.dfm} 35 | 36 | procedure TForm1.VirtualExplorerEasyListview1CustomColumnAdd( 37 | Sender: TCustomVirtualExplorerEasyListview; 38 | AddColumnProc: TELVAddColumnProc); 39 | var 40 | Column: TExplorerColumn; 41 | begin 42 | Column := AddColumnProc; 43 | Column.Caption := 'Custom Column'; 44 | Column.Width := 120; 45 | Column.Alignment := taRightJustify; 46 | Column.Visible := True; 47 | end; 48 | 49 | procedure TForm1.VirtualExplorerEasyListview1CustomColumnCompare( 50 | Sender: TCustomVirtualExplorerEasyListview; Column: TExplorerColumn; 51 | Group: TEasyGroup; Item1, Item2: TExplorerItem; 52 | var CompareResult: Integer); 53 | begin 54 | // sort on something silly like the item pointers 55 | CompareResult := NativeInt(Item1) - NativeInt(Item2); 56 | if Column.SortDirection = esdDescending then 57 | CompareResult := -CompareResult; 58 | end; 59 | 60 | procedure TForm1.VirtualExplorerEasyListview1CustomColumnGetCaption( 61 | Sender: TCustomVirtualExplorerEasyListview; Column: TExplorerColumn; 62 | Item: TExplorerItem; var Caption: string); 63 | begin 64 | // Something silly and unique 65 | Caption := IntToStr(NativeInt(Item)) 66 | end; 67 | 68 | end. 69 | -------------------------------------------------------------------------------- /Demos/Custom Sorting/CustomSortProject.dpr: -------------------------------------------------------------------------------- 1 | program CustomSortProject; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/Custom Sorting/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 293 3 | Top = 197 4 | Width = 553 5 | Height = 409 6 | Caption = 'Form1' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object Panel1: TPanel 17 | Left = 0 18 | Top = 41 19 | Width = 545 20 | Height = 334 21 | Align = alClient 22 | BevelOuter = bvNone 23 | TabOrder = 0 24 | object VirtualExplorerTreeview1: TVirtualExplorerTreeview 25 | Left = 0 26 | Top = 0 27 | Width = 200 28 | Height = 315 29 | Active = True 30 | Align = alLeft 31 | ColumnDetails = cdUser 32 | DefaultNodeHeight = 17 33 | DragHeight = 250 34 | DragWidth = 150 35 | FileSizeFormat = fsfExplorer 36 | FileSort = fsFileType 37 | Header.AutoSizeIndex = 0 38 | Header.Font.Charset = DEFAULT_CHARSET 39 | Header.Font.Color = clWindowText 40 | Header.Font.Height = -11 41 | Header.Font.Name = 'MS Sans Serif' 42 | Header.Font.Style = [] 43 | Header.MainColumn = -1 44 | Header.Options = [hoColumnResize, hoDrag] 45 | HintMode = hmHint 46 | ParentColor = False 47 | RootFolder = rfDesktop 48 | TabOrder = 0 49 | TabStop = True 50 | TreeOptions.AutoOptions = [toAutoScroll] 51 | TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toToggleOnDblClick] 52 | TreeOptions.PaintOptions = [toShowButtons, toShowTreeLines, toUseBlendedImages, toGhostedIfUnfocused] 53 | TreeOptions.SelectionOptions = [toLevelSelectConstraint] 54 | TreeOptions.VETShellOptions = [toContextMenus] 55 | TreeOptions.VETSyncOptions = [toCollapseTargetFirst, toExpandTarget, toSelectTarget] 56 | TreeOptions.VETMiscOptions = [toBrowseExecuteFolder, toBrowseExecuteFolderShortcut, toBrowseExecuteZipFolder, toChangeNotifierThread, toRemoveContextMenuShortCut] 57 | TreeOptions.VETImageOptions = [toImages, toThreadedImages, toMarkCutAndCopy] 58 | OnFocusChanged = VirtualExplorerTreeview1FocusChanged 59 | Columns = <> 60 | end 61 | object VirtualExplorerEasyListview1: TVirtualExplorerEasyListview 62 | Left = 200 63 | Top = 0 64 | Width = 345 65 | Height = 315 66 | Align = alClient 67 | DefaultSortColumn = 0 68 | DefaultSortDir = esdNone 69 | Font.Charset = DEFAULT_CHARSET 70 | Font.Color = clWindowText 71 | Font.Height = -11 72 | Font.Name = 'MS Shell Dlg 2' 73 | Font.Style = [] 74 | Grouped = False 75 | GroupingColumn = 0 76 | GroupFont.Charset = DEFAULT_CHARSET 77 | GroupFont.Color = clWindowText 78 | GroupFont.Height = -11 79 | GroupFont.Name = 'MS Shell Dlg 2' 80 | GroupFont.Style = [] 81 | Header.Font.Charset = DEFAULT_CHARSET 82 | Header.Font.Color = clWindowText 83 | Header.Font.Height = -11 84 | Header.Font.Name = 'MS Shell Dlg 2' 85 | Header.Font.Style = [] 86 | Header.Visible = True 87 | PaintInfoGroup.MarginBottom.CaptionIndent = 4 88 | ParentFont = False 89 | ShowInactive = False 90 | TabOrder = 1 91 | ThumbsManager.StorageFilename = 'Thumbnails.album' 92 | View = elsIcon 93 | OnEnumFolder = VirtualExplorerEasyListview1EnumFolder 94 | OnItemCompare = VirtualExplorerEasyListview1ItemCompare 95 | end 96 | object StatusBar1: TStatusBar 97 | Left = 0 98 | Top = 315 99 | Width = 545 100 | Height = 19 101 | Panels = < 102 | item 103 | Width = 50 104 | end> 105 | end 106 | end 107 | object Panel2: TPanel 108 | Left = 0 109 | Top = 0 110 | Width = 545 111 | Height = 41 112 | Align = alTop 113 | TabOrder = 1 114 | object CheckBox1: TCheckBox 115 | Left = 16 116 | Top = 8 117 | Width = 281 118 | Height = 17 119 | Caption = 'Assign OnItemCompare' 120 | TabOrder = 0 121 | OnClick = CheckBox1Click 122 | end 123 | object ComboBox1: TComboBox 124 | Left = 320 125 | Top = 8 126 | Width = 145 127 | Height = 21 128 | Style = csDropDownList 129 | ItemHeight = 13 130 | ItemIndex = 0 131 | TabOrder = 1 132 | Text = 'Icon' 133 | OnChange = ComboBox1Change 134 | Items.Strings = ( 135 | 'Icon' 136 | 'SmallIcon' 137 | 'List' 138 | 'Details' 139 | 'Thumbnails' 140 | 'Tile') 141 | end 142 | end 143 | end 144 | -------------------------------------------------------------------------------- /Demos/DOS Shell CommandLine/DOSCommandLineProject.dpr: -------------------------------------------------------------------------------- 1 | program DOSCommandLineProject; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/DOS Shell CommandLine/DOSCommandLineProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/DOS Shell CommandLine/DOSCommandLineProject.res -------------------------------------------------------------------------------- /Demos/DOS Shell CommandLine/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 275 3 | Top = 125 4 | Caption = 'Form1' 5 | ClientHeight = 442 6 | ClientWidth = 680 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Shell Dlg 2' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCloseQuery = FormCloseQuery 15 | OnDestroy = FormDestroy 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object Panel1: TPanel 19 | Left = 0 20 | Top = 388 21 | Width = 680 22 | Height = 54 23 | Align = alBottom 24 | TabOrder = 0 25 | DesignSize = ( 26 | 680 27 | 54) 28 | object Label1: TLabel 29 | Left = 128 30 | Top = 8 31 | Width = 427 32 | Height = 39 33 | Anchors = [akLeft, akTop, akRight, akBottom] 34 | Caption = 35 | 'The handing of the output of the command shell is not fully impl' + 36 | 'emented. This demo just shows how to use the TVirtualCommandLin' + 37 | 'eRedirector. To run other service applications use TVirtualRedi' + 38 | 'rector' 39 | WordWrap = True 40 | end 41 | object Button1: TButton 42 | Left = 8 43 | Top = 8 44 | Width = 105 45 | Height = 25 46 | Caption = 'Run DOS Service...' 47 | TabOrder = 0 48 | OnClick = Button1Click 49 | end 50 | end 51 | object Panel2: TPanel 52 | Left = 0 53 | Top = 0 54 | Width = 680 55 | Height = 388 56 | Align = alClient 57 | Caption = 'Panel2' 58 | TabOrder = 1 59 | object RichEdit1: TRichEdit 60 | Left = 1 61 | Top = 1 62 | Width = 678 63 | Height = 386 64 | Align = alClient 65 | Color = clBlack 66 | Font.Charset = ANSI_CHARSET 67 | Font.Color = clWhite 68 | Font.Height = -13 69 | Font.Name = 'Courier New' 70 | Font.Style = [] 71 | ParentFont = False 72 | ScrollBars = ssBoth 73 | TabOrder = 0 74 | OnKeyDown = RichEdit1KeyDown 75 | end 76 | end 77 | object VirtualCommandLineRedirector1: TVirtualCommandLineRedirector 78 | OnChildProcessEnd = VirtualCommandLineRedirector1ChildProcessEnd 79 | OnErrorInput = VirtualCommandLineRedirector1ErrorInput 80 | OnInput = VirtualCommandLineRedirector1Input 81 | Left = 40 82 | Top = 48 83 | end 84 | end 85 | -------------------------------------------------------------------------------- /Demos/Explorer CheckBoxes/ExplorerCheckboxes.dpr: -------------------------------------------------------------------------------- 1 | program ExplorerCheckboxes; 2 | 3 | 4 | 5 | 6 | 7 | uses 8 | Forms, 9 | Unit1 in 'Unit1.pas' {Form1}, 10 | InfoForm in 'InfoForm.pas' {FormInfo}, 11 | VirtualCheckboxesSynchronizer in 'VirtualCheckboxesSynchronizer.pas'; 12 | 13 | {$R *.res} 14 | 15 | begin 16 | Application.Initialize; 17 | Application.CreateForm(TForm1, Form1); 18 | Application.Run; 19 | end. 20 | 21 | -------------------------------------------------------------------------------- /Demos/Explorer CheckBoxes/ExplorerCheckboxes.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Explorer CheckBoxes/ExplorerCheckboxes.res -------------------------------------------------------------------------------- /Demos/Explorer CheckBoxes/Tree.dat: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Explorer CheckBoxes/Tree.dat -------------------------------------------------------------------------------- /Demos/File Search/FileSearch.dpr: -------------------------------------------------------------------------------- 1 | program FileSearch; 2 | 3 | uses 4 | Forms, 5 | uWndSearchFiles in 'uWndSearchFiles.pas' {WndSearchFiles}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TWndSearchFiles, WndSearchFiles); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/File Search/ReadMe.txt: -------------------------------------------------------------------------------- 1 | This simple file search demo demonstrates how files from 2 | different folders can be shown in a TVirtualExplorerListview 3 | 4 | The demo makes use of TFindFile, an excellent freeware component 5 | created by Kambiz R. Khojasteh. TFindFile can be found in FindFile.pas. 6 | See http://www.delphiarea.com for further information and updates. 7 | 8 | The TFindFile component is dynamically created and need no separate 9 | package installation. 10 | 11 | Known issues 12 | ------------ 13 | - The context menu handling is in beta stage 14 | - Status in Statusbar is not affected when files are deleted/created by another app 15 | -------------------------------------------------------------------------------- /Demos/FileSearch/FileSearchProject.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O- 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"d:\borland\delphi7\Projects\Bpl" 35 | -LN"d:\borland\delphi7\Projects\Bpl" 36 | -w-UNSAFE_TYPE 37 | -w-UNSAFE_CODE 38 | -w-UNSAFE_CAST 39 | -------------------------------------------------------------------------------- /Demos/FileSearch/FileSearchProject.dof: -------------------------------------------------------------------------------- 1 | [FileVersion] 2 | Version=7.0 3 | [Compiler] 4 | A=8 5 | B=0 6 | C=1 7 | D=1 8 | E=0 9 | F=0 10 | G=1 11 | H=1 12 | I=1 13 | J=0 14 | K=0 15 | L=1 16 | M=0 17 | N=1 18 | O=0 19 | P=1 20 | Q=0 21 | R=0 22 | S=0 23 | T=0 24 | U=0 25 | V=1 26 | W=0 27 | X=1 28 | Y=1 29 | Z=1 30 | ShowHints=1 31 | ShowWarnings=1 32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 33 | NamespacePrefix= 34 | SymbolDeprecated=1 35 | SymbolLibrary=1 36 | SymbolPlatform=1 37 | UnitLibrary=1 38 | UnitPlatform=1 39 | UnitDeprecated=1 40 | HResultCompat=1 41 | HidingMember=1 42 | HiddenVirtual=1 43 | Garbage=1 44 | BoundsError=1 45 | ZeroNilCompat=1 46 | StringConstTruncated=1 47 | ForLoopVarVarPar=1 48 | TypedConstVarPar=1 49 | AsgToTypedConst=1 50 | CaseLabelRange=1 51 | ForVariable=1 52 | ConstructingAbstract=1 53 | ComparisonFalse=1 54 | ComparisonTrue=1 55 | ComparingSignedUnsigned=1 56 | CombiningSignedUnsigned=1 57 | UnsupportedConstruct=1 58 | FileOpen=1 59 | FileOpenUnitSrc=1 60 | BadGlobalSymbol=1 61 | DuplicateConstructorDestructor=1 62 | InvalidDirective=1 63 | PackageNoLink=1 64 | PackageThreadVar=1 65 | ImplicitImport=1 66 | HPPEMITIgnored=1 67 | NoRetVal=1 68 | UseBeforeDef=1 69 | ForLoopVarUndef=1 70 | UnitNameMismatch=1 71 | NoCFGFileFound=1 72 | MessageDirective=1 73 | ImplicitVariants=1 74 | UnicodeToLocale=1 75 | LocaleToUnicode=1 76 | ImagebaseMultiple=1 77 | SuspiciousTypecast=1 78 | PrivatePropAccessor=1 79 | UnsafeType=0 80 | UnsafeCode=0 81 | UnsafeCast=0 82 | [Linker] 83 | MapFile=0 84 | OutputObjs=0 85 | ConsoleApp=1 86 | DebugInfo=0 87 | RemoteSymbols=0 88 | MinStackSize=16384 89 | MaxStackSize=1048576 90 | ImageBase=4194304 91 | ExeDescription= 92 | [Directories] 93 | OutputDir= 94 | UnitOutputDir= 95 | PackageDLLOutputDir= 96 | PackageDCPOutputDir= 97 | SearchPath= 98 | Packages=vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOfficeXP;TntUnicodeVcl_R70;tb2k_d7;SpTBXLib_d7 99 | Conditionals= 100 | DebugSourceDirs= 101 | UsePackages=0 102 | [Parameters] 103 | RunParams= 104 | HostApplication= 105 | Launcher= 106 | UseLauncher=0 107 | DebugCWD= 108 | [Language] 109 | ActiveLang= 110 | ProjectLang= 111 | RootDir=D:\Borland\Delphi7\Bin\ 112 | [Version Info] 113 | IncludeVerInfo=0 114 | AutoIncBuild=0 115 | MajorVer=1 116 | MinorVer=0 117 | Release=0 118 | Build=0 119 | Debug=0 120 | PreRelease=0 121 | Special=0 122 | Private=0 123 | DLL=0 124 | Locale=1033 125 | CodePage=1252 126 | [Version Info Keys] 127 | CompanyName= 128 | FileDescription= 129 | FileVersion=1.0.0.0 130 | InternalName= 131 | LegalCopyright= 132 | LegalTrademarks= 133 | OriginalFilename= 134 | ProductName= 135 | ProductVersion=1.0.0.0 136 | Comments= 137 | [Excluded Packages] 138 | d:\borland\delphi7\Projects\Bpl\ATViewerD7-UltraExplorer.bpl=ATViewer 139 | [HistoryLists\hlConditionals] 140 | Count=1 141 | Item0=TNTSUPPORT 142 | [HistoryLists\hlUnitAliases] 143 | Count=1 144 | Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 145 | -------------------------------------------------------------------------------- /Demos/FileSearch/FileSearchProject.dpr: -------------------------------------------------------------------------------- 1 | program FileSearchProject; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/FolderSize/FolderSizeDemo.dpr: -------------------------------------------------------------------------------- 1 | program FolderSizeDemo; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.RES} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/FolderSize/FolderSizeDemo.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/FolderSize/FolderSizeDemo.res -------------------------------------------------------------------------------- /Demos/KnownFolders/KnwonwFoldersProject.dpr: -------------------------------------------------------------------------------- 1 | program KnwonwFoldersProject; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/Namespace Browser/NamespaceBrowserProject.dpr: -------------------------------------------------------------------------------- 1 | program NamespaceBrowserProject; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/Namespace Browser/NamespaceBrowserProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Namespace Browser/NamespaceBrowserProject.res -------------------------------------------------------------------------------- /Demos/Overview/Unit1.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Overview/Unit1.dfm -------------------------------------------------------------------------------- /Demos/Overview/VET.dpr: -------------------------------------------------------------------------------- 1 | // JCL_DEBUG_EXPERT_GENERATEJDBG OFF 2 | // JCL_DEBUG_EXPERT_INSERTJDBG OFF 3 | // JCL_DEBUG_EXPERT_DELETEMAPFILE OFF 4 | program VET; 5 | 6 | uses 7 | Forms, 8 | Unit1 in 'Unit1.pas' {Form1}, 9 | InfoForm in 'InfoForm.pas' {Form2}; 10 | 11 | {$R *.RES} 12 | 13 | begin 14 | Application.Initialize; 15 | Application.CreateForm(TForm1, Form1); 16 | Application.CreateForm(TFormInfo, FormInfo); 17 | Application.Run; 18 | end. 19 | -------------------------------------------------------------------------------- /Demos/Overview/VET.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Overview/VET.res -------------------------------------------------------------------------------- /Demos/Overview/VETBkgnd.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Overview/VETBkgnd.bmp -------------------------------------------------------------------------------- /Demos/PrevDirNode EasyListview/EasyListviewPrevFolderProject.dpr: -------------------------------------------------------------------------------- 1 | program EasyListviewPrevFolderProject; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/PrevDirNode EasyListview/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 100 3 | Top = 89 4 | Caption = 'Form1' 5 | ClientHeight = 349 6 | ClientWidth = 741 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object LV: TVirtualExplorerEasyListview 17 | Left = 0 18 | Top = 56 19 | Width = 741 20 | Height = 250 21 | Active = True 22 | Align = alClient 23 | BevelKind = bkTile 24 | CompressedFile.Color = clRed 25 | CompressedFile.Font.Charset = DEFAULT_CHARSET 26 | CompressedFile.Font.Color = clWindowText 27 | CompressedFile.Font.Height = -11 28 | CompressedFile.Font.Name = 'MS Shell Dlg 2' 29 | CompressedFile.Font.Style = [] 30 | DefaultSortColumn = 0 31 | EditManager.Font.Charset = DEFAULT_CHARSET 32 | EditManager.Font.Color = clWindowText 33 | EditManager.Font.Height = -11 34 | EditManager.Font.Name = 'MS Shell Dlg 2' 35 | EditManager.Font.Style = [] 36 | EncryptedFile.Color = 32832 37 | EncryptedFile.Font.Charset = DEFAULT_CHARSET 38 | EncryptedFile.Font.Color = clWindowText 39 | EncryptedFile.Font.Height = -11 40 | EncryptedFile.Font.Name = 'MS Shell Dlg 2' 41 | EncryptedFile.Font.Style = [] 42 | FileSizeFormat = vfsfDefault 43 | Font.Charset = DEFAULT_CHARSET 44 | Font.Color = clWindowText 45 | Font.Height = -11 46 | Font.Name = 'MS Shell Dlg 2' 47 | Font.Style = [] 48 | Grouped = False 49 | GroupingColumn = 0 50 | GroupFont.Charset = DEFAULT_CHARSET 51 | GroupFont.Color = clWindowText 52 | GroupFont.Height = -11 53 | GroupFont.Name = 'MS Shell Dlg 2' 54 | GroupFont.Style = [] 55 | Header.Font.Charset = DEFAULT_CHARSET 56 | Header.Font.Color = clWindowText 57 | Header.Font.Height = -11 58 | Header.Font.Name = 'MS Shell Dlg 2' 59 | Header.Font.Style = [] 60 | PaintInfoGroup.MarginBottom.CaptionIndent = 4 61 | PaintInfoGroup.MarginTop.Visible = False 62 | ParentFont = False 63 | Sort.Algorithm = esaQuickSort 64 | Sort.AutoSort = True 65 | TabOrder = 0 66 | ThumbsManager.StorageFilename = 'Thumbnails.album' 67 | OnItemCompare = LVItemCompare 68 | OnItemGetCaption = LVItemGetCaption 69 | OnRootRebuild = LVRootRebuild 70 | end 71 | object Panel1: TPanel 72 | Left = 0 73 | Top = 0 74 | Width = 741 75 | Height = 56 76 | Align = alTop 77 | TabOrder = 1 78 | object ComboBox1: TComboBox 79 | Left = 16 80 | Top = 18 81 | Width = 145 82 | Height = 21 83 | Style = csDropDownList 84 | ItemIndex = 0 85 | TabOrder = 0 86 | Text = 'elsIcon' 87 | OnClick = ComboBox1Click 88 | Items.Strings = ( 89 | 'elsIcon' 90 | 'elsSmallIcon' 91 | 'elsList' 92 | 'elsReport' 93 | 'elsThumbnail' 94 | 'elsTile' 95 | 'elsFilmStrip' 96 | 'elsGrid') 97 | end 98 | end 99 | object Memo1: TMemo 100 | Left = 0 101 | Top = 306 102 | Width = 741 103 | Height = 43 104 | Align = alBottom 105 | Color = clInfoBk 106 | Lines.Strings = ( 107 | 108 | 'This demo shows you how to add the [..] dir to the VirtualExplor' + 109 | 'erEasyListview') 110 | ReadOnly = True 111 | TabOrder = 2 112 | end 113 | end 114 | -------------------------------------------------------------------------------- /Demos/PrevDirNode EasyListview/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, MPCommonObjects, EasyListview, VirtualExplorerEasyListview, 8 | MPShellUtilities, SHlObj, ExtCtrls; 9 | 10 | type 11 | TForm1 = class(TForm) 12 | LV: TVirtualExplorerEasyListview; 13 | Panel1: TPanel; 14 | ComboBox1: TComboBox; 15 | Memo1: TMemo; 16 | function LVItemCompare(Sender: TCustomEasyListview; Column: TEasyColumn; 17 | Group: TEasyGroup; Item1, Item2: TEasyItem; 18 | var DoDefault: Boolean): Integer; 19 | procedure LVRootRebuild(Sender: TCustomVirtualExplorerEasyListview); 20 | procedure LVItemGetCaption(Sender: TCustomEasyListview; Item: TEasyItem; 21 | Column: Integer; var Caption: string); 22 | procedure ComboBox1Click(Sender: TObject); 23 | private 24 | { Private declarations } 25 | public 26 | { Public declarations } 27 | FZombieItem: TExplorerItem; 28 | end; 29 | 30 | var 31 | Form1: TForm1; 32 | 33 | implementation 34 | 35 | {$R *.dfm} 36 | 37 | //WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM 38 | { Helpers } 39 | 40 | function GetPrevNamespace(NS: TNamespace): TNamespace; 41 | var 42 | PIDL: PItemIDList; 43 | begin 44 | Result := nil; 45 | if Assigned(NS) and (not NS.IsDesktop) then begin 46 | PIDL := PIDLMgr.CopyPIDL(NS.AbsolutePIDL); 47 | PIDLMgr.StripLastID(PIDL); 48 | Result := TNamespace.Create(PIDL, nil); 49 | Result.FreePIDLOnDestroy := True; // TNamespace will destroy the PIDL 50 | end; 51 | end; 52 | 53 | //WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM 54 | { LV } 55 | 56 | procedure TForm1.ComboBox1Click(Sender: TObject); 57 | begin 58 | LV.View := TEasyListStyle(Combobox1.ItemIndex); 59 | end; 60 | 61 | function TForm1.LVItemCompare(Sender: TCustomEasyListview; Column: TEasyColumn; 62 | Group: TEasyGroup; Item1, Item2: TEasyItem; var DoDefault: Boolean): Integer; 63 | // Place the ZombieItem on the top of the listview 64 | begin 65 | Result := 0; 66 | if Assigned(FZombieItem) then 67 | if FZombieItem = Item1 then begin 68 | Result := -1; 69 | DoDefault := False; 70 | end else 71 | if FZombieItem = Item2 then begin 72 | Result := 1; 73 | DoDefault := False; 74 | end; 75 | end; 76 | 77 | procedure TForm1.LVItemGetCaption(Sender: TCustomEasyListview; Item: TEasyItem; 78 | Column: Integer; var Caption: string); 79 | // Change the caption of the ZombieItem 80 | begin 81 | if Assigned(FZombieItem) and (FZombieItem = Item) and (Column = 0) then 82 | Caption := '[..]'; 83 | end; 84 | 85 | procedure TForm1.LVRootRebuild(Sender: TCustomVirtualExplorerEasyListview); 86 | var 87 | NS: TNamespace; 88 | begin 89 | FZombieItem := nil; 90 | // First we should create the Namespace that will represent the '..' dir. 91 | // Simply get the parent level namespace 92 | NS := GetPrevNamespace(LV.RootFolderNamespace); 93 | if Assigned(NS) then begin 94 | // Now create the ZombieNode and sort the tree 95 | FZombieItem := LV.AddCustomItem(nil, NS, True); 96 | LV.SortList; 97 | end; 98 | end; 99 | 100 | end. 101 | -------------------------------------------------------------------------------- /Demos/PrevDirNode/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/PrevDirNode/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/PrevDirNode/Project1.res -------------------------------------------------------------------------------- /Demos/PrevDirNode/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 252 3 | Top = 138 4 | Width = 696 5 | Height = 480 6 | Caption = 'Form1' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Shell Dlg 2' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnShow = FormShow 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object Splitter1: TSplitter 18 | Left = 200 19 | Top = 41 20 | Height = 362 21 | end 22 | object VET: TVirtualExplorerTreeview 23 | Left = 0 24 | Top = 41 25 | Width = 200 26 | Height = 362 27 | Active = False 28 | Align = alLeft 29 | ColumnDetails = cdUser 30 | DefaultNodeHeight = 17 31 | DragHeight = 250 32 | DragWidth = 150 33 | FileSizeFormat = fsfExplorer 34 | FileSort = fsFileType 35 | Header.AutoSizeIndex = 0 36 | Header.Font.Charset = DEFAULT_CHARSET 37 | Header.Font.Color = clWindowText 38 | Header.Font.Height = -11 39 | Header.Font.Name = 'MS Shell Dlg 2' 40 | Header.Font.Style = [] 41 | Header.MainColumn = -1 42 | Header.Options = [hoColumnResize, hoDrag] 43 | HintMode = hmHint 44 | ParentColor = False 45 | RootFolder = rfDesktop 46 | TabOrder = 0 47 | TabStop = True 48 | TreeOptions.AutoOptions = [toAutoScroll] 49 | TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toToggleOnDblClick] 50 | TreeOptions.PaintOptions = [toShowButtons, toShowTreeLines, toUseBlendedImages, toGhostedIfUnfocused] 51 | TreeOptions.SelectionOptions = [toMultiSelect, toSiblingSelectConstraint] 52 | TreeOptions.VETShellOptions = [toContextMenus] 53 | TreeOptions.VETSyncOptions = [toCollapseTargetFirst, toExpandTarget, toSelectTarget] 54 | TreeOptions.VETMiscOptions = [toBrowseExecuteFolder, toBrowseExecuteFolderShortcut, toChangeNotifierThread, toRemoveContextMenuShortCut] 55 | TreeOptions.VETImageOptions = [toImages, toThreadedImages, toMarkCutAndCopy] 56 | Columns = <> 57 | end 58 | object Memo1: TMemo 59 | Left = 0 60 | Top = 403 61 | Width = 688 62 | Height = 43 63 | Align = alBottom 64 | Color = clInfoBk 65 | Lines.Strings = ( 66 | 67 | 'This demo shows you how to add the [..] dir to the VirtualExplor' + 68 | 'erListviewEx') 69 | ReadOnly = True 70 | TabOrder = 1 71 | end 72 | object Panel1: TPanel 73 | Left = 0 74 | Top = 0 75 | Width = 688 76 | Height = 41 77 | Align = alTop 78 | BevelInner = bvRaised 79 | BevelOuter = bvLowered 80 | TabOrder = 2 81 | object ComboBox1: TComboBox 82 | Left = 8 83 | Top = 8 84 | Width = 145 85 | Height = 21 86 | Style = csDropDownList 87 | ItemHeight = 13 88 | TabOrder = 0 89 | OnClick = ComboBox1Click 90 | Items.Strings = ( 91 | 'vsxIcon' 92 | 'vsxSmallIcon' 93 | 'vsxList' 94 | 'vsxReport' 95 | 'vsxThumbs') 96 | end 97 | end 98 | end 99 | -------------------------------------------------------------------------------- /Demos/Readme.txt: -------------------------------------------------------------------------------- 1 | 2 | 3 | Welcome to the VirtualShellTools Demo Folder! 4 | 5 | These are the Demo supplied with VirtualShellTools. If you want to compile all the demos at once then use the *.bpg file supplied in this folder. 6 | VirtualShellToolsDemos.bpg - All the Demos having to do with VirtualShellTools 7 | 8 | In order to build the package open the *.bpg file with Delphi. Answer yes to *all* the annoying quesions about recreating the resource file. Go to 9 | 10 | View -> ProjectManager 11 | 12 | You should see all the demos in the Listview. Use the dropdown list and select the first item in the list. Delphi will open the project. Close the project. All you need is the original ProjectManager but with the first demo selected in the dropdown list. Now go to 13 | 14 | Project -> Compile All Projects 15 | 16 | Delphi will start churning away compiling all the projects in the list. 17 | 18 | Go to the Demos folder and start seeing what VirtualShellTools can do for you. 19 | 20 | Jim Kueneman 7.20.2002 -------------------------------------------------------------------------------- /Demos/SendTo Menu/Back.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/Back.bmp -------------------------------------------------------------------------------- /Demos/SendTo Menu/Fwd.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/Fwd.bmp -------------------------------------------------------------------------------- /Demos/SendTo Menu/SendTo Menu TBX/Back.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/SendTo Menu TBX/Back.bmp -------------------------------------------------------------------------------- /Demos/SendTo Menu/SendTo Menu TBX/Fwd.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/SendTo Menu TBX/Fwd.bmp -------------------------------------------------------------------------------- /Demos/SendTo Menu/SendTo Menu TBX/SendToMenuProject.dpr: -------------------------------------------------------------------------------- 1 | program SendToMenuProject; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/SendTo Menu/SendTo Menu TBX/SendToMenuProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/SendTo Menu TBX/SendToMenuProject.res -------------------------------------------------------------------------------- /Demos/SendTo Menu/SendTo Menu TBX/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 7 | Dialogs, Menus, StdCtrls, ImgList, ActiveX, 8 | VirtualTrees, VirtualExplorerTree, VirtualShellUtilities, VirtualSendToMenu, 9 | TB2Item, TB2Dock, TB2Toolbar, TBX; 10 | 11 | type 12 | TForm1 = class(TForm) 13 | VirtualSendToMenu1: TVirtualSendToMenu; 14 | VirtualExplorerListview1: TVirtualExplorerListview; 15 | ImageList1: TImageList; 16 | TBDock1: TTBDock; 17 | TBXToolbar1: TTBXToolbar; 18 | TBXItem3: TTBXItem; 19 | TBXItem2: TTBXItem; 20 | TBXSubmenuItem1: TTBXSubmenuItem; 21 | procedure VirtualExplorerListview1Change(Sender: TBaseVirtualTree; 22 | Node: PVirtualNode); 23 | procedure VirtualExplorerListview1RootChange( 24 | Sender: TCustomVirtualExplorerTree); 25 | procedure ToolButton3Click(Sender: TObject); 26 | procedure ToolButton2Click(Sender: TObject); 27 | procedure VirtualSendToMenu1SendToEvent(Sender: TVirtualSendToMenu; 28 | SendToTarget: TNamespace; var SourceData: IDataObject); 29 | procedure TBXSubmenuItem1Popup(Sender: TTBCustomItem; 30 | FromLink: Boolean); 31 | procedure FormShow(Sender: TObject); 32 | private 33 | { Private declarations } 34 | public 35 | { Public declarations } 36 | end; 37 | 38 | var 39 | Form1: TForm1; 40 | 41 | implementation 42 | 43 | {$R *.dfm} 44 | 45 | procedure TForm1.FormShow(Sender: TObject); 46 | begin 47 | VirtualExplorerListview1.Active := True; 48 | end; 49 | 50 | procedure TForm1.VirtualExplorerListview1Change(Sender: TBaseVirtualTree; 51 | Node: PVirtualNode); 52 | var 53 | NS: TNamespace; 54 | begin 55 | if VirtualExplorerListview1.ValidateNamespace(Node, NS) then 56 | begin 57 | TBXSubmenuItem1.Enabled := NS.CanCopy; 58 | TBXItem3.Enabled := NS.Folder; 59 | TBXItem2.Enabled := not VirtualExplorerListview1.RootFolderNamespace.IsDesktop; 60 | end 61 | end; 62 | 63 | procedure TForm1.VirtualExplorerListview1RootChange(Sender: TCustomVirtualExplorerTree); 64 | var 65 | NS: TNamespace; 66 | begin 67 | TBXItem2.Enabled := not VirtualExplorerListview1.RootFolderNamespace.IsDesktop; 68 | if VirtualExplorerListview1.ValidateNamespace(VirtualExplorerListview1.GetFirstSelected, NS) then 69 | begin 70 | TBXSubmenuItem1.Enabled := NS.CanCopy; 71 | TBXItem3.Enabled := NS.Folder; 72 | end else 73 | begin 74 | TBXSubmenuItem1.Enabled := False; 75 | TBXItem3.Enabled := False; 76 | end 77 | end; 78 | 79 | procedure TForm1.ToolButton2Click(Sender: TObject); 80 | begin 81 | VirtualExplorerListview1.BrowseToPrevLevel; 82 | end; 83 | 84 | procedure TForm1.ToolButton3Click(Sender: TObject); 85 | begin 86 | VirtualExplorerListview1.BrowseToNextLevel; 87 | end; 88 | 89 | procedure TForm1.VirtualSendToMenu1SendToEvent(Sender: TVirtualSendToMenu; 90 | SendToTarget: TNamespace; var SourceData: IDataObject); 91 | begin 92 | SourceData := VirtualExplorerListview1.SelectedToDataObject; 93 | end; 94 | 95 | procedure TForm1.TBXSubmenuItem1Popup(Sender: TTBCustomItem; FromLink: Boolean); 96 | begin 97 | // Just call this method when the SubmenuItem is about to be showed. 98 | // To add unicode support use TSpTBXItem instead: 99 | // VirtualSendToMenu1.Populate_TB2000(Sender, TSpTBXItem); 100 | VirtualSendToMenu1.Populate_TB2000(Sender, TTBXItem); 101 | end; 102 | 103 | end. 104 | -------------------------------------------------------------------------------- /Demos/SendTo Menu/SendTo Menu TBX/folder.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/SendTo Menu TBX/folder.bmp -------------------------------------------------------------------------------- /Demos/SendTo Menu/SendToMenuProject.dpr: -------------------------------------------------------------------------------- 1 | program SendToMenuProject; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/SendTo Menu/SendToMenuProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/SendToMenuProject.res -------------------------------------------------------------------------------- /Demos/SendTo Menu/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 7 | Dialogs, Menus, ImgList, ActiveX, ComCtrls, ToolWin, 8 | VirtualTrees, VirtualExplorerTree, MPShellUtilities, 9 | VirtualSendToMenu; 10 | 11 | type 12 | TForm1 = class(TForm) 13 | VirtualSendToMenu1: TVirtualSendToMenu; 14 | VirtualExplorerListview1: TVirtualExplorerListview; 15 | ToolBar1: TToolBar; 16 | ToolButton1: TToolButton; 17 | ToolButton2: TToolButton; 18 | ToolButton3: TToolButton; 19 | ImageList1: TImageList; 20 | procedure VirtualExplorerListview1Change(Sender: TBaseVirtualTree; 21 | Node: PVirtualNode); 22 | procedure VirtualExplorerListview1RootChange( 23 | Sender: TCustomVirtualExplorerTree); 24 | procedure ToolButton3Click(Sender: TObject); 25 | procedure ToolButton2Click(Sender: TObject); 26 | procedure VirtualSendToMenu1SendToEvent(Sender: TVirtualSendToMenu; 27 | SendToTarget: TNamespace; var SourceData: IDataObject); 28 | procedure FormShow(Sender: TObject); 29 | private 30 | { Private declarations } 31 | public 32 | { Public declarations } 33 | end; 34 | 35 | var 36 | Form1: TForm1; 37 | 38 | implementation 39 | 40 | {$R *.dfm} 41 | 42 | procedure TForm1.FormShow(Sender: TObject); 43 | begin 44 | VirtualExplorerListview1.Active := True; 45 | end; 46 | 47 | procedure TForm1.VirtualExplorerListview1Change(Sender: TBaseVirtualTree; 48 | Node: PVirtualNode); 49 | var 50 | NS: TNamespace; 51 | begin 52 | if VirtualExplorerListview1.ValidateNamespace(Node, NS) then 53 | begin 54 | ToolButton1.Enabled := NS.CanCopy; 55 | ToolButton3.Enabled := NS.Folder; 56 | ToolButton2.Enabled := not VirtualExplorerListview1.RootFolderNamespace.IsDesktop 57 | end 58 | end; 59 | 60 | procedure TForm1.VirtualExplorerListview1RootChange(Sender: TCustomVirtualExplorerTree); 61 | var 62 | NS: TNamespace; 63 | begin 64 | ToolButton2.Enabled := not VirtualExplorerListview1.RootFolderNamespace.IsDesktop; 65 | if VirtualExplorerListview1.ValidateNamespace(VirtualExplorerListview1.GetFirstSelected, NS) then 66 | begin 67 | ToolButton1.Enabled := NS.CanCopy; 68 | ToolButton3.Enabled := NS.Folder; 69 | end else 70 | begin 71 | ToolButton1.Enabled := False; 72 | ToolButton3.Enabled := False; 73 | end 74 | end; 75 | 76 | procedure TForm1.ToolButton3Click(Sender: TObject); 77 | begin 78 | VirtualExplorerListview1.BrowseToNextLevel; 79 | end; 80 | 81 | procedure TForm1.ToolButton2Click(Sender: TObject); 82 | begin 83 | VirtualExplorerListview1.BrowseToPrevLevel; 84 | end; 85 | 86 | procedure TForm1.VirtualSendToMenu1SendToEvent(Sender: TVirtualSendToMenu; 87 | SendToTarget: TNamespace; var SourceData: IDataObject); 88 | begin 89 | SourceData := VirtualExplorerListview1.SelectedToDataObject; 90 | end; 91 | 92 | end. 93 | -------------------------------------------------------------------------------- /Demos/SendTo Menu/folder.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/SendTo Menu/folder.bmp -------------------------------------------------------------------------------- /Demos/Shell History/ShellHistory.dpr: -------------------------------------------------------------------------------- 1 | program ShellHistory; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/Shell History/ShellHistory.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Shell History/ShellHistory.res -------------------------------------------------------------------------------- /Demos/Shell History/TBX Enabled Demo/ShellHistoryTBX.dpr: -------------------------------------------------------------------------------- 1 | program ShellHistoryTBX; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/Shell History/TBX Enabled Demo/ShellHistoryTBX.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Shell History/TBX Enabled Demo/ShellHistoryTBX.res -------------------------------------------------------------------------------- /Demos/Shell History/TBX Enabled Demo/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Shell History/TBX Enabled Demo/Unit1.pas -------------------------------------------------------------------------------- /Demos/Shell Link Shortcuts/ShellLinkShortcuts.dpr: -------------------------------------------------------------------------------- 1 | program ShellLinkShortcuts; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.RES} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/Shell Link Shortcuts/ShellLinkShortcuts.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Shell Link Shortcuts/ShellLinkShortcuts.res -------------------------------------------------------------------------------- /Demos/Shell Notify/ShellNotify.dpr: -------------------------------------------------------------------------------- 1 | program ShellNotify; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}, 6 | Unit2 in 'Unit2.pas' {Form2}; 7 | 8 | {$R *.RES} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.CreateForm(TForm1, Form1); 13 | Application.CreateForm(TForm2, Form2); 14 | Application.Run; 15 | end. 16 | -------------------------------------------------------------------------------- /Demos/Shell Notify/ShellNotify.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Shell Notify/ShellNotify.res -------------------------------------------------------------------------------- /Demos/Shell Notify/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 183 3 | Top = 76 4 | Width = 568 5 | Height = 413 6 | Caption = 'Form1' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | ShowHint = True 15 | OnCreate = FormCreate 16 | DesignSize = ( 17 | 552 18 | 377) 19 | PixelsPerInch = 96 20 | TextHeight = 13 21 | object Label1: TLabel 22 | Left = 10 23 | Top = 68 24 | Width = 111 25 | Height = 13 26 | Caption = 'Choose a Target Folder' 27 | end 28 | object Label2: TLabel 29 | Left = 16 30 | Top = 8 31 | Width = 116 32 | Height = 26 33 | Caption = 'Click button or right click on the Listview' 34 | WordWrap = True 35 | end 36 | object RadioGroupFileName: TRadioGroup 37 | Left = -6 38 | Top = 112 39 | Width = 543 40 | Height = 57 41 | Anchors = [akLeft, akTop, akRight] 42 | Caption = 'New Filename' 43 | ItemIndex = 0 44 | Items.Strings = ( 45 | 'Let VSTools create the filename' 46 | 'Use my filename (no extension necessary)') 47 | TabOrder = 1 48 | end 49 | object Button1: TButton 50 | Left = 18 51 | Top = 36 52 | Width = 121 53 | Height = 25 54 | Caption = 'ShellNew Menu' 55 | TabOrder = 0 56 | OnClick = Button1Click 57 | end 58 | object Edit1: TEdit 59 | Left = 266 60 | Top = 142 61 | Width = 263 62 | Height = 21 63 | Anchors = [akLeft, akTop, akRight] 64 | TabOrder = 2 65 | Text = 'My Custom Filename' 66 | end 67 | object GroupBox1: TGroupBox 68 | Left = 152 69 | Top = 8 70 | Width = 385 71 | Height = 57 72 | Caption = 'Options' 73 | TabOrder = 4 74 | object CheckBox1: TCheckBox 75 | Left = 136 76 | Top = 16 77 | Width = 121 78 | Height = 17 79 | Hint = 80 | 'Turning this option on mimics Explorer New menu. Explorer short' + 81 | 'ens the list for example HTML files should have a *.htm and a *h' + 82 | 'tml item. Not combining items will leave both in menu.' 83 | Caption = 'Combine Like Items' 84 | TabOrder = 0 85 | OnClick = CheckBox1Click 86 | end 87 | object CheckBox2: TCheckBox 88 | Left = 136 89 | Top = 32 90 | Width = 105 91 | Height = 17 92 | Caption = 'Use Shell Images' 93 | TabOrder = 1 94 | OnClick = CheckBox2Click 95 | end 96 | object CheckBox3: TCheckBox 97 | Left = 264 98 | Top = 16 99 | Width = 113 100 | Height = 17 101 | Caption = 'Warn on Overwrite' 102 | TabOrder = 2 103 | OnClick = CheckBox3Click 104 | end 105 | object CheckBox4: TCheckBox 106 | Left = 8 107 | Top = 16 108 | Width = 113 109 | Height = 17 110 | Caption = 'New Folder Item' 111 | TabOrder = 3 112 | OnClick = CheckBox4Click 113 | end 114 | object CheckBox5: TCheckBox 115 | Left = 8 116 | Top = 32 117 | Width = 113 118 | Height = 17 119 | Caption = 'New Shortcut Item' 120 | TabOrder = 4 121 | OnClick = CheckBox5Click 122 | end 123 | end 124 | object StatusBar1: TStatusBar 125 | Left = 0 126 | Top = 358 127 | Width = 552 128 | Height = 19 129 | Panels = < 130 | item 131 | Text = ' 0 Total Objects' 132 | Width = 150 133 | end 134 | item 135 | Text = ' 0 Objects Selected' 136 | Width = 50 137 | end> 138 | end 139 | end 140 | -------------------------------------------------------------------------------- /Demos/Shell Notify/Unit2.dfm: -------------------------------------------------------------------------------- 1 | object Form2: TForm2 2 | Left = 99 3 | Top = 372 4 | Width = 645 5 | Height = 312 6 | BorderStyle = bsSizeToolWin 7 | Caption = 'Form2' 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'MS Sans Serif' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | Visible = True 16 | OnCreate = FormCreate 17 | OnHide = FormHide 18 | PixelsPerInch = 96 19 | TextHeight = 13 20 | object TreeView1: TTreeView 21 | Left = 0 22 | Top = 25 23 | Width = 408 24 | Height = 253 25 | Align = alClient 26 | Indent = 19 27 | TabOrder = 0 28 | end 29 | object ToolBar1: TToolBar 30 | Left = 0 31 | Top = 0 32 | Width = 637 33 | Height = 25 34 | AutoSize = True 35 | ButtonHeight = 21 36 | ButtonWidth = 61 37 | Caption = 'ToolBar1' 38 | ShowCaptions = True 39 | TabOrder = 1 40 | object ToolButton1: TToolButton 41 | Left = 0 42 | Top = 2 43 | AutoSize = True 44 | Caption = 'Delete All' 45 | ImageIndex = 0 46 | OnClick = ToolButton1Click 47 | end 48 | object ToolButton2: TToolButton 49 | Left = 56 50 | Top = 2 51 | Caption = 'Mark All' 52 | ImageIndex = 1 53 | OnClick = ToolButton2Click 54 | end 55 | object ToolButton3: TToolButton 56 | Left = 117 57 | Top = 2 58 | AutoSize = True 59 | Caption = 'Collapse All' 60 | ImageIndex = 2 61 | OnClick = ToolButton3Click 62 | end 63 | object ToolButton4: TToolButton 64 | Left = 182 65 | Top = 2 66 | Caption = 'Expand All' 67 | ImageIndex = 3 68 | OnClick = ToolButton4Click 69 | end 70 | end 71 | object Panel1: TPanel 72 | Left = 408 73 | Top = 25 74 | Width = 229 75 | Height = 253 76 | Align = alRight 77 | TabOrder = 2 78 | object Label1: TLabel 79 | Left = 16 80 | Top = 24 81 | Width = 109 82 | Height = 13 83 | Caption = 'Shell Notifications Sent' 84 | end 85 | object Label2: TLabel 86 | Left = 16 87 | Top = 48 88 | Width = 116 89 | Height = 13 90 | Caption = 'Kernel Notifications Sent' 91 | end 92 | object Label3: TLabel 93 | Left = 16 94 | Top = 72 95 | Width = 137 96 | Height = 13 97 | Caption = 'Peak Change Notify Objects:' 98 | end 99 | object Label4: TLabel 100 | Left = 16 101 | Top = 120 102 | Width = 119 103 | Height = 13 104 | Caption = 'Peak Change Notify Lists' 105 | end 106 | object Label5: TLabel 107 | Left = 176 108 | Top = 24 109 | Width = 6 110 | Height = 13 111 | Caption = '0' 112 | end 113 | object Label6: TLabel 114 | Left = 176 115 | Top = 48 116 | Width = 6 117 | Height = 13 118 | Caption = '0' 119 | end 120 | object Label7: TLabel 121 | Left = 176 122 | Top = 72 123 | Width = 6 124 | Height = 13 125 | Caption = '0' 126 | end 127 | object Label8: TLabel 128 | Left = 176 129 | Top = 96 130 | Width = 6 131 | Height = 13 132 | Caption = '0' 133 | end 134 | object Label9: TLabel 135 | Left = 176 136 | Top = 120 137 | Width = 6 138 | Height = 13 139 | Caption = '0' 140 | end 141 | object Label10: TLabel 142 | Left = 176 143 | Top = 144 144 | Width = 6 145 | Height = 13 146 | Caption = '0' 147 | end 148 | object Label11: TLabel 149 | Left = 16 150 | Top = 96 151 | Width = 143 152 | Height = 13 153 | Caption = 'Current Change Notify Objects' 154 | end 155 | object Label12: TLabel 156 | Left = 16 157 | Top = 144 158 | Width = 128 159 | Height = 13 160 | Caption = 'Current Change Notify Lists' 161 | end 162 | object CheckBox1: TCheckBox 163 | Left = 120 164 | Top = 200 165 | Width = 97 166 | Height = 17 167 | Caption = 'Track Realtime' 168 | Checked = True 169 | State = cbChecked 170 | TabOrder = 0 171 | end 172 | object Button1: TButton 173 | Left = 8 174 | Top = 168 175 | Width = 97 176 | Height = 25 177 | Caption = 'Reset' 178 | TabOrder = 1 179 | OnClick = Button1Click 180 | end 181 | object Button2: TButton 182 | Left = 120 183 | Top = 168 184 | Width = 97 185 | Height = 25 186 | Caption = 'Manual Refresh' 187 | TabOrder = 2 188 | OnClick = Button2Click 189 | end 190 | end 191 | end 192 | -------------------------------------------------------------------------------- /Demos/ShellColumn State Storing/ShellColumnStateStoring.dpr: -------------------------------------------------------------------------------- 1 | program ShellColumnStateStoring; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.RES} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/ShellColumn State Storing/ShellColumnStateStoring.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/ShellColumn State Storing/ShellColumnStateStoring.res -------------------------------------------------------------------------------- /Demos/ShellColumn State Storing/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 7 | VirtualExplorerTree, VirtualTrees, ExtCtrls, StdCtrls; 8 | 9 | type 10 | TForm1 = class(TForm) 11 | Panel2: TPanel; 12 | ExplorerTreeview1: TVirtualExplorerTreeview; 13 | Splitter1: TSplitter; 14 | ExplorerListview1: TVirtualExplorerListview; 15 | Panel1: TPanel; 16 | Panel3: TPanel; 17 | Panel4: TPanel; 18 | Button1: TButton; 19 | Button2: TButton; 20 | Label4: TLabel; 21 | Memo1: TMemo; 22 | procedure Button1Click(Sender: TObject); 23 | procedure Button2Click(Sender: TObject); 24 | private 25 | { Private declarations } 26 | public 27 | { Public declarations } 28 | end; 29 | 30 | var 31 | Form1: TForm1; 32 | 33 | implementation 34 | 35 | {$R *.DFM} 36 | 37 | procedure TForm1.Button1Click(Sender: TObject); 38 | begin 39 | ExplorerListview1.Storage.SaveToFile('Storage.dat'); 40 | end; 41 | 42 | procedure TForm1.Button2Click(Sender: TObject); 43 | begin 44 | ExplorerListview1.Storage.LoadFromFile('Storage.dat'); 45 | ExplorerListview1.RefreshTree 46 | end; 47 | 48 | end. 49 | -------------------------------------------------------------------------------- /Demos/ShellNew (New File) Menu/ShellNew_NewFileMenu.dpr: -------------------------------------------------------------------------------- 1 | program ShellNew_NewFileMenu; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.RES} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/ShellNew (New File) Menu/ShellNew_NewFileMenu.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/ShellNew (New File) Menu/ShellNew_NewFileMenu.res -------------------------------------------------------------------------------- /Demos/ShellNew (New File) Menu/TBX Enabled Demo/ShellNew_NewFileMenuTBX.dpr: -------------------------------------------------------------------------------- 1 | program ShellNew_NewFileMenuTBX; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.RES} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/ShellNew (New File) Menu/TBX Enabled Demo/ShellNew_NewFileMenuTBX.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/ShellNew (New File) Menu/TBX Enabled Demo/ShellNew_NewFileMenuTBX.res -------------------------------------------------------------------------------- /Demos/ShellNew (New File) Menu/TBX Enabled Demo/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 7 | StdCtrls, VirtualExplorerTree, VirtualTrees, ExtCtrls, Menus, 8 | VirtualShellUtilities, VirtualShellNewMenu, 9 | TB2Dock, TB2Toolbar, TB2Item, TBX; 10 | 11 | type 12 | TForm1 = class(TForm) 13 | RadioGroupFileName: TRadioGroup; 14 | Edit1: TEdit; 15 | ExplorerListview1: TVirtualExplorerListview; 16 | GroupBox1: TGroupBox; 17 | CheckBox1: TCheckBox; 18 | CheckBox2: TCheckBox; 19 | CheckBox3: TCheckBox; 20 | CheckBox4: TCheckBox; 21 | CheckBox5: TCheckBox; 22 | Label2: TLabel; 23 | VirtualShellNewMenu1: TVirtualShellNewMenu; 24 | TBXToolbar1: TTBXToolbar; 25 | TBXSubmenuItem1: TTBXSubmenuItem; 26 | procedure VirtualShellNewMenu1AddMenuItem(Sender: TPopupMenu; 27 | const NewMenuItem: TVirtualShellNewItem; var Allow: Boolean); 28 | procedure VirtualShellNewMenu1CreateNewFile(Sender: TMenu; 29 | const NewMenuItem: TVirtualShellNewItem; var Path, FileName: String; 30 | var Allow: Boolean); 31 | procedure CheckBox1Click(Sender: TObject); 32 | procedure CheckBox2Click(Sender: TObject); 33 | procedure CheckBox3Click(Sender: TObject); 34 | procedure CheckBox4Click(Sender: TObject); 35 | procedure CheckBox5Click(Sender: TObject); 36 | procedure FormShow(Sender: TObject); 37 | procedure TBXSubmenuItem1Popup(Sender: TTBCustomItem; FromLink: Boolean); 38 | private 39 | { Private declarations } 40 | public 41 | { Public declarations } 42 | procedure Loaded; override; 43 | end; 44 | 45 | var 46 | Form1: TForm1; 47 | 48 | implementation 49 | 50 | {$R *.DFM} 51 | 52 | procedure TForm1.VirtualShellNewMenu1AddMenuItem(Sender: TPopupMenu; 53 | const NewMenuItem: TVirtualShellNewItem; var Allow: Boolean); 54 | begin 55 | { Here Menu Items can be filtered dynamiclly } 56 | end; 57 | 58 | procedure TForm1.VirtualShellNewMenu1CreateNewFile(Sender: TMenu; 59 | const NewMenuItem: TVirtualShellNewItem; var Path, FileName: String; 60 | var Allow: Boolean); 61 | begin 62 | { Here we MUST return the path the file is to be created in } 63 | Path := ExplorerListview1.RootFolderNamespace.NameForParsing; 64 | if RadioGroupFileName.ItemIndex = 1 then 65 | FileName := Edit1.Text; 66 | end; 67 | 68 | procedure TForm1.CheckBox1Click(Sender: TObject); 69 | begin 70 | VirtualShellNewMenu1.CombineLikeItems := CheckBox1.Checked; 71 | end; 72 | 73 | procedure TForm1.CheckBox2Click(Sender: TObject); 74 | begin 75 | VirtualShellNewMenu1.UseShellImages := CheckBox2.Checked; 76 | end; 77 | 78 | procedure TForm1.CheckBox3Click(Sender: TObject); 79 | begin 80 | VirtualShellNewMenu1.WarnOnOverwrite := CheckBox3.Checked; 81 | end; 82 | 83 | procedure TForm1.Loaded; 84 | begin 85 | inherited; 86 | CheckBox3.Checked := VirtualShellNewMenu1.WarnOnOverwrite; 87 | CheckBox2.Checked := VirtualShellNewMenu1.UseShellImages; 88 | CheckBox1.Checked := VirtualShellNewMenu1.CombineLikeItems; 89 | CheckBox4.Checked := VirtualShellNewMenu1.NewFolderItem; 90 | CheckBox5.Checked := VirtualShellNewMenu1.NewShortcutItem; 91 | end; 92 | 93 | procedure TForm1.TBXSubmenuItem1Popup(Sender: TTBCustomItem; FromLink: Boolean); 94 | begin 95 | // Just call this method when the SubmenuItem is about to be showed. 96 | // To add unicode support use TSpTBXItem instead: 97 | // VirtualSendToMenu1.Populate_TB2000(Sender, TSpTBXItem); 98 | VirtualShellNewMenu1.Populate_TB2000(Sender, TTBXItem); 99 | end; 100 | 101 | procedure TForm1.FormShow(Sender: TObject); 102 | begin 103 | Application.HintPause := 10000; 104 | ExplorerListview1.Active := True; 105 | end; 106 | 107 | procedure TForm1.CheckBox4Click(Sender: TObject); 108 | begin 109 | VirtualShellNewMenu1.NewFolderItem := CheckBox4.Checked; 110 | end; 111 | 112 | procedure TForm1.CheckBox5Click(Sender: TObject); 113 | begin 114 | VirtualShellNewMenu1.NewShortcutItem := CheckBox5.Checked; 115 | end; 116 | 117 | end. 118 | -------------------------------------------------------------------------------- /Demos/ShellNew (New File) Menu/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 7 | StdCtrls, VirtualExplorerTree, VirtualTrees, ExtCtrls, Menus, 8 | MPShellUtilities, VirtualShellNewMenu; 9 | 10 | type 11 | TForm1 = class(TForm) 12 | Button1: TButton; 13 | RadioGroupFileName: TRadioGroup; 14 | Edit1: TEdit; 15 | ExplorerListview1: TVirtualExplorerListview; 16 | GroupBox1: TGroupBox; 17 | CheckBox1: TCheckBox; 18 | CheckBox2: TCheckBox; 19 | CheckBox3: TCheckBox; 20 | CheckBox4: TCheckBox; 21 | CheckBox5: TCheckBox; 22 | Label2: TLabel; 23 | VirtualShellNewMenu1: TVirtualShellNewMenu; 24 | procedure Button1Click(Sender: TObject); 25 | procedure VirtualShellNewMenu1AddMenuItem(Sender: TPopupMenu; 26 | const NewMenuItem: TVirtualShellNewItem; var Allow: Boolean); 27 | procedure VirtualShellNewMenu1CreateNewFile(Sender: TMenu; 28 | const NewMenuItem: TVirtualShellNewItem; var Path, FileName: String; 29 | var Allow: Boolean); 30 | procedure CheckBox1Click(Sender: TObject); 31 | procedure CheckBox2Click(Sender: TObject); 32 | procedure CheckBox3Click(Sender: TObject); 33 | procedure CheckBox4Click(Sender: TObject); 34 | procedure CheckBox5Click(Sender: TObject); 35 | procedure FormShow(Sender: TObject); 36 | private 37 | { Private declarations } 38 | public 39 | { Public declarations } 40 | procedure Loaded; override; 41 | end; 42 | 43 | var 44 | Form1: TForm1; 45 | 46 | implementation 47 | 48 | {$R *.DFM} 49 | 50 | procedure TForm1.Button1Click(Sender: TObject); 51 | var 52 | Pt: TPoint; 53 | begin 54 | Pt.x := Button1.Left; 55 | Pt.y := Button1.Top + Button1.Height; 56 | Pt := ClientToScreen(Pt); 57 | VirtualShellNewMenu1.Popup(Pt.x, Pt.y); 58 | end; 59 | 60 | procedure TForm1.VirtualShellNewMenu1AddMenuItem(Sender: TPopupMenu; 61 | const NewMenuItem: TVirtualShellNewItem; var Allow: Boolean); 62 | begin 63 | { Here Menu Items can be filtered dynamiclly } 64 | end; 65 | 66 | procedure TForm1.VirtualShellNewMenu1CreateNewFile(Sender: TMenu; 67 | const NewMenuItem: TVirtualShellNewItem; var Path, FileName: String; 68 | var Allow: Boolean); 69 | begin 70 | { Here we MUST return the path the file is to be created in } 71 | Path := ExplorerListview1.RootFolderNamespace.NameForParsing; 72 | if RadioGroupFileName.ItemIndex = 1 then 73 | FileName := Edit1.Text; 74 | end; 75 | 76 | procedure TForm1.CheckBox1Click(Sender: TObject); 77 | begin 78 | VirtualShellNewMenu1.CombineLikeItems := CheckBox1.Checked; 79 | end; 80 | 81 | procedure TForm1.CheckBox2Click(Sender: TObject); 82 | begin 83 | VirtualShellNewMenu1.UseShellImages := CheckBox2.Checked; 84 | end; 85 | 86 | procedure TForm1.CheckBox3Click(Sender: TObject); 87 | begin 88 | VirtualShellNewMenu1.WarnOnOverwrite := CheckBox3.Checked; 89 | end; 90 | 91 | procedure TForm1.Loaded; 92 | begin 93 | inherited; 94 | CheckBox3.Checked := VirtualShellNewMenu1.WarnOnOverwrite; 95 | CheckBox2.Checked := VirtualShellNewMenu1.UseShellImages; 96 | CheckBox1.Checked := VirtualShellNewMenu1.CombineLikeItems; 97 | CheckBox4.Checked := VirtualShellNewMenu1.NewFolderItem; 98 | CheckBox5.Checked := VirtualShellNewMenu1.NewShortcutItem; 99 | end; 100 | 101 | procedure TForm1.FormShow(Sender: TObject); 102 | begin 103 | Application.HintPause := 10000; 104 | ExplorerListview1.Active := True; 105 | end; 106 | 107 | procedure TForm1.CheckBox4Click(Sender: TObject); 108 | begin 109 | VirtualShellNewMenu1.NewFolderItem := CheckBox4.Checked; 110 | end; 111 | 112 | procedure TForm1.CheckBox5Click(Sender: TObject); 113 | begin 114 | VirtualShellNewMenu1.NewShortcutItem := CheckBox5.Checked; 115 | end; 116 | 117 | end. 118 | -------------------------------------------------------------------------------- /Demos/ShellToolbars/ShellToolbars.dpr: -------------------------------------------------------------------------------- 1 | program ShellToolbars; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.RES} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/ShellToolbars/ShellToolbars.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/ShellToolbars/ShellToolbars.res -------------------------------------------------------------------------------- /Demos/User Data/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 248 3 | Top = 141 4 | Width = 669 5 | Height = 480 6 | Caption = 'Form1' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Shell Dlg 2' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | DesignSize = ( 15 | 661 16 | 446) 17 | PixelsPerInch = 96 18 | TextHeight = 13 19 | object Label1: TLabel 20 | Left = 352 21 | Top = 56 22 | Width = 158 23 | Height = 13 24 | Caption = 'String To Assign To User Storage' 25 | end 26 | object Label2: TLabel 27 | Left = 352 28 | Top = 168 29 | Width = 289 30 | Height = 13 31 | Anchors = [akLeft, akTop, akRight] 32 | AutoSize = False 33 | end 34 | object VET: TVirtualExplorerTree 35 | Left = 0 36 | Top = 0 37 | Width = 329 38 | Height = 446 39 | Active = True 40 | Align = alLeft 41 | ColumnDetails = cdUser 42 | ColumnMenuItemCount = 8 43 | DefaultNodeHeight = 17 44 | DragHeight = 250 45 | DragWidth = 150 46 | FileObjects = [foFolders, foNonFolders] 47 | FileSizeFormat = fsfExplorer 48 | FileSort = fsFileType 49 | Header.AutoSizeIndex = 0 50 | Header.Font.Charset = DEFAULT_CHARSET 51 | Header.Font.Color = clWindowText 52 | Header.Font.Height = -11 53 | Header.Font.Name = 'MS Shell Dlg 2' 54 | Header.Font.Style = [] 55 | Header.MainColumn = -1 56 | Header.Options = [hoColumnResize, hoDrag] 57 | HintMode = hmHint 58 | ParentColor = False 59 | RootFolder = rfDesktop 60 | TabOrder = 0 61 | TabStop = True 62 | TreeOptions.PaintOptions = [toShowButtons, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages] 63 | TreeOptions.VETShellOptions = [toRightAlignSizeColumn, toContextMenus] 64 | TreeOptions.VETSyncOptions = [toCollapseTargetFirst, toExpandTarget, toSelectTarget] 65 | TreeOptions.VETMiscOptions = [toBrowseExecuteFolder, toBrowseExecuteFolderShortcut, toExecuteOnDblClk] 66 | TreeOptions.VETImageOptions = [toImages] 67 | Columns = <> 68 | end 69 | object Button1: TButton 70 | Left = 344 71 | Top = 24 72 | Width = 217 73 | Height = 25 74 | Caption = 'Store String to Selected Node' 75 | TabOrder = 1 76 | OnClick = Button1Click 77 | end 78 | object Edit1: TEdit 79 | Left = 376 80 | Top = 72 81 | Width = 201 82 | Height = 21 83 | TabOrder = 2 84 | Text = 'Edit1' 85 | end 86 | object Button2: TButton 87 | Left = 344 88 | Top = 128 89 | Width = 217 90 | Height = 25 91 | Caption = 'Read User Data from Selected Node' 92 | TabOrder = 3 93 | OnClick = Button2Click 94 | end 95 | object Button3: TButton 96 | Left = 352 97 | Top = 224 98 | Width = 209 99 | Height = 25 100 | Caption = 'Delete User Data from Selected Node' 101 | TabOrder = 4 102 | OnClick = Button3Click 103 | end 104 | end 105 | -------------------------------------------------------------------------------- /Demos/User Data/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, VirtualTrees, VirtualExplorerTree, MPShellUtilities; 8 | 9 | type 10 | TForm1 = class(TForm) 11 | VET: TVirtualExplorerTree; 12 | Button1: TButton; 13 | Edit1: TEdit; 14 | Label1: TLabel; 15 | Button2: TButton; 16 | Label2: TLabel; 17 | Button3: TButton; 18 | procedure Button1Click(Sender: TObject); 19 | procedure Button2Click(Sender: TObject); 20 | procedure Button3Click(Sender: TObject); 21 | private 22 | { Private declarations } 23 | public 24 | { Public declarations } 25 | end; 26 | 27 | 28 | // User Defined Per node Storage override this and use the Storage class in VET or the Global 29 | TMyUserDataStorage = class(TUserDataStorage) 30 | private 31 | FUserString: string; 32 | public 33 | //You should override these 3 methods in your application: 34 | procedure LoadFromStream(S: TStream; Version: integer = VETStreamStorageVer; ReadVerFromStream: Boolean = False); override; 35 | procedure SaveToStream(S: TStream; Version: integer = VETStreamStorageVer; WriteVerToStream: Boolean = False); override; 36 | procedure Assign(Source: TPersistent); override; 37 | 38 | property UserString: string read FUserString write FUserString; 39 | end; 40 | 41 | var 42 | Form1: TForm1; 43 | 44 | implementation 45 | 46 | {$R *.dfm} 47 | 48 | { TMyUserDataStorage } 49 | 50 | procedure TMyUserDataStorage.Assign(Source: TPersistent); 51 | begin 52 | if Source is TMyUserDataStorage then 53 | UserString := TMyUserDataStorage(Source).UserString; 54 | inherited; 55 | end; 56 | 57 | procedure TMyUserDataStorage.LoadFromStream(S: TStream; Version: integer; 58 | ReadVerFromStream: Boolean); 59 | var 60 | Count: Integer; 61 | begin 62 | inherited; 63 | S.read(Count, SizeOf(Count)); 64 | SetLength(FUserString, Count); 65 | S.read(PChar(FUserString)^, Count) 66 | end; 67 | 68 | procedure TMyUserDataStorage.SaveToStream(S: TStream; Version: integer; 69 | WriteVerToStream: Boolean); 70 | var 71 | Count: Integer; 72 | begin 73 | inherited; 74 | Count := Length(FUserString); 75 | S.Write(Count, SizeOf(Count)); 76 | S.Write(PChar(FUserString)^, Count) 77 | end; 78 | 79 | procedure TForm1.Button1Click(Sender: TObject); 80 | var 81 | NS: TNamespace; 82 | SNode: TNodeSTorage; 83 | begin 84 | if VET.ValidateNamespace(VET.GetFirstSelected, NS) then 85 | begin 86 | SNode := VET.Storage.Store(NS.AbsolutePIDL, [stUser]); 87 | if Assigned(SNode) then 88 | begin 89 | SNode.Storage.UserData := TMyUserDataStorage.Create; 90 | TMyUserDataStorage(SNode.Storage.UserData).UserString := Edit1.Text 91 | end 92 | end 93 | end; 94 | 95 | procedure TForm1.Button2Click(Sender: TObject); 96 | var 97 | NS: TNamespace; 98 | SNode: TNodeSTorage; 99 | begin 100 | if VET.ValidateNamespace(VET.GetFirstSelected, NS) then 101 | if VET.Storage.Find(NS.AbsolutePIDL, [stUser], SNode) then 102 | Label2.Caption := TMyUserDataStorage( SNode.Storage.UserData).UserString 103 | else 104 | ShowMessage('No User Data has been assiged to this node') 105 | end; 106 | 107 | procedure TForm1.Button3Click(Sender: TObject); 108 | var 109 | NS: TNamespace; 110 | SNode: TNodeSTorage; 111 | begin 112 | if VET.ValidateNamespace(VET.GetFirstSelected, NS) then 113 | if VET.Storage.Find(NS.AbsolutePIDL, [stUser], SNode) then 114 | begin 115 | SNode.Storage.UserData.Free; 116 | SNode.Storage.UserData := nil; 117 | VET.Storage.Delete(NS.AbsolutePIDL, [stUser]); 118 | end else 119 | ShowMessage('No User Data has been assiged to this node') 120 | end; 121 | 122 | end. 123 | -------------------------------------------------------------------------------- /Demos/User Data/UserDataProject.dpr: -------------------------------------------------------------------------------- 1 | 2 | program UserDataProject; 3 | 4 | uses 5 | Forms, 6 | Unit1 in 'Unit1.pas' {Form1}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.CreateForm(TForm1, Form1); 13 | Application.Run; 14 | end. 15 | -------------------------------------------------------------------------------- /Demos/User Data/UserDataProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/User Data/UserDataProject.res -------------------------------------------------------------------------------- /Demos/Vertical Icons Custom Draw/ProjectVerticalIcons.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O- 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"d:\borland\delphi7\Projects\Bpl" 35 | -LN"d:\borland\delphi7\Projects\Bpl" 36 | -w-UNSAFE_TYPE 37 | -w-UNSAFE_CODE 38 | -w-UNSAFE_CAST 39 | -------------------------------------------------------------------------------- /Demos/Vertical Icons Custom Draw/ProjectVerticalIcons.dof: -------------------------------------------------------------------------------- 1 | [FileVersion] 2 | Version=7.0 3 | [Compiler] 4 | A=8 5 | B=0 6 | C=1 7 | D=1 8 | E=0 9 | F=0 10 | G=1 11 | H=1 12 | I=1 13 | J=0 14 | K=0 15 | L=1 16 | M=0 17 | N=1 18 | O=0 19 | P=1 20 | Q=0 21 | R=0 22 | S=0 23 | T=0 24 | U=0 25 | V=1 26 | W=0 27 | X=1 28 | Y=1 29 | Z=1 30 | ShowHints=1 31 | ShowWarnings=1 32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 33 | NamespacePrefix= 34 | SymbolDeprecated=1 35 | SymbolLibrary=1 36 | SymbolPlatform=1 37 | UnitLibrary=1 38 | UnitPlatform=1 39 | UnitDeprecated=1 40 | HResultCompat=1 41 | HidingMember=1 42 | HiddenVirtual=1 43 | Garbage=1 44 | BoundsError=1 45 | ZeroNilCompat=1 46 | StringConstTruncated=1 47 | ForLoopVarVarPar=1 48 | TypedConstVarPar=1 49 | AsgToTypedConst=1 50 | CaseLabelRange=1 51 | ForVariable=1 52 | ConstructingAbstract=1 53 | ComparisonFalse=1 54 | ComparisonTrue=1 55 | ComparingSignedUnsigned=1 56 | CombiningSignedUnsigned=1 57 | UnsupportedConstruct=1 58 | FileOpen=1 59 | FileOpenUnitSrc=1 60 | BadGlobalSymbol=1 61 | DuplicateConstructorDestructor=1 62 | InvalidDirective=1 63 | PackageNoLink=1 64 | PackageThreadVar=1 65 | ImplicitImport=1 66 | HPPEMITIgnored=1 67 | NoRetVal=1 68 | UseBeforeDef=1 69 | ForLoopVarUndef=1 70 | UnitNameMismatch=1 71 | NoCFGFileFound=1 72 | MessageDirective=1 73 | ImplicitVariants=1 74 | UnicodeToLocale=1 75 | LocaleToUnicode=1 76 | ImagebaseMultiple=1 77 | SuspiciousTypecast=1 78 | PrivatePropAccessor=1 79 | UnsafeType=0 80 | UnsafeCode=0 81 | UnsafeCast=0 82 | [Linker] 83 | MapFile=0 84 | OutputObjs=0 85 | ConsoleApp=1 86 | DebugInfo=0 87 | RemoteSymbols=0 88 | MinStackSize=16384 89 | MaxStackSize=1048576 90 | ImageBase=4194304 91 | ExeDescription= 92 | [Directories] 93 | OutputDir= 94 | UnitOutputDir= 95 | PackageDLLOutputDir= 96 | PackageDCPOutputDir= 97 | SearchPath= 98 | Packages=vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOfficeXP;TntUnicodeVcl_R70;tb2k_d7;SpTBXLib_d7 99 | Conditionals= 100 | DebugSourceDirs= 101 | UsePackages=0 102 | [Parameters] 103 | RunParams= 104 | HostApplication= 105 | Launcher= 106 | UseLauncher=0 107 | DebugCWD= 108 | [Language] 109 | ActiveLang= 110 | ProjectLang= 111 | RootDir=D:\Borland\Delphi7\Bin\ 112 | [Version Info] 113 | IncludeVerInfo=0 114 | AutoIncBuild=0 115 | MajorVer=1 116 | MinorVer=0 117 | Release=0 118 | Build=0 119 | Debug=0 120 | PreRelease=0 121 | Special=0 122 | Private=0 123 | DLL=0 124 | Locale=1033 125 | CodePage=1252 126 | [Version Info Keys] 127 | CompanyName= 128 | FileDescription= 129 | FileVersion=1.0.0.0 130 | InternalName= 131 | LegalCopyright= 132 | LegalTrademarks= 133 | OriginalFilename= 134 | ProductName= 135 | ProductVersion=1.0.0.0 136 | Comments= 137 | [Excluded Packages] 138 | d:\borland\delphi7\Projects\Bpl\ATViewerD7-UltraExplorer.bpl=ATViewer 139 | -------------------------------------------------------------------------------- /Demos/Vertical Icons Custom Draw/ProjectVerticalIcons.dpr: -------------------------------------------------------------------------------- 1 | program ProjectVerticalIcons; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/Vertical Icons Custom Draw/ProjectVerticalIcons.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Vertical Icons Custom Draw/ProjectVerticalIcons.res -------------------------------------------------------------------------------- /Demos/Vertical Icons Custom Draw/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 522 3 | Top = 325 4 | Width = 829 5 | Height = 511 6 | Caption = 'Form1' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object VirtualExplorerEasyListview1: TVirtualExplorerEasyListview 17 | Left = 0 18 | Top = 0 19 | Width = 813 20 | Height = 475 21 | Active = True 22 | Align = alClient 23 | CompressedFile.Color = clRed 24 | CompressedFile.Font.Charset = DEFAULT_CHARSET 25 | CompressedFile.Font.Color = clWindowText 26 | CompressedFile.Font.Height = -11 27 | CompressedFile.Font.Name = 'MS Sans Serif' 28 | CompressedFile.Font.Style = [] 29 | DefaultSortColumn = 0 30 | EditManager.Font.Charset = DEFAULT_CHARSET 31 | EditManager.Font.Color = clWindowText 32 | EditManager.Font.Height = -11 33 | EditManager.Font.Name = 'MS Sans Serif' 34 | EditManager.Font.Style = [] 35 | EncryptedFile.Color = 32832 36 | EncryptedFile.Font.Charset = DEFAULT_CHARSET 37 | EncryptedFile.Font.Color = clWindowText 38 | EncryptedFile.Font.Height = -11 39 | EncryptedFile.Font.Name = 'MS Sans Serif' 40 | EncryptedFile.Font.Style = [] 41 | FileSizeFormat = vfsfDefault 42 | Grouped = False 43 | GroupingColumn = 0 44 | PaintInfoGroup.MarginBottom.CaptionIndent = 4 45 | PaintInfoGroup.MarginTop.Visible = False 46 | Sort.Algorithm = esaQuickSort 47 | Sort.AutoSort = True 48 | Selection.AlphaBlendSelRect = True 49 | Selection.EnableDragSelect = True 50 | Selection.MultiSelect = True 51 | TabOrder = 0 52 | ThumbsManager.StorageFilename = 'Thumbnails.album' 53 | OnCustomGrid = VirtualExplorerEasyListview1CustomGrid 54 | end 55 | end 56 | -------------------------------------------------------------------------------- /Demos/Vertical Icons Custom Draw/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, MPCommonObjects, EasyListview, VirtualExplorerEasyListview; 8 | 9 | type 10 | TForm1 = class(TForm) 11 | VirtualExplorerEasyListview1: TVirtualExplorerEasyListview; 12 | procedure VirtualExplorerEasyListview1CustomGrid( 13 | Sender: TCustomEasyListview; Group: TEasyGroup; 14 | ViewStyle: TEasyListStyle; var Grid: TEasyGridGroupClass); 15 | private 16 | { Private declarations } 17 | public 18 | { Public declarations } 19 | end; 20 | 21 | // Make a grid that is layed out like the List View but has the cell sizing of 22 | // the Icon View 23 | TVerticalIconGridGroup = class(TEasyGridListGroup) 24 | protected 25 | function GetCellSize: TEasyCellSize; override; 26 | end; 27 | 28 | var 29 | Form1: TForm1; 30 | 31 | implementation 32 | 33 | {$R *.dfm} 34 | 35 | type 36 | TCustomVirtualExplorerEasyListviewHack = class(TCustomVirtualExplorerEasyListview); 37 | 38 | { TVerticalIconGridGroup } 39 | function TVerticalIconGridGroup.GetCellSize: TEasyCellSize; 40 | begin 41 | Result := TCustomVirtualExplorerEasyListviewHack(OwnerListview).CellSizes.Icon; 42 | end; 43 | 44 | procedure TForm1.VirtualExplorerEasyListview1CustomGrid( 45 | Sender: TCustomEasyListview; Group: TEasyGroup; 46 | ViewStyle: TEasyListStyle; var Grid: TEasyGridGroupClass); 47 | begin 48 | // Map the Icon style to the Vertical Icon List Style 49 | if ViewStyle = elsIcon then 50 | Grid := TVerticalIconGridGroup; 51 | end; 52 | 53 | end. 54 | -------------------------------------------------------------------------------- /Demos/Virtual Explorer/About.dfm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Virtual Explorer/About.dfm -------------------------------------------------------------------------------- /Demos/Virtual Explorer/About.pas: -------------------------------------------------------------------------------- 1 | unit About; 2 | 3 | interface 4 | 5 | uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 6 | Buttons, ExtCtrls, ShellAPI, Messages; 7 | 8 | type 9 | TAboutBox = class(TForm) 10 | Panel1: TPanel; 11 | ProgramIcon: TImage; 12 | ProductName: TLabel; 13 | Version: TLabel; 14 | OKButton: TButton; 15 | Label2: TLabel; 16 | Timer1: TTimer; 17 | Label3: TLabel; 18 | Label4: TLabel; 19 | Label5: TLabel; 20 | Label6: TLabel; 21 | Label1: TLabel; 22 | Label7: TLabel; 23 | procedure Timer1Timer(Sender: TObject); 24 | procedure FormShow(Sender: TObject); 25 | procedure FormHide(Sender: TObject); 26 | procedure Label3MouseDown(Sender: TObject; Button: TMouseButton; 27 | Shift: TShiftState; X, Y: Integer); 28 | procedure Label4MouseDown(Sender: TObject; Button: TMouseButton; 29 | Shift: TShiftState; X, Y: Integer); 30 | procedure Label5MouseDown(Sender: TObject; Button: TMouseButton; 31 | Shift: TShiftState; X, Y: Integer); 32 | procedure Label1MouseDown(Sender: TObject; Button: TMouseButton; 33 | Shift: TShiftState; X, Y: Integer); 34 | procedure Label7MouseDown(Sender: TObject; Button: TMouseButton; 35 | Shift: TShiftState; X, Y: Integer); 36 | private 37 | { Private declarations } 38 | 39 | public 40 | { Public declarations } 41 | 42 | end; 43 | 44 | var 45 | AboutBox: TAboutBox; 46 | 47 | implementation 48 | 49 | {$R *.DFM} 50 | 51 | procedure TAboutBox.Timer1Timer(Sender: TObject); 52 | 53 | function CheckURL(ALabel: TLabel): Boolean; 54 | begin 55 | if PtInRect(ALabel.ClientRect, ALabel.ScreenToClient(Mouse.CursorPos)) then 56 | begin 57 | Screen.Cursor := crHandPoint; 58 | ALabel.Font.Color := clBlue; 59 | ALabel.Font.Style := ALabel.Font.Style + [fsBold]; 60 | Result := True; 61 | end else 62 | begin 63 | ALabel.Font.Color := clBlack; 64 | ALabel.Font.Style := ALabel.Font.Style - [fsBold]; 65 | Result := False; 66 | end 67 | end; 68 | 69 | begin 70 | {$B+} 71 | if not (CheckURL(Label3) or CheckURL(Label4) or CheckURL(Label5) or CheckURL(Label1) or CheckURL(Label7)) then 72 | begin 73 | Screen.Cursor := crDefault; 74 | end; 75 | {$B-} 76 | end; 77 | 78 | procedure TAboutBox.FormShow(Sender: TObject); 79 | begin 80 | Timer1.Enabled := True; 81 | ProgramIcon.Picture.LoadFromFile('VST Logo 1.bmp'); 82 | end; 83 | 84 | procedure TAboutBox.FormHide(Sender: TObject); 85 | begin 86 | Timer1.Enabled := False; 87 | ProgramIcon.Picture.Bitmap.ReleaseHandle; 88 | end; 89 | 90 | procedure TAboutBox.Label3MouseDown(Sender: TObject; Button: TMouseButton; 91 | Shift: TShiftState; X, Y: Integer); 92 | begin 93 | ShellExecute(Handle, 'open', 'http://Borland.com', '', '', SW_SHOWNORMAL); 94 | end; 95 | 96 | procedure TAboutBox.Label4MouseDown(Sender: TObject; Button: TMouseButton; 97 | Shift: TShiftState; X, Y: Integer); 98 | begin 99 | ShellExecute(Handle, 'open', 'http://www.lischke-online.de/VirtualTreeview.html', '', '', SW_SHOWNORMAL); 100 | end; 101 | 102 | procedure TAboutBox.Label5MouseDown(Sender: TObject; Button: TMouseButton; 103 | Shift: TShiftState; X, Y: Integer); 104 | begin 105 | ShellExecute(Handle, 'open', 'http://groups.yahoo.com/group/VirtualExplorerTree/', '', '', SW_SHOWNORMAL); 106 | end; 107 | 108 | procedure TAboutBox.Label1MouseDown(Sender: TObject; Button: TMouseButton; 109 | Shift: TShiftState; X, Y: Integer); 110 | begin 111 | ShellExecute(Handle, 'open', 'http://www.delphi-gems.com/ThemeManager.html', '', '', SW_SHOWNORMAL); 112 | end; 113 | 114 | procedure TAboutBox.Label7MouseDown(Sender: TObject; Button: TMouseButton; 115 | Shift: TShiftState; X, Y: Integer); 116 | begin 117 | ShellExecute(Handle, 'open', 'mailto: jimdk@mindspring.com', '', '', SW_SHOWNORMAL); 118 | end; 119 | 120 | end. 121 | 122 | -------------------------------------------------------------------------------- /Demos/Virtual Explorer/VST Logo 1.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Virtual Explorer/VST Logo 1.bmp -------------------------------------------------------------------------------- /Demos/Virtual Explorer/VirtualExplorer.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O- 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"d:\borland\delphi7\Projects\Bpl" 35 | -LN"d:\borland\delphi7\Projects\Bpl" 36 | -w-UNSAFE_TYPE 37 | -w-UNSAFE_CODE 38 | -w-UNSAFE_CAST 39 | -------------------------------------------------------------------------------- /Demos/Virtual Explorer/VirtualExplorer.dof: -------------------------------------------------------------------------------- 1 | [FileVersion] 2 | Version=7.0 3 | [Compiler] 4 | A=8 5 | B=0 6 | C=1 7 | D=1 8 | E=0 9 | F=0 10 | G=1 11 | H=1 12 | I=1 13 | J=0 14 | K=0 15 | L=1 16 | M=0 17 | N=1 18 | O=0 19 | P=1 20 | Q=0 21 | R=0 22 | S=0 23 | T=0 24 | U=0 25 | V=1 26 | W=0 27 | X=1 28 | Y=1 29 | Z=1 30 | ShowHints=1 31 | ShowWarnings=1 32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 33 | NamespacePrefix= 34 | SymbolDeprecated=1 35 | SymbolLibrary=1 36 | SymbolPlatform=1 37 | UnitLibrary=1 38 | UnitPlatform=1 39 | UnitDeprecated=1 40 | HResultCompat=1 41 | HidingMember=1 42 | HiddenVirtual=1 43 | Garbage=1 44 | BoundsError=1 45 | ZeroNilCompat=1 46 | StringConstTruncated=1 47 | ForLoopVarVarPar=1 48 | TypedConstVarPar=1 49 | AsgToTypedConst=1 50 | CaseLabelRange=1 51 | ForVariable=1 52 | ConstructingAbstract=1 53 | ComparisonFalse=1 54 | ComparisonTrue=1 55 | ComparingSignedUnsigned=1 56 | CombiningSignedUnsigned=1 57 | UnsupportedConstruct=1 58 | FileOpen=1 59 | FileOpenUnitSrc=1 60 | BadGlobalSymbol=1 61 | DuplicateConstructorDestructor=1 62 | InvalidDirective=1 63 | PackageNoLink=1 64 | PackageThreadVar=1 65 | ImplicitImport=1 66 | HPPEMITIgnored=1 67 | NoRetVal=1 68 | UseBeforeDef=1 69 | ForLoopVarUndef=1 70 | UnitNameMismatch=1 71 | NoCFGFileFound=1 72 | MessageDirective=1 73 | ImplicitVariants=1 74 | UnicodeToLocale=1 75 | LocaleToUnicode=1 76 | ImagebaseMultiple=1 77 | SuspiciousTypecast=1 78 | PrivatePropAccessor=1 79 | UnsafeType=0 80 | UnsafeCode=0 81 | UnsafeCast=0 82 | [Linker] 83 | MapFile=0 84 | OutputObjs=0 85 | ConsoleApp=1 86 | DebugInfo=0 87 | RemoteSymbols=0 88 | MinStackSize=16384 89 | MaxStackSize=1048576 90 | ImageBase=4194304 91 | ExeDescription= 92 | [Directories] 93 | OutputDir= 94 | UnitOutputDir= 95 | PackageDLLOutputDir= 96 | PackageDCPOutputDir= 97 | SearchPath= 98 | Packages=vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOfficeXP;TntUnicodeVcl_R70;tb2k_d7;SpTBXLib_d7 99 | Conditionals= 100 | DebugSourceDirs= 101 | UsePackages=0 102 | [Parameters] 103 | RunParams= 104 | HostApplication= 105 | Launcher= 106 | UseLauncher=0 107 | DebugCWD= 108 | [Language] 109 | ActiveLang= 110 | ProjectLang= 111 | RootDir=D:\Borland\Delphi7\Bin\ 112 | [Version Info] 113 | IncludeVerInfo=0 114 | AutoIncBuild=0 115 | MajorVer=1 116 | MinorVer=0 117 | Release=0 118 | Build=0 119 | Debug=0 120 | PreRelease=0 121 | Special=0 122 | Private=0 123 | DLL=0 124 | Locale=1033 125 | CodePage=1252 126 | [Version Info Keys] 127 | CompanyName= 128 | FileDescription= 129 | FileVersion=1.0.0.0 130 | InternalName= 131 | LegalCopyright= 132 | LegalTrademarks= 133 | OriginalFilename= 134 | ProductName= 135 | ProductVersion=1.0.0.0 136 | Comments= 137 | -------------------------------------------------------------------------------- /Demos/Virtual Explorer/VirtualExplorer.dpr: -------------------------------------------------------------------------------- 1 | program VirtualExplorer; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}, 6 | About in 'About.pas' {AboutBox}; 7 | 8 | {$R *.RES} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.Title := 'Virtual Explorer Demo for VirtualShellTools'; 13 | Application.CreateForm(TForm1, Form1); 14 | Application.CreateForm(TAboutBox, AboutBox); 15 | Application.Run; 16 | end. 17 | -------------------------------------------------------------------------------- /Demos/Virtual Explorer/VirtualExplorer.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Virtual Explorer/VirtualExplorer.res -------------------------------------------------------------------------------- /Demos/VirtualDropStack/DropStackProject.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O- 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"d:\borland\delphi7\Projects\Bpl" 35 | -LN"d:\borland\delphi7\Projects\Bpl" 36 | -w-UNSAFE_TYPE 37 | -w-UNSAFE_CODE 38 | -w-UNSAFE_CAST 39 | -------------------------------------------------------------------------------- /Demos/VirtualDropStack/DropStackProject.dof: -------------------------------------------------------------------------------- 1 | [FileVersion] 2 | Version=7.0 3 | [Compiler] 4 | A=8 5 | B=0 6 | C=1 7 | D=1 8 | E=0 9 | F=0 10 | G=1 11 | H=1 12 | I=1 13 | J=0 14 | K=0 15 | L=1 16 | M=0 17 | N=1 18 | O=0 19 | P=1 20 | Q=0 21 | R=0 22 | S=0 23 | T=0 24 | U=0 25 | V=1 26 | W=0 27 | X=1 28 | Y=1 29 | Z=1 30 | ShowHints=1 31 | ShowWarnings=1 32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 33 | NamespacePrefix= 34 | SymbolDeprecated=1 35 | SymbolLibrary=1 36 | SymbolPlatform=1 37 | UnitLibrary=1 38 | UnitPlatform=1 39 | UnitDeprecated=1 40 | HResultCompat=1 41 | HidingMember=1 42 | HiddenVirtual=1 43 | Garbage=1 44 | BoundsError=1 45 | ZeroNilCompat=1 46 | StringConstTruncated=1 47 | ForLoopVarVarPar=1 48 | TypedConstVarPar=1 49 | AsgToTypedConst=1 50 | CaseLabelRange=1 51 | ForVariable=1 52 | ConstructingAbstract=1 53 | ComparisonFalse=1 54 | ComparisonTrue=1 55 | ComparingSignedUnsigned=1 56 | CombiningSignedUnsigned=1 57 | UnsupportedConstruct=1 58 | FileOpen=1 59 | FileOpenUnitSrc=1 60 | BadGlobalSymbol=1 61 | DuplicateConstructorDestructor=1 62 | InvalidDirective=1 63 | PackageNoLink=1 64 | PackageThreadVar=1 65 | ImplicitImport=1 66 | HPPEMITIgnored=1 67 | NoRetVal=1 68 | UseBeforeDef=1 69 | ForLoopVarUndef=1 70 | UnitNameMismatch=1 71 | NoCFGFileFound=1 72 | MessageDirective=1 73 | ImplicitVariants=1 74 | UnicodeToLocale=1 75 | LocaleToUnicode=1 76 | ImagebaseMultiple=1 77 | SuspiciousTypecast=1 78 | PrivatePropAccessor=1 79 | UnsafeType=0 80 | UnsafeCode=0 81 | UnsafeCast=0 82 | [Linker] 83 | MapFile=0 84 | OutputObjs=0 85 | ConsoleApp=1 86 | DebugInfo=0 87 | RemoteSymbols=0 88 | MinStackSize=16384 89 | MaxStackSize=1048576 90 | ImageBase=4194304 91 | ExeDescription= 92 | [Directories] 93 | OutputDir= 94 | UnitOutputDir= 95 | PackageDLLOutputDir= 96 | PackageDCPOutputDir= 97 | SearchPath= 98 | Packages=vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOfficeXP;TntUnicodeVcl_R70;tb2k_d7;SpTBXLib_d7 99 | Conditionals= 100 | DebugSourceDirs= 101 | UsePackages=0 102 | [Parameters] 103 | RunParams= 104 | HostApplication= 105 | Launcher= 106 | UseLauncher=0 107 | DebugCWD= 108 | [Language] 109 | ActiveLang= 110 | ProjectLang= 111 | RootDir=D:\Borland\Delphi7\Bin\ 112 | [Version Info] 113 | IncludeVerInfo=0 114 | AutoIncBuild=0 115 | MajorVer=1 116 | MinorVer=0 117 | Release=0 118 | Build=0 119 | Debug=0 120 | PreRelease=0 121 | Special=0 122 | Private=0 123 | DLL=0 124 | Locale=1033 125 | CodePage=1252 126 | [Version Info Keys] 127 | CompanyName= 128 | FileDescription= 129 | FileVersion=1.0.0.0 130 | InternalName= 131 | LegalCopyright= 132 | LegalTrademarks= 133 | OriginalFilename= 134 | ProductName= 135 | ProductVersion=1.0.0.0 136 | Comments= 137 | -------------------------------------------------------------------------------- /Demos/VirtualDropStack/DropStackProject.dpr: -------------------------------------------------------------------------------- 1 | program DropStackProject; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/VirtualDropStack/DropStackProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/VirtualDropStack/DropStackProject.res -------------------------------------------------------------------------------- /Demos/VirtualDropStack/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, MPCommonObjects, EasyListview, 8 | VirtualExplorerEasyListview, ExtCtrls; 9 | 10 | type 11 | TForm1 = class(TForm) 12 | Panel1: TPanel; 13 | VirtualExplorerEasyListview1: TVirtualExplorerEasyListview; 14 | Label1: TLabel; 15 | Label2: TLabel; 16 | Label3: TLabel; 17 | Label4: TLabel; 18 | Label5: TLabel; 19 | Panel2: TPanel; 20 | CheckBox1: TCheckBox; 21 | Button1: TButton; 22 | ComboBox1: TComboBox; 23 | Splitter1: TSplitter; 24 | VirtualDropStack1: TVirtualDropStack; 25 | procedure CheckBox1Click(Sender: TObject); 26 | procedure Button1Click(Sender: TObject); 27 | procedure FormShow(Sender: TObject); 28 | procedure ComboBox1Change(Sender: TObject); 29 | private 30 | { Private declarations } 31 | public 32 | { Public declarations } 33 | end; 34 | 35 | var 36 | Form1: TForm1; 37 | 38 | implementation 39 | 40 | {$R *.dfm} 41 | 42 | procedure TForm1.CheckBox1Click(Sender: TObject); 43 | begin 44 | VirtualDropStack1.ShowHint := True; 45 | end; 46 | 47 | procedure TForm1.Button1Click(Sender: TObject); 48 | begin 49 | VirtualDropStack1.Items.Clear 50 | end; 51 | 52 | procedure TForm1.FormShow(Sender: TObject); 53 | begin 54 | ComboBox1.ItemIndex := 0; 55 | end; 56 | 57 | procedure TForm1.ComboBox1Change(Sender: TObject); 58 | begin 59 | VirtualDropStack1.View := TEasyListStyle(ComboBox1.ItemIndex) 60 | end; 61 | 62 | end. 63 | -------------------------------------------------------------------------------- /Demos/VirtualEasyListModeView/EasyListModeViewProjectGroup.bpg: -------------------------------------------------------------------------------- 1 | #------------------------------------------------------------------------------ 2 | VERSION = BWS.01 3 | #------------------------------------------------------------------------------ 4 | !ifndef ROOT 5 | ROOT = $(MAKEDIR)\.. 6 | !endif 7 | #------------------------------------------------------------------------------ 8 | MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** 9 | DCC = $(ROOT)\bin\dcc32.exe $** 10 | BRCC = $(ROOT)\bin\brcc32.exe $** 11 | #------------------------------------------------------------------------------ 12 | PROJECTS = EasyListviewD7.bpl EasyListviewD7D.bpl VirtualShellToolsD7.bpl \ 13 | VirtualShellToolsD7D.bpl VirtualExplorerListModeViewProject.exe 14 | #------------------------------------------------------------------------------ 15 | default: $(PROJECTS) 16 | #------------------------------------------------------------------------------ 17 | 18 | VirtualExplorerListModeViewProject.exe: VirtualExplorerListModeViewProject.dpr 19 | $(DCC) 20 | 21 | EasyListviewD7.bpl: ..\..\..\EasyListview\Delphi\EasyListviewD7.dpk 22 | $(DCC) 23 | 24 | EasyListviewD7D.bpl: ..\..\..\EasyListview\Delphi\EasyListviewD7D.dpk 25 | $(DCC) 26 | 27 | VirtualShellToolsD7.bpl: ..\..\Delphi\VirtualShellToolsD7.dpk 28 | $(DCC) 29 | 30 | VirtualShellToolsD7D.bpl: ..\..\Delphi\VirtualShellToolsD7D.dpk 31 | $(DCC) 32 | 33 | 34 | -------------------------------------------------------------------------------- /Demos/VirtualEasyListModeView/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 372 3 | Top = 233 4 | Width = 696 5 | Height = 480 6 | Caption = 'Form1' 7 | Color = clWindow 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Shell Dlg 2' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnShow = FormShow 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object VirtualExplorerCombobox1: TVirtualExplorerCombobox 18 | Left = 0 19 | Top = 41 20 | Width = 680 21 | Active = True 22 | Align = alTop 23 | TabOrder = 0 24 | Path = 'VirtualExplorerCombobox1' 25 | TextType = ecbtFullPath 26 | end 27 | object VirtualColumnModeView1: TVirtualColumnModeView 28 | Left = 0 29 | Top = 64 30 | Width = 680 31 | Height = 380 32 | HorzScrollBar.Tracking = True 33 | VertScrollBar.Smooth = True 34 | VertScrollBar.Tracking = True 35 | Align = alClient 36 | ParentColor = False 37 | TabOrder = 1 38 | ExplorerCombobox = VirtualExplorerCombobox1 39 | GroupingColumn = 0 40 | SmoothScrollDelta = 0 41 | end 42 | object Panel1: TPanel 43 | Left = 0 44 | Top = 0 45 | Width = 680 46 | Height = 41 47 | Align = alTop 48 | TabOrder = 2 49 | object CheckBox1: TCheckBox 50 | Left = 16 51 | Top = 8 52 | Width = 97 53 | Height = 17 54 | Caption = 'Active' 55 | TabOrder = 0 56 | OnClick = CheckBox1Click 57 | end 58 | end 59 | end 60 | -------------------------------------------------------------------------------- /Demos/VirtualEasyListModeView/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 7 | Dialogs, ExtCtrls, VirtualExplorerEasyListModeview, VirtualTrees, 8 | VirtualExplorerTree, StdCtrls, ComCtrls, MPCommonObjects, EasyListview, 9 | VirtualExplorerEasyListview; 10 | 11 | type 12 | TForm1 = class(TForm) 13 | VirtualExplorerCombobox1: TVirtualExplorerCombobox; 14 | VirtualColumnModeView1: TVirtualColumnModeView; 15 | Panel1: TPanel; 16 | CheckBox1: TCheckBox; 17 | procedure CheckBox1Click(Sender: TObject); 18 | procedure VirtualExplorerCombobox1Change(Sender: TObject); 19 | procedure FormShow(Sender: TObject); 20 | private 21 | { Private declarations } 22 | public 23 | { Public declarations } 24 | end; 25 | 26 | var 27 | Form1: TForm1; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TForm1.CheckBox1Click(Sender: TObject); 34 | begin 35 | VirtualColumnModeView1.Active := CheckBox1.Checked 36 | end; 37 | 38 | procedure TForm1.VirtualExplorerCombobox1Change(Sender: TObject); 39 | begin 40 | VirtualColumnModeView1.Path := VirtualExplorerCombobox1.EditNamespace.Clone(True) 41 | end; 42 | 43 | procedure TForm1.FormShow(Sender: TObject); 44 | begin 45 | // VirtualColumnModeView1.Color := clWindow; 46 | end; 47 | 48 | end. 49 | -------------------------------------------------------------------------------- /Demos/VirtualEasyListModeView/VirtualExplorerListModeViewProject.dpr: -------------------------------------------------------------------------------- 1 | program VirtualExplorerListModeViewProject; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}, 6 | VirtualExplorerEasyListModeview in '..\..\Source\VirtualExplorerEasyListModeview.pas'; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.CreateForm(TForm1, Form1); 13 | Application.Run; 14 | end. 15 | -------------------------------------------------------------------------------- /Demos/VirtualEasyListModeView/VirtualExplorerListModeViewProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/VirtualEasyListModeView/VirtualExplorerListModeViewProject.res -------------------------------------------------------------------------------- /Demos/VirtualEasyListviewCustomContextMenu/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 281 3 | Top = 110 4 | Width = 696 5 | Height = 480 6 | Caption = 'Form1' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object VirtualExplorerEasyListview1: TVirtualExplorerEasyListview 17 | Left = 0 18 | Top = 0 19 | Width = 688 20 | Height = 446 21 | Active = True 22 | Align = alClient 23 | DefaultSortColumn = 0 24 | Font.Charset = DEFAULT_CHARSET 25 | Font.Color = clWindowText 26 | Font.Height = -11 27 | Font.Name = 'MS Shell Dlg 2' 28 | Font.Style = [] 29 | Grouped = False 30 | GroupingColumn = 0 31 | GroupFont.Charset = DEFAULT_CHARSET 32 | GroupFont.Color = clWindowText 33 | GroupFont.Height = -11 34 | GroupFont.Name = 'MS Shell Dlg 2' 35 | GroupFont.Style = [] 36 | Header.Font.Charset = DEFAULT_CHARSET 37 | Header.Font.Color = clWindowText 38 | Header.Font.Height = -11 39 | Header.Font.Name = 'MS Shell Dlg 2' 40 | Header.Font.Style = [] 41 | Options = [eloBrowseExecuteFolder, eloBrowseExecuteFolderShortcut, eloBrowseExecuteZipFolder, eloExecuteOnDblClick, eloThreadedImages, eloThreadedDetails, eloShellContextMenus] 42 | PaintInfoGroup.MarginBottom.CaptionIndent = 4 43 | PaintInfoGroup.MarginTop.Visible = False 44 | ParentFont = False 45 | Sort.AutoSort = True 46 | TabOrder = 0 47 | ThumbsManager.StorageFilename = 'Thumbnails.album' 48 | View = elsIcon 49 | OnContextMenuCmd = VirtualExplorerEasyListview1ContextMenuCmd 50 | OnContextMenuShow = VirtualExplorerEasyListview1ContextMenuShow 51 | end 52 | end 53 | -------------------------------------------------------------------------------- /Demos/VirtualEasyListviewCustomContextMenu/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, MPCommonObjects, EasyListview, VirtualExplorerEasyListview, 8 | MPCommonUtilities, MPShellUtilities; 9 | 10 | type 11 | TForm1 = class(TForm) 12 | VirtualExplorerEasyListview1: TVirtualExplorerEasyListview; 13 | procedure VirtualExplorerEasyListview1ContextMenuShow( 14 | Sender: TCustomVirtualExplorerEasyListview; Namespace: TNamespace; 15 | Menu: HMENU; var Allow: Boolean); 16 | procedure VirtualExplorerEasyListview1ContextMenuCmd( 17 | Sender: TCustomVirtualExplorerEasyListview; Namespace: TNamespace; 18 | Verb: string; MenuItemID: Integer; var Handled: Boolean); 19 | private 20 | { Private declarations } 21 | public 22 | { Public declarations } 23 | CustomMenuID: Integer; 24 | end; 25 | 26 | var 27 | Form1: TForm1; 28 | 29 | implementation 30 | 31 | {$R *.dfm} 32 | 33 | procedure TForm1.VirtualExplorerEasyListview1ContextMenuShow( 34 | Sender: TCustomVirtualExplorerEasyListview; Namespace: TNamespace; 35 | Menu: HMENU; var Allow: Boolean); 36 | begin 37 | // Add to the end; 38 | CustomMenuID := AddContextMenuItem(Menu, '-', -1); 39 | CustomMenuID := AddContextMenuItem(Menu, 'Custom Menu', -1); 40 | end; 41 | 42 | procedure TForm1.VirtualExplorerEasyListview1ContextMenuCmd( 43 | Sender: TCustomVirtualExplorerEasyListview; Namespace: TNamespace; 44 | Verb: string; MenuItemID: Integer; var Handled: Boolean); 45 | begin 46 | if MenuItemID = CustomMenuID then 47 | begin 48 | beep; 49 | end 50 | end; 51 | 52 | end. 53 | -------------------------------------------------------------------------------- /Demos/VirtualEasyListviewCustomContextMenu/VirtaulExplorerEasyListviewMEnuProject.dpr: -------------------------------------------------------------------------------- 1 | program VirtaulExplorerEasyListviewMEnuProject; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/VirtualExplorerEasyListview/VEasyListviewProject.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O- 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"d:\borland\delphi7\Projects\Bpl" 35 | -LN"d:\borland\delphi7\Projects\Bpl" 36 | -w-UNSAFE_TYPE 37 | -w-UNSAFE_CODE 38 | -w-UNSAFE_CAST 39 | -------------------------------------------------------------------------------- /Demos/VirtualExplorerEasyListview/VEasyListviewProject.dof: -------------------------------------------------------------------------------- 1 | [FileVersion] 2 | Version=7.0 3 | [Compiler] 4 | A=8 5 | B=0 6 | C=1 7 | D=1 8 | E=0 9 | F=0 10 | G=1 11 | H=1 12 | I=1 13 | J=0 14 | K=0 15 | L=1 16 | M=0 17 | N=1 18 | O=0 19 | P=1 20 | Q=0 21 | R=0 22 | S=0 23 | T=0 24 | U=0 25 | V=1 26 | W=0 27 | X=1 28 | Y=1 29 | Z=1 30 | ShowHints=1 31 | ShowWarnings=1 32 | UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 33 | NamespacePrefix= 34 | SymbolDeprecated=1 35 | SymbolLibrary=1 36 | SymbolPlatform=1 37 | UnitLibrary=1 38 | UnitPlatform=1 39 | UnitDeprecated=1 40 | HResultCompat=1 41 | HidingMember=1 42 | HiddenVirtual=1 43 | Garbage=1 44 | BoundsError=1 45 | ZeroNilCompat=1 46 | StringConstTruncated=1 47 | ForLoopVarVarPar=1 48 | TypedConstVarPar=1 49 | AsgToTypedConst=1 50 | CaseLabelRange=1 51 | ForVariable=1 52 | ConstructingAbstract=1 53 | ComparisonFalse=1 54 | ComparisonTrue=1 55 | ComparingSignedUnsigned=1 56 | CombiningSignedUnsigned=1 57 | UnsupportedConstruct=1 58 | FileOpen=1 59 | FileOpenUnitSrc=1 60 | BadGlobalSymbol=1 61 | DuplicateConstructorDestructor=1 62 | InvalidDirective=1 63 | PackageNoLink=1 64 | PackageThreadVar=1 65 | ImplicitImport=1 66 | HPPEMITIgnored=1 67 | NoRetVal=1 68 | UseBeforeDef=1 69 | ForLoopVarUndef=1 70 | UnitNameMismatch=1 71 | NoCFGFileFound=1 72 | MessageDirective=1 73 | ImplicitVariants=1 74 | UnicodeToLocale=1 75 | LocaleToUnicode=1 76 | ImagebaseMultiple=1 77 | SuspiciousTypecast=1 78 | PrivatePropAccessor=1 79 | UnsafeType=0 80 | UnsafeCode=0 81 | UnsafeCast=0 82 | [Linker] 83 | MapFile=0 84 | OutputObjs=0 85 | ConsoleApp=1 86 | DebugInfo=0 87 | RemoteSymbols=0 88 | MinStackSize=16384 89 | MaxStackSize=1048576 90 | ImageBase=4194304 91 | ExeDescription= 92 | [Directories] 93 | OutputDir= 94 | UnitOutputDir= 95 | PackageDLLOutputDir= 96 | PackageDCPOutputDir= 97 | SearchPath= 98 | Packages=vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOfficeXP;TntUnicodeVcl_R70;tb2k_d7;SpTBXLib_d7 99 | Conditionals= 100 | DebugSourceDirs= 101 | UsePackages=0 102 | [Parameters] 103 | RunParams= 104 | HostApplication= 105 | Launcher= 106 | UseLauncher=0 107 | DebugCWD= 108 | [Language] 109 | ActiveLang= 110 | ProjectLang= 111 | RootDir= 112 | [Version Info] 113 | IncludeVerInfo=0 114 | AutoIncBuild=0 115 | MajorVer=1 116 | MinorVer=0 117 | Release=0 118 | Build=0 119 | Debug=0 120 | PreRelease=0 121 | Special=0 122 | Private=0 123 | DLL=0 124 | Locale=1033 125 | CodePage=1252 126 | [Version Info Keys] 127 | FileVersion=1.0.0.0 128 | [Excluded Packages] 129 | d:\borland\delphi7\Projects\Bpl\ATViewerD7-UltraExplorer.bpl=ATViewer 130 | [HistoryLists\hlUnitAliases] 131 | Count=1 132 | Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 133 | -------------------------------------------------------------------------------- /Demos/VirtualExplorerEasyListview/VEasyListviewProject.dpr: -------------------------------------------------------------------------------- 1 | program VEasyListviewProject; 2 | 3 | uses 4 | Forms, 5 | SysUtils, 6 | Unit1 in 'Unit1.pas' {Form1}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.CreateForm(TForm1, Form1); 13 | Application.Run; 14 | end. 15 | -------------------------------------------------------------------------------- /Demos/VirtualExplorerEasyListview/VEasyListviewProject.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/VirtualExplorerEasyListview/VEasyListviewProject.res -------------------------------------------------------------------------------- /Demos/VirtualShellToolsDemos.bpg: -------------------------------------------------------------------------------- 1 | #------------------------------------------------------------------------------ 2 | VERSION = BWS.01 3 | #------------------------------------------------------------------------------ 4 | !ifndef ROOT 5 | ROOT = $(MAKEDIR)\.. 6 | !endif 7 | #------------------------------------------------------------------------------ 8 | MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** 9 | DCC = $(ROOT)\bin\dcc32.exe $** 10 | BRCC = $(ROOT)\bin\brcc32.exe $** 11 | #------------------------------------------------------------------------------ 12 | PROJECTS = ShellDetailsCustomColumns.exe AutoCompleteComponentProject.exe \ 13 | CheckBoxes.exe VET.exe ShellLinkShortcuts.exe ShellNotify.exe \ 14 | ShellColumnStateStoring.exe ShellNew_NewFileMenu.exe ShellToolbars.exe \ 15 | VirtualExplorer.exe ShellHistory.exe FolderSizeDemo.exe ExplorerCheckboxes.exe \ 16 | FileSearch.exe SendToMenuProject.exe UserDataProject.exe \ 17 | DOSCommandLineProject.exe CustomSortProject.exe VEasyListviewProject.exe \ 18 | EasyListviewPrevFolderProject.exe FileSearchProject.exe BkGndMenuProject.exe 19 | #------------------------------------------------------------------------------ 20 | default: $(PROJECTS) 21 | #------------------------------------------------------------------------------ 22 | 23 | ShellDetailsCustomColumns.exe: Adding Custom Columns Using ShellDetails\ShellDetailsCustomColumns.dpr 24 | $(DCC) 25 | 26 | CheckBoxes.exe: CheckBoxes\CheckBoxes.dpr 27 | $(DCC) 28 | 29 | VET.exe: Overview\VET.dpr 30 | $(DCC) 31 | 32 | ShellLinkShortcuts.exe: Shell Link Shortcuts\ShellLinkShortcuts.dpr 33 | $(DCC) 34 | 35 | ShellNotify.exe: Shell Notify\ShellNotify.dpr 36 | $(DCC) 37 | 38 | ShellColumnStateStoring.exe: ShellColumn State Storing\ShellColumnStateStoring.dpr 39 | $(DCC) 40 | 41 | ShellNew_NewFileMenu.exe: ShellNew (New File) Menu\ShellNew_NewFileMenu.dpr 42 | $(DCC) 43 | 44 | ShellToolbars.exe: ShellToolbars\ShellToolbars.dpr 45 | $(DCC) 46 | 47 | VirtualExplorer.exe: Virtual Explorer\VirtualExplorer.dpr 48 | $(DCC) 49 | 50 | ShellHistory.exe: Shell History\ShellHistory.dpr 51 | $(DCC) 52 | 53 | FolderSizeDemo.exe: FolderSize\FolderSizeDemo.dpr 54 | $(DCC) 55 | 56 | AutoCompleteComponentProject.exe: AutoComplete Component\AutoCompleteComponentProject.dpr 57 | $(DCC) 58 | 59 | ExplorerCheckboxes.exe: Explorer CheckBoxes\ExplorerCheckboxes.dpr 60 | $(DCC) 61 | 62 | FileSearch.exe: File Search\FileSearch.dpr 63 | $(DCC) 64 | 65 | SendToMenuProject.exe: SendTo Menu\SendToMenuProject.dpr 66 | $(DCC) 67 | 68 | UserDataProject.exe: User Data\UserDataProject.dpr 69 | $(DCC) 70 | 71 | DOSCommandLineProject.exe: DOS Shell CommandLine\DOSCommandLineProject.dpr 72 | $(DCC) 73 | 74 | CustomSortProject.exe: Custom Sorting\CustomSortProject.dpr 75 | $(DCC) 76 | 77 | VEasyListviewProject.exe: VirtualExplorerEasyListview\VEasyListviewProject.dpr 78 | $(DCC) 79 | 80 | EasyListviewPrevFolderProject.exe: PrevDirNode EasyListview\EasyListviewPrevFolderProject.dpr 81 | $(DCC) 82 | 83 | FileSearchProject.exe: FileSearch\FileSearchProject.dpr 84 | $(DCC) 85 | 86 | BkGndMenuProject.exe: Backgnd Menu\BkGndMenuProject.dpr 87 | $(DCC) 88 | 89 | 90 | -------------------------------------------------------------------------------- /Demos/Wow64 File Redirection/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 369 3 | Top = 221 4 | Width = 792 5 | Height = 615 6 | Caption = 'Form1' 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'MS Sans Serif' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | DesignSize = ( 15 | 776 16 | 577) 17 | PixelsPerInch = 96 18 | TextHeight = 13 19 | object Label1: TLabel 20 | Left = 48 21 | Top = 40 22 | Width = 689 23 | Height = 13 24 | Caption = 25 | 'If VSTools is compiled into a 32 Bit application access to syste' + 26 | 'm folders that are reserved for 64 Bit files are redirected to a' + 27 | ' equivalient 32 Bit Folder' 28 | end 29 | object Label2: TLabel 30 | Left = 48 31 | Top = 64 32 | Width = 650 33 | Height = 13 34 | Caption = 35 | 'By disabling redirection a 32 Bit application can access the 64 ' + 36 | 'Bit folder. In 64 Bit Windows the System32 Folder is reserved f' + 37 | 'or 64 Bit files' 38 | end 39 | object Label3: TLabel 40 | Left = 48 41 | Top = 88 42 | Width = 658 43 | Height = 13 44 | Caption = 45 | 'and will typically redirect into the SysWow64 Bit folder. Use t' + 46 | 'he Disable Wow64 Redirection flag in VSTools to access 64 Bit sy' + 47 | 'stem folders.' 48 | end 49 | object VirtualExplorerEasyListview1: TVirtualExplorerEasyListview 50 | Left = 16 51 | Top = 112 52 | Width = 737 53 | Height = 449 54 | Active = True 55 | Anchors = [akLeft, akTop, akRight, akBottom] 56 | CompressedFile.Color = clBlue 57 | CompressedFile.Font.Charset = DEFAULT_CHARSET 58 | CompressedFile.Font.Color = clWindowText 59 | CompressedFile.Font.Height = -11 60 | CompressedFile.Font.Name = 'MS Sans Serif' 61 | CompressedFile.Font.Style = [] 62 | DefaultSortColumn = 0 63 | EditManager.Font.Charset = DEFAULT_CHARSET 64 | EditManager.Font.Color = clWindowText 65 | EditManager.Font.Height = -11 66 | EditManager.Font.Name = 'MS Sans Serif' 67 | EditManager.Font.Style = [] 68 | EncryptedFile.Color = clGreen 69 | EncryptedFile.Font.Charset = DEFAULT_CHARSET 70 | EncryptedFile.Font.Color = clWindowText 71 | EncryptedFile.Font.Height = -11 72 | EncryptedFile.Font.Name = 'MS Sans Serif' 73 | EncryptedFile.Font.Style = [] 74 | FileSizeFormat = vfsfDefault 75 | Grouped = False 76 | GroupingColumn = 0 77 | PaintInfoGroup.MarginBottom.CaptionIndent = 4 78 | PaintInfoGroup.MarginTop.Visible = False 79 | Sort.Algorithm = esaQuickSort 80 | Sort.AutoSort = True 81 | TabOrder = 0 82 | ThumbsManager.StorageFilename = 'Thumbnails.album' 83 | end 84 | object CheckBox1: TCheckBox 85 | Left = 24 86 | Top = 16 87 | Width = 233 88 | Height = 17 89 | Caption = 'Disable WOW64 Bit File Redirecction' 90 | TabOrder = 1 91 | OnClick = CheckBox1Click 92 | end 93 | end 94 | -------------------------------------------------------------------------------- /Demos/Wow64 File Redirection/Unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | uses 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 | Dialogs, StdCtrls, Buttons, MPCommonObjects, EasyListview, 8 | VirtualExplorerEasyListview, MPCommonUtilities; 9 | 10 | type 11 | TForm1 = class(TForm) 12 | VirtualExplorerEasyListview1: TVirtualExplorerEasyListview; 13 | CheckBox1: TCheckBox; 14 | Label1: TLabel; 15 | Label2: TLabel; 16 | Label3: TLabel; 17 | procedure CheckBox1Click(Sender: TObject); 18 | private 19 | { Private declarations } 20 | public 21 | { Public declarations } 22 | end; 23 | 24 | var 25 | Form1: TForm1; 26 | 27 | implementation 28 | 29 | {$R *.dfm} 30 | 31 | procedure TForm1.CheckBox1Click(Sender: TObject); 32 | begin 33 | Wow64Enabled := CheckBox1.Checked; 34 | VirtualExplorerEasyListview1.Rebuild(True); 35 | end; 36 | 37 | end. 38 | -------------------------------------------------------------------------------- /Demos/Wow64 File Redirection/Wow64FileRedirection.dpr: -------------------------------------------------------------------------------- 1 | program Wow64FileRedirection; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Demos/Wow64 File Redirection/Wow64FileRedirection.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Demos/Wow64 File Redirection/Wow64FileRedirection.res -------------------------------------------------------------------------------- /Design/VirtualExplorerListviewExReg.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Design/VirtualExplorerListviewExReg.dcr -------------------------------------------------------------------------------- /Design/VirtualExplorerListviewExReg.pas: -------------------------------------------------------------------------------- 1 | unit VirtualExplorerListviewExReg; 2 | 3 | // ***************************************************************************** 4 | // ***************************************************************************** 5 | // IMPORTANT PLEASE READ THIS NOTICE.... 6 | /// 7 | // VLVEx is no longer being developed. It is included in VSTools 2.0 to 8 | // support legacy application. Please use the VirtualExplorerEasyListview for 9 | // new projects..... 10 | // ***************************************************************************** 11 | // ***************************************************************************** 12 | // 13 | // Version 1.7.0 14 | // 15 | // The contents of this file are subject to the Mozilla Public License 16 | // Version 1.1 (the "License"); you may not use this file except 17 | // in compliance with the License. You may obtain a copy of the 18 | // License at 19 | // 20 | // http://www.mozilla.org/MPL/ 21 | // 22 | // Software distributed under the License is distributed on an 23 | // " AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either expressed or 24 | // implied. See the License for the specific language governing rights 25 | // and limitations under the License. 26 | // 27 | // 28 | // Alternatively, the contents of this file may be used under 29 | // the terms of the GNU General Public License Version 2 or later 30 | // (the "GPL"), in which case the provisions of the GPL are applicable 31 | // instead of those above. If you wish to allow use of your version of 32 | // this file only under the terms of the GPL and not to allow others to 33 | // use your version of this file under the MPL, indicate your decision 34 | // by deleting the provisions above and replace them with the notice and 35 | // other provisions required by the GPL. If you do not delete the provisions 36 | // above, a recipient may use your version of this file under either the 37 | // MPL or the GPL. 38 | // 39 | // The initial developer of this code is Robert Lee 40 | 41 | interface 42 | 43 | uses 44 | Windows, Classes, VirtualExplorerListviewEx; 45 | 46 | procedure Register; 47 | 48 | implementation 49 | 50 | procedure Register; 51 | begin 52 | RegisterComponents('VirtualShellTools', [TVirtualExplorerListviewEx]); 53 | end; 54 | 55 | end. 56 | 57 | 58 | -------------------------------------------------------------------------------- /Design/VirtualShellToolsReg.dcr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Design/VirtualShellToolsReg.dcr -------------------------------------------------------------------------------- /Docs/CBuilder 6 Issues.txt: -------------------------------------------------------------------------------- 1 | 2 | Issues with C++Builder 6 3 | 4 | 1) ThemeManager is not put on the Include Path for the project automatically. 5 | 6 | Project > Options > Directories/Conditionals 7 | 8 | Browse to the install path for 9 | 10 | ${ThemeManagerInstallPath}\Source 11 | 12 | and add it to the list. 13 | 14 | 2) The uxtheme.h file has bug in it. Replace the version that comes with 15 | C++Builder 6 with the supplied version. 16 | 17 | ${CBuilderINstallPath}\Include\uxtheme.h 18 | 19 | 20 | Drop a VirtualExplorerTree component on a form and compile! 21 | 22 | Enjoy, 23 | Jim -------------------------------------------------------------------------------- /Docs/Unicode Compatibilty.txt: -------------------------------------------------------------------------------- 1 | The following function/routines are not 100% WideString implemented: 2 | 3 | 4 | ////// 5 | MPShellUtilities.pas 6 | ///// 7 | 8 | function ConvertLocalStrToTFileTime(LocalStr: WideString; var FileTime: TFileTime): Boolean; 9 | 10 | function ConvertTFileTimeToLocalStr(AFileTime: TFILETIME): WideString; 11 | 12 | Format 13 | 14 | 15 | 16 | -------------------------------------------------------------------------------- /Include/Addins.inc: -------------------------------------------------------------------------------- 1 | // The packages must be rebuilt to make the changes in this file active 2 | 3 | // ----------------------------------------------------------------------------- 4 | // TOOLBAR 2000 and TBX SUPPORT FOR VIRTUALSHELLHISTORY MENU 5 | // ----------------------------------------------------------------------------- 6 | // 7 | // Uncomment out the conditional define for Toolbar 2000 and TBX Toolbar support 8 | // 9 | // WARNING: WARNING: WARNING: WARNING: WARNING: WARNING: WARNING: WARNING: WARNING: 10 | // 11 | // You must either add the Tooolbar 2000 and/or the SpTBXLib packages to the 12 | // VirtualShellToolsDx.dpk "Requires" section. 13 | // This is easier if you open the VirtualShellToolsDx.dpk with a text editor and add this: 14 | // 15 | // E,g, For D6: 16 | // 17 | // requires 18 | // VirtualTreesD6, 19 | // VirtualToolsCommonD6, 20 | // ThemeManager6 21 | // tb2k_d6, 22 | // SpTbxLib_d6; 23 | // 24 | // Then recompile VSTools 25 | // 26 | // DO NOT allow Delphi to add the units to the "Contains" section automaticlly 27 | // if you forget to add the packages to the "Requires" section. 28 | 29 | // Define USE_TOOLBAR_TB2K if you use Toolbar 2000, SpTBXLib 30 | {.$DEFINE USE_TOOLBAR_TB2K} 31 | // Define SpTBX if you use SpTBXLib 32 | {.$DEFINE SpTBX} 33 | 34 | // ----------------------------------------------------------------------------- 35 | // 36 | 37 | // Strips particular component from the package to reduce EXE size in final application 38 | // 39 | // 40 | {$DEFINE EXPLORERCOMBOBOX_L} 41 | {$DEFINE EXPLORERLISTVIEW_L} 42 | {$DEFINE EXPLORERTREE_L} 43 | {$DEFINE EXPLORERTREEVIEW_L} 44 | // ----------------------------------------------------------------------------- 45 | 46 | // ImageEn SUPPORT 47 | // You must add the ImageEn package to the VirtualShellToolsD.dpk "Requires" section PKIECtrl28 48 | // You may need to add Path to ImageEn: Delphi Compiler, Windows 64bit, Search path \ImageEn\Source\Delphi11Alexandria_64 49 | 50 | // {$DEFINE USEIMAGEEN} 51 | -------------------------------------------------------------------------------- /LICENCE: -------------------------------------------------------------------------------- 1 | Mustangpeak Common Library 2 | 3 | The contents of this file are subject to the Mozilla Public License 4 | Version 1.1 (the "License"); you may not use this file except 5 | in compliance with the License. You may obtain a copy of the 6 | License at http://www.mozilla.org/MPL/. 7 | 8 | Alternatively, you may redistribute this library, use and/or modify it under the terms of the 9 | GNU Lesser General Public License as published by the Free Software Foundation; 10 | either version 2.1 of the License, or (at your option) any later version. 11 | You may obtain a copy of the LGPL at http://www.gnu.org/copyleft/. 12 | 13 | Software distributed under the License is distributed on an 14 | "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either expressed or 15 | implied. See the License for the specific language governing rights 16 | and limitations under the License. 17 | 18 | 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /Resources/Images/Bkgnd.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/Bkgnd.bmp -------------------------------------------------------------------------------- /Resources/Images/Folder Funnel 24x24.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/Folder Funnel 24x24.bmp -------------------------------------------------------------------------------- /Resources/Images/Setup Gear 24x24.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/Setup Gear 24x24.bmp -------------------------------------------------------------------------------- /Resources/Images/Setup Gear 32x32.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/Setup Gear 32x32.bmp -------------------------------------------------------------------------------- /Resources/Images/VET_Logo.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/VET_Logo.png -------------------------------------------------------------------------------- /Resources/Images/ViewButton.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/ViewButton.bmp -------------------------------------------------------------------------------- /Resources/Images/XDisk.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XDisk.bmp -------------------------------------------------------------------------------- /Resources/Images/XPBackArrow 24x24.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPBackArrow 24x24.bmp -------------------------------------------------------------------------------- /Resources/Images/XPBackArrow.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPBackArrow.bmp -------------------------------------------------------------------------------- /Resources/Images/XPFolders 16x16.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPFolders 16x16.bmp -------------------------------------------------------------------------------- /Resources/Images/XPFolders 24x24.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPFolders 24x24.bmp -------------------------------------------------------------------------------- /Resources/Images/XPFolders.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPFolders.bmp -------------------------------------------------------------------------------- /Resources/Images/XPHistory 16x16.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPHistory 16x16.bmp -------------------------------------------------------------------------------- /Resources/Images/XPHistory 24x24.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPHistory 24x24.bmp -------------------------------------------------------------------------------- /Resources/Images/XPListviewStyle.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPListviewStyle.bmp -------------------------------------------------------------------------------- /Resources/Images/XPNextArrow 24x24.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPNextArrow 24x24.bmp -------------------------------------------------------------------------------- /Resources/Images/XPNextArrow.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPNextArrow.bmp -------------------------------------------------------------------------------- /Resources/Images/XPSearch 24x24.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPSearch 24x24.bmp -------------------------------------------------------------------------------- /Resources/Images/XPSearch.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPSearch.bmp -------------------------------------------------------------------------------- /Resources/Images/XPSearch2.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPSearch2.bmp -------------------------------------------------------------------------------- /Resources/Images/XPSearch2Small.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPSearch2Small.bmp -------------------------------------------------------------------------------- /Resources/Images/XPUpFolder.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Resources/Images/XPUpFolder.bmp -------------------------------------------------------------------------------- /Source/ColumnFormTBX.dfm: -------------------------------------------------------------------------------- 1 | object FormColumnSettings: TFormColumnSettings 2 | Left = 364 3 | Top = 252 4 | Width = 295 5 | Height = 370 6 | BorderIcons = [biSystemMenu] 7 | Caption = 'Column Settings' 8 | Color = clBtnFace 9 | Constraints.MinHeight = 370 10 | Constraints.MinWidth = 295 11 | Font.Charset = DEFAULT_CHARSET 12 | Font.Color = clWindowText 13 | Font.Height = -11 14 | Font.Name = 'Tahoma' 15 | Font.Style = [] 16 | KeyPreview = True 17 | OldCreateOrder = False 18 | Position = poScreenCenter 19 | OnCreate = FormCreate 20 | OnKeyPress = FormKeyPress 21 | OnResize = FormResize 22 | OnShow = FormShow 23 | DesignSize = ( 24 | 287 25 | 336) 26 | PixelsPerInch = 96 27 | TextHeight = 13 28 | object Bevel1: TBevel 29 | Left = 16 30 | Top = 280 31 | Width = 252 32 | Height = 14 33 | Anchors = [akLeft, akTop, akRight, akBottom] 34 | Shape = bsBottomLine 35 | end 36 | object Label2: TTBXLabel 37 | Left = 10 38 | Top = 246 39 | Width = 149 40 | Height = 13 41 | Alignment = taCenter 42 | Anchors = [akBottom] 43 | Caption = 'The selected column should be ' 44 | OnClick = FormCreate 45 | end 46 | object Label3: TTBXLabel 47 | Left = 211 48 | Top = 246 49 | Width = 52 50 | Height = 13 51 | Anchors = [akBottom] 52 | Caption = 'pixels wide' 53 | end 54 | object Panel1: TPanel 55 | Left = 0 56 | Top = 0 57 | Width = 287 58 | Height = 35 59 | Align = alTop 60 | BevelOuter = bvNone 61 | BorderWidth = 4 62 | TabOrder = 0 63 | object Label1: TTBXLabel 64 | Left = 4 65 | Top = 4 66 | Width = 279 67 | Height = 27 68 | Align = alClient 69 | Alignment = taCenter 70 | AutoSize = False 71 | Caption = 72 | 'Check the columns you would like to make visible in this Folder.' + 73 | ' Drag and Drop to reorder the columns. ' 74 | Font.Charset = DEFAULT_CHARSET 75 | Font.Color = clWindowText 76 | Font.Height = -11 77 | Font.Name = 'MS Sans Serif' 78 | Font.Style = [] 79 | ParentFont = False 80 | end 81 | end 82 | object CheckBoxLiveUpdate: TTBXCheckBox 83 | Left = 18 84 | Top = 268 85 | Width = 258 86 | Height = 17 87 | Anchors = [akRight, akBottom] 88 | Caption = 'Live Update' 89 | TabOrder = 1 90 | OnClick = CheckBoxLiveUpdateClick 91 | end 92 | object ButtonOk: TTBXButton 93 | Left = 104 94 | Top = 304 95 | Width = 75 96 | Height = 21 97 | Anchors = [akRight, akBottom] 98 | Caption = '&OK' 99 | ModalResult = 1 100 | TabOrder = 2 101 | end 102 | object ButtonCancel: TTBXButton 103 | Left = 192 104 | Top = 304 105 | Width = 75 106 | Height = 21 107 | Anchors = [akRight, akBottom] 108 | Caption = '&Cancel' 109 | ModalResult = 2 110 | TabOrder = 3 111 | end 112 | object VSTColumnNames: TVirtualStringTree 113 | Left = 6 114 | Top = 47 115 | Width = 273 116 | Height = 186 117 | Anchors = [akLeft, akTop, akRight, akBottom] 118 | CheckImageKind = ckXP 119 | Header.AutoSizeIndex = 0 120 | Header.Font.Charset = DEFAULT_CHARSET 121 | Header.Font.Color = clWindowText 122 | Header.Font.Height = -11 123 | Header.Font.Name = 'MS Sans Serif' 124 | Header.Font.Style = [] 125 | Header.MainColumn = -1 126 | Header.Options = [hoColumnResize, hoDrag] 127 | HintAnimation = hatNone 128 | TabOrder = 4 129 | TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking] 130 | TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toInitOnSave, toToggleOnDblClick] 131 | TreeOptions.PaintOptions = [toShowButtons, toShowRoot, toThemeAware, toUseBlendedImages] 132 | OnChecking = VSTColumnNamesChecking 133 | OnDragAllowed = VSTColumnNamesDragAllowed 134 | OnDragOver = VSTColumnNamesDragOver 135 | OnDragDrop = VSTColumnNamesDragDrop 136 | OnFocusChanging = VSTColumnNamesFocusChanging 137 | OnFreeNode = VSTColumnNamesFreeNode 138 | OnGetText = VSTColumnNamesGetText 139 | OnInitNode = VSTColumnNamesInitNode 140 | Columns = <> 141 | end 142 | object EditPixelWidth: TEdit 143 | Left = 172 144 | Top = 244 145 | Width = 35 146 | Height = 21 147 | Anchors = [akBottom] 148 | TabOrder = 5 149 | OnExit = EditPixelWidthExit 150 | OnKeyPress = EditPixelWidthKeyPress 151 | end 152 | end 153 | -------------------------------------------------------------------------------- /Source/VirtualExplorerTreeExt.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Source/VirtualExplorerTreeExt.res -------------------------------------------------------------------------------- /Source/VirtualThumbnails.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/MustangpeakVirtualshellTools/3e8ac8d2cc89f5ad9354d20af5da768c78585f8e/Source/VirtualThumbnails.pas -------------------------------------------------------------------------------- /readme.md: -------------------------------------------------------------------------------- 1 | MustangpeakVirtualShellTools 2 | ============================ 3 | 4 | ### Table of contents 5 | 1. [Introduction](#Introduction) 6 | 2. [Package names](#Package-names) 7 | 3. [Installation](#Installation) 8 | 9 | ## Introduction 10 | 11 | The Turbopak Mustangpeak library for Delphi and C++Builder was originally developed by **Jim 12 | Kueneman** and contains the EasyListView and the VirutalShellExplorer components. 13 | Mustangpeak VirtualShellTools provides Windows Explorer style shell treeview and list view 14 | components for Delphi and C++Builder applications. The main component TVirtualExplorerTree 15 | is a VirtualStringTree decsendant and is VCL Styles and DPI-aware enabled. 16 | 17 | This is a source-only release of MustangpeakVirtualShellTools. It includes 18 | designtime and runtime packages for Delphi and CBuilder and supports 19 | Win32 and Win64. 20 | 21 | ## Package names 22 | 23 | MustangpeakVirtualShellTools package names have the following form: 24 | 25 | - VirtualShellToolsD.dpk (Delphi runtime package) 26 | - VirtualShellToolsDD.dpk (Delphi design time package) 27 | 28 | - VirtualShellToolsC.bpl (C++Builder Runtime for the VCL) 29 | - VirtualShellToolsCD.bpl (C++Builder Runtime for the VCL) 30 | 31 | *RAD STUDIO Berlin or later supported.* 32 | 33 | ## Installation 34 | 35 | To install MustangpeakVirtualShellTools into your IDE, take the following 36 | steps: 37 | 38 | 1. Install first [MustangpeakCommonLib](https://github.com/TurboPack/MustangpeakCommonLib), 39 | [MustangpeakEasyListView](https://github.com/TurboPack/MustangpeakEasyListView) and 40 | [Virtual-TreeView](https://github.com/Virtual-TreeView/Virtual-TreeView). 41 | 42 | 2. Clone or download and unzip the Github repository into a directory (e.g., D:\MustangpeakVirtualShellTools). 43 | 44 | 3. Start RAD Studio. 45 | 46 | 4. Add the source subdirectory (e.g., D:\MustangpeakVirtualShellTools\Source) to the 47 | IDE's library path. 48 | 49 | 5. Open and compile the runtime package specific to the IDE being used. 50 | 51 | 6. Open & install the corresponding designtime package. 52 | 53 | 7. If you have installed Toolbar2000 or SpTBXLib components and want to use them 54 | with VirtualShellTools, enable the respective directives in Include\Addins.inc. 55 | --------------------------------------------------------------------------------