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

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

كود:

هذا في الفورم

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