كود معرفة هذه الاحقة مع اي برنامج تعمل على النظام

[الفارس]

كود معرفة هذه الاحقة مع اي برنامج تعمل على النظام

هذا في الفورم
Private Declare Function FindExecutableA Lib "shell32.dll" (ByVal lpFile As String, ByVal lpdirectory As String, ByVal lpResult As String) As Long
Private Const MAX_FILENAME_LEN = 256

Public Function FindExecutable(s As String) As String
Dim i As Integer
Dim s2 As String

s2 = String(MAX_FILENAME_LEN, 32) & Chr$(0)

i = FindExecutableA(s & Chr$(0), vbNullString, s2)

If i > 32 Then
FindExecutable = Left$(s2, InStr(s2, Chr$(0)) - 1)
Else
FindExecutable = ""
End If

End Function

Private Sub Image1_Click()
CM.ShowOpen
Text1 = CM.FileName
Text2 = FindExecutable(Text1)

End Sub