برای پیدا کردن لیست برنامه های نصب شده میتونین به این صورت عمل کنین به ادرس زیر برید
hkey_local_machine\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
حالا لیست برنامه های موجود رو سیستم رو بگردین اگه تو هر کدوم کلیدهایی با نام DisplayName و UninstallString وجود داشت یعنی این برنامه نصب شده معمولا همه نصاب ها این کلیدها رو میسازن
سلام لرد عزیز
ممنون از کمکت و لطفت ولی یادت باشه من تو وی بی زیاد وارد نیستم و نتونستم کدهای لازم رو بنویسم
کاش یه نمونه کد واسم می نوشتی ( پر رویی منو ببخشین )
بازم ممنون از لطفت
هنگام اجراي برنامه داخل اون فرمي كه مي خواي دكمه نصب و اجرا رو نمايش بدي ، كد زير رو اجرا كن:
کد:
Set reg = CreateObject("wscript.shell")
s = reg.regread("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & "Shell")
Set reg = Nothing
كه البته به جاي اين آدرسي كه نوشتم ، آدرس كليد مورد نظرت رو بايد بنويسي.
خوب حالا متغيير S مقدار اون كليد رو بهت نمايش مي ده و مي توني بر حسب اون تصميم بگيري كه دكمه نصب رو فعال
كني يا نه. مثلا اگه مقدار اون برابر "Installed" بود ، مي فهمي كه برنامه نصب شده و دكمه نصب رو غير فعال مي كني
خوب حالا اين كليد رو بايد بسازيم. براي ساخت اين كليد مي تونيد از برنامه هاي نصبي مثل همين Tarma استفاده كني.
يه پروژه جديد رو با اين برنامه آغاز كن و در قسمت Registery برو به همون آدرسي كه تو برنامه ات قراره چك كني و يك
مقدار جديد با همون نام مورد نظرت بساز و براي اون مقدار "Installed" رو قرار بده.
خوب حالا هر وقت برنامه رو نصب كني ، برنامه نصب به طور خودكار اين كليد رو مي سازه و در هنگام حذف برنامه هم
كليد رو حذف مي كنه .
نكته : تمام كارهايي كه برنامه نصبي انجام مي ده رو هم خودت هم مي توني با كد نويسي انجام بدي.
سلام دی دی جان و خیلی خیلی ممنون
برم ببینم چیکار می تونم بکنم
اگه نتونستم بازم مزاحمت می شم.از همه دوستان دیگه که نظر دادن ممنون
سلام
میتونی از دستور dir استفاده کنید به این نمونه کد توجه کن:
کد:
Private Sub Form_Load()
if dir ("C:\Program File\Esme Folder\name file.exe"),vbnormal <>"" then
command1.enabled = false
else
command1.enabled = true
end if
end sub
البته من vb رو نصب ندارم اگه کد یه نمو اینور تونور بود ببخشید.(غلط املایی)
دوست عزیز
حالا اومدیمو کاربر برنامه رو یه فولدر یا درایو دیگه یا به یه اسم دیگه نصب کرده بود....
در هنگام نصب VB6 ، برنامه نصب کل هارددیسک رو دنبال فایلهای نصب VB6 می گرده و در صورت پیدا کردن اونها از کاربر می پرسه که می خواد برنامه رو آپدیت کنه یا نصب جدید انجام بده ...
سلام دوستان
ممنون از توجهتون
من با کدی که آقا مهدی (دی دی) فرموده بود مشکلم حل شد.البته موضوع ماله 3-4 ماهه پیشه.به هر حال بازم ممنون از لطف همتون