Reply to thread

Message

<blockquote data-quote="visula kavinda" data-source="post: 30470648" data-attributes="member: 577973">මෙන්න කේතයImports System.DiagnosticsImports System.DrawingImports System.Windows.Forms'Imports Microsoft.VisualBasic.FileIOModule Module1&nbsp; &nbsp; Function GetShortcutIcon(ByVal shortcutPath As String) As Icon&nbsp; &nbsp; &nbsp; &nbsp; Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Get the target path of the shortcut&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim targetPath As String = GetShortcutTarget(shortcutPath)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Extract the icon associated with the target file&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If targetPath IsNot Nothing AndAlso IO.File.Exists(targetPath) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return Icon.ExtractAssociatedIcon(targetPath)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return Nothing&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; Catch ex As Exception&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Handle exceptions here&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return Nothing&nbsp; &nbsp; &nbsp; &nbsp; End Try&nbsp; &nbsp; End Function&nbsp; &nbsp; Function GetShortcutTarget(ByVal shortcutPath As String) As String&nbsp; &nbsp; &nbsp; &nbsp; Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim shortcut As Shell32.Shell = New Shell32.Shell()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim folder As Shell32.Folder = shortcut.NameSpace(System.IO.Path.GetDirectoryName(shortcutPath))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim folderItem As Shell32.FolderItem = folder.ParseName(System.IO.Path.GetFileName(shortcutPath))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If folderItem IsNot Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim link As Shell32.ShellLinkObject = CType(folderItem.GetLink, Shell32.ShellLinkObject)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return link.Path&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return Nothing&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; Catch ex As Exception&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return Nothing&nbsp; &nbsp; &nbsp; &nbsp; End Try&nbsp; &nbsp; End Function&nbsp; &nbsp; '' Structure for the WIN32_FIND_DATA structure returned by FindFirstFile and others&nbsp; &nbsp; '&lt;StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)&gt;&nbsp; &nbsp; 'Structure WIN32_FIND_DATA&nbsp; &nbsp; '&nbsp; &nbsp; Public dwFileAttributes As Integer&nbsp; &nbsp; '&nbsp; &nbsp; Public ftCreationTime As Long&nbsp; &nbsp; '&nbsp; &nbsp; Public ftLastAccessTime As Long&nbsp; &nbsp; '&nbsp; &nbsp; Public ftLastWriteTime As Long&nbsp; &nbsp; '&nbsp; &nbsp; Public nFileSizeHigh As Integer&nbsp; &nbsp; '&nbsp; &nbsp; Public nFileSizeLow As Integer&nbsp; &nbsp; '&nbsp; &nbsp; Public dwReserved0 As Integer&nbsp; &nbsp; '&nbsp; &nbsp; Public dwReserved1 As Integer&nbsp; &nbsp; '&nbsp; &nbsp; &lt;MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)&gt; Public cFileName As String&nbsp; &nbsp; '&nbsp; &nbsp; &lt;MarshalAs(UnmanagedType.ByValTStr, SizeConst:=14)&gt; Public cAlternateFileName As String&nbsp; &nbsp; 'End Structure&nbsp; &nbsp; '' Function declarations&nbsp; &nbsp; 'Declare Function FindFirstFile Lib &quot;kernel32.dll&quot; Alias &quot;FindFirstFileA&quot; (ByVal lpFileName As String, ByRef lpFindFileData As WIN32_FIND_DATA) As IntPtr&nbsp; &nbsp; 'Declare Function FindClose Lib &quot;kernel32.dll&quot; (ByVal hFindFile As IntPtr) As Boolean&nbsp; &nbsp; 'Declare Unicode Function PathCombine Lib &quot;shlwapi.dll&quot; Alias &quot;PathCombineW&quot; (ByVal pszDest As System.Text.StringBuilder, ByVal pszDir As String, ByVal pszFile As String) As IntPtr&nbsp; &nbsp; '' Function to retrieve target path of a shortcut&nbsp; &nbsp; 'Function GetShortcutTarget(ByVal shortcutPath As String) As String&nbsp; &nbsp; '&nbsp; &nbsp; Dim WIN32_FILE_ATTRIBUTE_DIRECTORY As Integer = &amp;H10&nbsp; &nbsp; '&nbsp; &nbsp; Dim FILE_ATTRIBUTE_REPARSE_POINT As Integer = &amp;H400&nbsp; &nbsp; '&nbsp; &nbsp; Try&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; Dim findData As New WIN32_FIND_DATA()&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; Dim handle As IntPtr = FindFirstFile(shortcutPath, findData)&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; If handle.ToInt64() &lt;&gt; -1 Then&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If (findData.dwFileAttributes And WIN32_FILE_ATTRIBUTE_DIRECTORY) &lt;&gt; 0 AndAlso (findData.dwFileAttributes And FILE_ATTRIBUTE_REPARSE_POINT) &lt;&gt; 0 Then&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim targetPathBuilder As New System.Text.StringBuilder(260)&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PathCombine(targetPathBuilder, shortcutPath, findData.cFileName)&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Return targetPathBuilder.ToString()&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; FindClose(handle)&nbsp; &nbsp; '&nbsp; &nbsp; Catch ex As Exception&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; ' Handle exceptions here&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; Return Nothing&nbsp; &nbsp; '&nbsp; &nbsp; End Try&nbsp; &nbsp; '&nbsp; &nbsp; Return Nothing&nbsp; &nbsp; 'End Function&nbsp; &nbsp; Class ToolStripMenuItemEX&nbsp; &nbsp; &nbsp; &nbsp; Inherits ToolStripMenuItem&nbsp; &nbsp; &nbsp; &nbsp; Friend ID As Integer&nbsp; &nbsp; End Class&nbsp; &nbsp; Dim ls() As String&nbsp; &nbsp; Function make_ITEM(ByRef s As String, i As Integer) As ToolStripMenuItemEX&nbsp; &nbsp; &nbsp; &nbsp; Dim targetPath As String = GetShortcutTarget(ls(i))&nbsp; &nbsp; &nbsp; &nbsp; Dim cx As New ToolStripMenuItemEX()&nbsp; &nbsp; &nbsp; &nbsp; cx.Text = s&nbsp; &nbsp; &nbsp; &nbsp; cx.ID = i&nbsp; &nbsp; &nbsp; &nbsp; If IO.File.Exists(targetPath) = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cx.Image = Icon.ExtractAssociatedIcon(targetPath).ToBitmap&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ls(i) = targetPath&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' MsgBox(&quot;|&quot; + targetPath + &quot;|&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If targetPath.Contains(&quot;\Program Files (x86)\&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; targetPath = targetPath.Replace(&quot;\Program Files (x86)\&quot;, &quot;\Program Files\&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If IO.File.Exists(targetPath) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cx.Image = Icon.ExtractAssociatedIcon(targetPath).ToBitmap&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ls(i) = targetPath&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cx.Enabled = False&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cx.Enabled = False&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; AddHandler cx.Click, AddressOf OnClickEX&nbsp; &nbsp; &nbsp; &nbsp; Return cx&nbsp; &nbsp; End Function&nbsp; &nbsp; Sub Main()&nbsp; &nbsp; &nbsp; &nbsp; ' Create a new ContextMenuStrip&nbsp; &nbsp; &nbsp; &nbsp; Dim contextMenu As New ContextMenuStrip()&nbsp; &nbsp; &nbsp; &nbsp; contextMenu.Items.Add(&quot;වසන්න X &quot;, Nothing, AddressOf Close_OnClick)&nbsp; &nbsp; &nbsp; &nbsp; If IO.Directory.Exists(Application.StartupPath + &quot;\කෙටි මං&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ls = IO.Directory.GetFiles(Application.StartupPath + &quot;\කෙටි මං&quot;, &quot;*.lnk&quot;, IO.SearchOption.TopDirectoryOnly)&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ls = IO.Directory.GetFiles(Application.StartupPath, &quot;*.lnk&quot;, IO.SearchOption.TopDirectoryOnly)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; ' Array.Sort(ls)&nbsp; &nbsp; &nbsp; &nbsp; Dim i As Integer&nbsp; &nbsp; &nbsp; &nbsp; Dim Fc As Char = Chr(0)&nbsp; &nbsp; &nbsp; &nbsp; Dim fcc As Char = Chr(0)&nbsp; &nbsp; &nbsp; &nbsp; Dim s As String&nbsp; &nbsp; &nbsp; &nbsp; Dim cI As ToolStripMenuItem&nbsp; &nbsp; &nbsp; &nbsp; Dim cX As ToolStripMenuItemEX&nbsp; &nbsp; &nbsp; &nbsp; For i = 0 To ls.Length - 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; s = IO.Path.GetFileNameWithoutExtension(ls(i))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; fcc = Char.ToLower(s(0))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Fc = fcc Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cX = make_ITEM(s, i)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cI.DropDownItems.Add(cX)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If i = ls.Length - 1 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cX = make_ITEM(s, i)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; contextMenu.Items.Add(cX)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; Fc = s(0)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ElseIf Char.ToLower(ls(i + 1)(0)) = Fc Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '&nbsp;&nbsp; MsgBox(Fc + vbCrLf + s)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cX = make_ITEM(s, i)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cI.DropDownItems.Add(cX)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Fc = s(0)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cI = New ToolStripMenuItem(Char.ToUpper(s(0)))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; contextMenu.Items.Add(cI)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cX = make_ITEM(s, i)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cI.DropDownItems.Add(cX)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Fc = s(0)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Fc = fcc&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' contextMenu.Items.Add(IO.Path.GetFileNameWithoutExtension(s))&nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; contextMenu.Items.Add(&quot; <img class="smilie smilie--emoji" loading="lazy" alt="⚙️" title="Gear&nbsp; &nbsp; :gear:" src="https://cdn.jsdelivr.net/joypixels/assets/6.6/png/unicode/64/2699.png" data-shortname=":gear:" /> &quot;, Nothing, AddressOf Settings_OnClick)&nbsp; &nbsp; &nbsp; &nbsp; '=======================================================================================&nbsp; &nbsp; &nbsp; &nbsp; ' Handle the LostFocus event to close the application when focus is lost&nbsp; &nbsp; &nbsp; &nbsp; AddHandler contextMenu.LostFocus, Sub(sender, e) Application.Exit()&nbsp; &nbsp; &nbsp; &nbsp; ' Show the context menu&nbsp; &nbsp; &nbsp; &nbsp; contextMenu.Show(Control.MousePosition)&nbsp; &nbsp; &nbsp; &nbsp; ' Run the application message loop manually to prevent premature exit&nbsp; &nbsp; &nbsp; &nbsp; Application.Run()&nbsp; &nbsp; End Sub&nbsp; &nbsp; Friend Sub OnClickEX(sender As ToolStripMenuItemEX, e As EventArgs)&nbsp; &nbsp; &nbsp; &nbsp; '' This event handler does nothing&nbsp; &nbsp; &nbsp; &nbsp; '' MsgBox(ls(sender.ID))&nbsp; &nbsp; &nbsp; &nbsp; ''MsgBox(ls(sender.ID) + vbCrLf + GetShortcutTarget(ls(sender.ID)))&nbsp; &nbsp; &nbsp; &nbsp; 'Dim exe_ As String = GetShortcutTarget(ls(sender.ID))&nbsp; &nbsp; &nbsp; &nbsp; 'If IO.File.Exists(exe_) = True Then&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; Dim processInfo As New ProcessStartInfo(exe_)&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; Process.Start(processInfo)&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; Application.Exit()&nbsp; &nbsp; &nbsp; &nbsp; 'Else&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; sender.Enabled = False&nbsp; &nbsp; &nbsp; &nbsp; 'End If&nbsp; &nbsp; &nbsp; &nbsp; Dim processInfo As New ProcessStartInfo(ls(sender.ID))&nbsp; &nbsp; &nbsp; &nbsp; Process.Start(processInfo)&nbsp; &nbsp; &nbsp; &nbsp; Application.Exit()&nbsp; &nbsp; End Sub&nbsp; &nbsp; Sub Close_OnClick(sender As Object, e As EventArgs)&nbsp; &nbsp; &nbsp; &nbsp; ' This event handler does nothing&nbsp; &nbsp; &nbsp; &nbsp; ' MsgBox(&quot;sadfdsad&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Application.Exit()&nbsp; &nbsp; End Sub&nbsp; &nbsp; Sub Settings_OnClick(sender As Object, e As EventArgs)&nbsp; &nbsp; &nbsp; &nbsp; ' This event handler does nothing&nbsp; &nbsp; &nbsp; &nbsp; ' MsgBox(&quot;sadfdsad&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Application.Exit()&nbsp; &nbsp; End SubEnd Module</blockquote>

[QUOTE="visula kavinda, post: 30470648, member: 577973"] මෙන්න කේතය Imports System.Diagnostics Imports System.Drawing Imports System.Windows.Forms 'Imports Microsoft.VisualBasic.FileIO Module Module1 Function GetShortcutIcon(ByVal shortcutPath As String) As Icon Try ' Get the target path of the shortcut Dim targetPath As String = GetShortcutTarget(shortcutPath) ' Extract the icon associated with the target file If targetPath IsNot Nothing AndAlso IO.File.Exists(targetPath) Then Return Icon.ExtractAssociatedIcon(targetPath) Else Return Nothing End If Catch ex As Exception ' Handle exceptions here Return Nothing End Try End Function Function GetShortcutTarget(ByVal shortcutPath As String) As String Try Dim shortcut As Shell32.Shell = New Shell32.Shell() Dim folder As Shell32.Folder = shortcut.NameSpace(System.IO.Path.GetDirectoryName(shortcutPath)) Dim folderItem As Shell32.FolderItem = folder.ParseName(System.IO.Path.GetFileName(shortcutPath)) If folderItem IsNot Nothing Then Dim link As Shell32.ShellLinkObject = CType(folderItem.GetLink, Shell32.ShellLinkObject) Return link.Path Else Return Nothing End If Catch ex As Exception Return Nothing End Try End Function '' Structure for the WIN32_FIND_DATA structure returned by FindFirstFile and others '<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> 'Structure WIN32_FIND_DATA ' Public dwFileAttributes As Integer ' Public ftCreationTime As Long ' Public ftLastAccessTime As Long ' Public ftLastWriteTime As Long ' Public nFileSizeHigh As Integer ' Public nFileSizeLow As Integer ' Public dwReserved0 As Integer ' Public dwReserved1 As Integer ' <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> Public cFileName As String ' <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=14)> Public cAlternateFileName As String 'End Structure '' Function declarations 'Declare Function FindFirstFile Lib "kernel32.dll" Alias "FindFirstFileA" (ByVal lpFileName As String, ByRef lpFindFileData As WIN32_FIND_DATA) As IntPtr 'Declare Function FindClose Lib "kernel32.dll" (ByVal hFindFile As IntPtr) As Boolean 'Declare Unicode Function PathCombine Lib "shlwapi.dll" Alias "PathCombineW" (ByVal pszDest As System.Text.StringBuilder, ByVal pszDir As String, ByVal pszFile As String) As IntPtr '' Function to retrieve target path of a shortcut 'Function GetShortcutTarget(ByVal shortcutPath As String) As String ' Dim WIN32_FILE_ATTRIBUTE_DIRECTORY As Integer = &H10 ' Dim FILE_ATTRIBUTE_REPARSE_POINT As Integer = &H400 ' Try ' Dim findData As New WIN32_FIND_DATA() ' Dim handle As IntPtr = FindFirstFile(shortcutPath, findData) ' If handle.ToInt64() <> -1 Then ' If (findData.dwFileAttributes And WIN32_FILE_ATTRIBUTE_DIRECTORY) <> 0 AndAlso (findData.dwFileAttributes And FILE_ATTRIBUTE_REPARSE_POINT) <> 0 Then ' Dim targetPathBuilder As New System.Text.StringBuilder(260) ' PathCombine(targetPathBuilder, shortcutPath, findData.cFileName) ' Return targetPathBuilder.ToString() ' End If ' End If ' FindClose(handle) ' Catch ex As Exception ' ' Handle exceptions here ' Return Nothing ' End Try ' Return Nothing 'End Function Class ToolStripMenuItemEX Inherits ToolStripMenuItem Friend ID As Integer End Class Dim ls() As String Function make_ITEM(ByRef s As String, i As Integer) As ToolStripMenuItemEX Dim targetPath As String = GetShortcutTarget(ls(i)) Dim cx As New ToolStripMenuItemEX() cx.Text = s cx.ID = i If IO.File.Exists(targetPath) = True Then cx.Image = Icon.ExtractAssociatedIcon(targetPath).ToBitmap ls(i) = targetPath Else ' MsgBox("|" + targetPath + "|") If targetPath.Contains("\Program Files (x86)\") Then targetPath = targetPath.Replace("\Program Files (x86)\", "\Program Files\") If IO.File.Exists(targetPath) Then cx.Image = Icon.ExtractAssociatedIcon(targetPath).ToBitmap ls(i) = targetPath Else cx.Enabled = False End If Else cx.Enabled = False End If End If AddHandler cx.Click, AddressOf OnClickEX Return cx End Function Sub Main() ' Create a new ContextMenuStrip Dim contextMenu As New ContextMenuStrip() contextMenu.Items.Add("වසන්න X ", Nothing, AddressOf Close_OnClick) If IO.Directory.Exists(Application.StartupPath + "\කෙටි මං") Then ls = IO.Directory.GetFiles(Application.StartupPath + "\කෙටි මං", "*.lnk", IO.SearchOption.TopDirectoryOnly) Else ls = IO.Directory.GetFiles(Application.StartupPath, "*.lnk", IO.SearchOption.TopDirectoryOnly) End If ' Array.Sort(ls) Dim i As Integer Dim Fc As Char = Chr(0) Dim fcc As Char = Chr(0) Dim s As String Dim cI As ToolStripMenuItem Dim cX As ToolStripMenuItemEX For i = 0 To ls.Length - 1 s = IO.Path.GetFileNameWithoutExtension(ls(i)) fcc = Char.ToLower(s(0)) If Fc = fcc Then cX = make_ITEM(s, i) cI.DropDownItems.Add(cX) Else If i = ls.Length - 1 Then cX = make_ITEM(s, i) contextMenu.Items.Add(cX) ' Fc = s(0) ElseIf Char.ToLower(ls(i + 1)(0)) = Fc Then ' MsgBox(Fc + vbCrLf + s) cX = make_ITEM(s, i) cI.DropDownItems.Add(cX) ' Fc = s(0) Else cI = New ToolStripMenuItem(Char.ToUpper(s(0))) contextMenu.Items.Add(cI) cX = make_ITEM(s, i) cI.DropDownItems.Add(cX) ' Fc = s(0) End If End If Fc = fcc ' contextMenu.Items.Add(IO.Path.GetFileNameWithoutExtension(s)) Next contextMenu.Items.Add(" ⚙️ ", Nothing, AddressOf Settings_OnClick) '======================================================================================= ' Handle the LostFocus event to close the application when focus is lost AddHandler contextMenu.LostFocus, Sub(sender, e) Application.Exit() ' Show the context menu contextMenu.Show(Control.MousePosition) ' Run the application message loop manually to prevent premature exit Application.Run() End Sub Friend Sub OnClickEX(sender As ToolStripMenuItemEX, e As EventArgs) '' This event handler does nothing '' MsgBox(ls(sender.ID)) ''MsgBox(ls(sender.ID) + vbCrLf + GetShortcutTarget(ls(sender.ID))) 'Dim exe_ As String = GetShortcutTarget(ls(sender.ID)) 'If IO.File.Exists(exe_) = True Then ' Dim processInfo As New ProcessStartInfo(exe_) ' Process.Start(processInfo) ' Application.Exit() 'Else ' sender.Enabled = False 'End If Dim processInfo As New ProcessStartInfo(ls(sender.ID)) Process.Start(processInfo) Application.Exit() End Sub Sub Close_OnClick(sender As Object, e As EventArgs) ' This event handler does nothing ' MsgBox("sadfdsad") Application.Exit() End Sub Sub Settings_OnClick(sender As Object, e As EventArgs) ' This event handler does nothing ' MsgBox("sadfdsad") Application.Exit() End Sub End Module [/QUOTE]

Verification

Asuwa dahayen wadi kalama keeyada?

Latest ads

Reply to thread