آگاهي از نصب و عدم نصب يك برنامه در سيستم

[computer_prospect]

سلام به همه شما دوستان :
من يك فرم درست كردم و روي اين فرم يك دكمه هست . مي خوام نرم افزاري كه مد نظرم است را اگر رو سيستم كاربر نصب بود كه اين دكمه فعال نشه اما اگر نصب نبود اين دكمه فعال بشه و كاربر روي آن كليك كنه براي نصب .
چطور بايد اين كار را بكنم ؟
لطفا من رو راهنمايي كنيد . پيشاپيش ممنون .

[dreamvbfox]

باید اون برنامه رو بررسی کنید !! مثلا اگر در رجیستری خودشو ثبت میکنه آدرس اونو چک کن !

یا اگر تو Allprograms قرار میگره اون شاخه رو بررسی کن ببین وجود داره یانه !

کد:

MsgBox Dir("c:\error.log")

تو مثال بالا اگر فایل error.log وجود داشته باشه اسم فایل رو نمایش میده !!!

امیدوام منظورمو گرفته باشی.
موفق باشی

[Payman62]

سلام.
برنامه های نصبی در این مسیر HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall ذخیره میشن.
چک کن که نصب هست یا نه.

[computer_prospect]

سلام.
برنامه های نصبی در این مسیر HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall ذخیره میشن.
چک کن که نصب هست یا نه.

سلام دوست عزيز :
دقيقا منظور من همينه كه شما فرمودي . حالا من از طريق وي بي چه جوري دستور بدم كه اون خط رجيستري رو چك بكنه ؟ مي شه كد شو برام بزاريد متوجه بشم ؟
پيشاپيش سپاسگزارم .

[Payman62]

سلام.
ای پی آی RegEnumKeyEx لیست کلیدهارو به شما میده. این یه مثال از این API.

کد:

Const ERROR_NO_MORE_ITEMS = 259&
Const HKEY_CURRENT_CONFIG = &H80000005
Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As Any) As Long
Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim hKey As Long, Cnt As Long, sName As String, sData As String, Ret As Long, RetData As Long
    Const BUFFER_SIZE As Long = 255
    'Set the forms graphics mode to persistent
    Me.AutoRedraw = True
    Me.Print "RegEnumKeyEx"
    Ret = BUFFER_SIZE
    'Open the registry key
    If RegOpenKey(HKEY_LOCAL_MACHINE, "Hardware", hKey) = 0 Then
        'Create a buffer
        sName = Space(BUFFER_SIZE)
        'Enumerate the keys
        While RegEnumKeyEx(hKey, Cnt, sName, Ret, ByVal 0&, vbNullString, ByVal 0&, ByVal 0&) <> ERROR_NO_MORE_ITEMS
            'Show the enumerated key
            Me.Print "  " + Left$(sName, Ret)
            'prepare for the next key
            Cnt = Cnt + 1
            sName = Space(BUFFER_SIZE)
            Ret = BUFFER_SIZE
        Wend
        'close the registry key
        RegCloseKey hKey
    Else
        Me.Print "  Error while calling RegOpenKey"
    End If
    Me.Print vbCrLf + "RegEnumValue"
    Cnt = 0
    'Open a registry key
    If RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion", hKey) = 0 Then
        'initialize
        sName = Space(BUFFER_SIZE)
        sData = Space(BUFFER_SIZE)
        Ret = BUFFER_SIZE
        RetData = BUFFER_SIZE
        'enumerate the values
        While RegEnumValue(hKey, Cnt, sName, Ret, 0, ByVal 0&, ByVal sData, RetData) <> ERROR_NO_MORE_ITEMS
            'show data
            If RetData > 0 Then Me.Print "  " + Left$(sName, Ret) + "=" + Left$(sData, RetData - 1)
            'prepare for next value
            Cnt = Cnt + 1
            sName = Space(BUFFER_SIZE)
            sData = Space(BUFFER_SIZE)
            Ret = BUFFER_SIZE
            RetData = BUFFER_SIZE
        Wend
        'Close the registry key
        RegCloseKey hKey
    Else
        Me.Print "  Error while calling RegOpenKey"
    End If
End Sub

[computer_prospect]

ممنون . اما من براي اينكه بفهمم مثلا adobe نصب هست يا نه اين همه كد بايد بدم ؟
واقعا ؟
ميشه بيشتر توضيح بدين . لطفا ! خيلي به اين كد نياز دارم .
من بايد الان تو اين كد كجا مثلا نام فتوشاپ رو تايپ كنم كه اين بفهمه ؟
ممنون .