delphi - Adding custom items to an TShellTreeView -

-

Anyone know how to modify ShellCtrls.pas? Actually I want to add some items to the top of the Explorer tree

For example:. 

  -myitem -miitemtoo -mycomputer -c: -d:

or may be modified view of this Vrihddh tree:

But I think ShellCtrls is the main file to be modified.

I do not think you need to modify sources. Share TShellTreeView is descended of TCustomTreeView, so if you can add items as a TreeView item.

The code below is not sorted out or tested out, but it may be that you get started. . It is inserted at the top of an item with a display name with the path as the path and performance as the name qualified ShellTreeView execution 

  shlobj ActiveX, use shellapi; Function InsertToSTV (STV: TShellTreeView; Pos: Integer; Path, DisplayName: String): Boolean; Var Shellfolder Interface, NodeShellfolder: ISIL Folder; Item Idiist: PITMIDLIS; Chairspersons, Attributes: Ulong; WPath: PWideChar; Node: TTRI node; File information: TSHFileInfo; Start the result: = False; If (SHGetDesktopFolder (ShellFolderInterface = NOERROR) then start wPath: = StringToOleStr (path); If wPath & lt; & Gt; Zero tries to ShellFolderInterface.ParseDisplayName (0, zero, wPath, CharsParsed, ItemIDList, properties) = NO_ERROR so ShellFolderInterface.BindToObject (ItemIDList, zero, IID_IShellFolder, NodeShellFolder); Node: = STV.Items.Insert (STV.Items [Pos], DisplayName); Node Data: = Tichelle Folder. Create (Zero, Item Idiildist, Nodeshhelf Folder); If STV.UseShellImages and Assigned (STV.Images) start SHGetFileInfo (PChar (ItemIDList), 0, FileInfo, sizeof (FileInfo), SHGFI_PIDL or SHGFI_SYSICONINDEX); Node IJEndx: = File InfoIiCon; SHGetFileInfo (PChar (ItemIDList), 0, FileInfo, sizeof (FileInfo), SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_OPENICON); Node Selected index: = file infoIiCon; End; Finally SysFreeString (wPath); End; End; End; Process TForm1.Button1Click (Sender: Tubbed); Starting InsertToSTV (ShellTreeView1, 0, ExtractFilePath (Application.ExeName), ExtractFileName (Application.ExeName)); End;

Comments

Post a Comment

Popular posts from this blog

oracle - The fastest way to check if some records in a database table? -

-
I have a big table to work with. I have to see that there are some records whose parent_id is equal to my passing value. Currently I do this by implementing "my_table using select count (*) where parent_id =: id"; If the result> 0, it means that they exist. Because this is a very large table, and I do not care what the actual number of records present, I just want to know if it exists, so I think count (*) Bit is disabled. How do I apply this requirement most quickly? I'm using Oracle 10. # Tips for Hibernation & amp; Tricks It suggests writing in such a way: Integer number = (integer) session .createQuery ("Select Count (*) to ...."). UniqueResult (); I do not know what is the magic of the unique rule? Why does it fast? To compare, select "1 from mytable where parent_id = passId and rowrum", which is more efficient? If you are not interested in the number of records, then there is an EXISTS query one: Select 'y'
Read more

php - multilevel menu with multilevel array -

-
Just ask someone to solve this problem? I want to create a multilevel menu I can not find the right solution generated with multilevel array, it always gets an array_push error My study came from the original idea But still my Can not match the need. This is my MySQL [code] ----- --------------------- --------------- | ID | PARENT_ID | Name | Link | Seq | 1 | 0 | Dashboad | Dashboard / | 1 | 2 | 0 | Menu 1 | Menu 1 / | 2 | 3 | 0 | Menu 2 | Menu 2 / | 3 | 4 | 0 | Menu 3 | Menu 3 / | 4 | 5 | 2 | Joint Add / | 1 | 6 | 3 | Joint Add / | 1 | 7 | 2 | Edit | Edit / | 2 | 8 | 4 | Joint Add / | 1 ------------------------------------------ [/ Code] I want to do something like this in my array array ('dashboard' = & gt; array ('id' = & gt; '' 'Dame' = & gt; 'Dashboard', 'Title' = & gt; 'Dashboard', 'MatchMin' = & gt; Base_URL (). 'Dashboard /', 'Active' => = & Gt; NULL), &
Read more

jQuery UI: Datepicker month format -

-
I am trying to change the format of the month that shows in the popup (not in the date that the picker actually I do not have any choice anywhere to do this, do I like to use a sub-string () or something else? What I normally display is Trying to change: Class = "ui-datepicker-title"> January & lt; / span & gt; ... & lt; / div & gt; Div>
Read more