Fa چک کردن نصب بودن برنامه Adobe Acrobat

[mortezae]

چطور میشه چک کرد که Adobe Reader نصب شده یا نه؟

• اگر نصب شده بگیم PDF با Adobe Acrobat باز بشه.
• اگر نصب نیست بگیم با Foxit Reader موجود در DVD باز بشه.

 

[loo30fer]

دوست عزیز بهترین راه چک کردن از طریق رجیستری هست که با کمک SmallPlugin میتونید یکی از کلیدهای ریجیستری Adobe Acrobat رو بگیرین و چک کنید

 

[mortezae]

این کلید برای ورژن ها مختلف Acrobat متفاوت نیست؟

 

[loo30fer]

میتونید از این آدرس چکش کنید که برای ورژن های مختلفم فرقی نمیکنه

HKEY_CLASSES_ROOT\PDXFileType\shell\Read\command

ضمنا یک راه دیگه هم که دارین Foxit Reader Portable داخل سی دی بذارین و فایل های PDF رو با اون باز کنید
​

 

[mortezae]

میتونید از این آدرس چکش کنید که برای ورژن های مختلفم فرقی نمیکنه

HKEY_CLASSES_ROOT\PDXFileType\shell\Read\command

ضمنا یک راه دیگه هم که دارین Foxit Reader Portable داخل سی دی بذارین و فایل های PDF رو با اون باز کنید
​

همین کار رو کردم، اما ترجیح میدم اگه Acrobat نصب داره یوزر، با اون اجرا بشه.
اون پلاگین رو از کجا بگیرم و که آموزش هم باشه که چطور میشه ازش استفاده کرد؟
مثالی در این مورد دارید؟

 

[loo30fer]

شما میتونید از برنامه ای که جناب MahmoodM30 درست کردن که SmallPlugin رو هم داره استفاده کنید و دیگ نیازی به آموزش نداره , اینم لینک مبحث برنامه :
http://forum.majidonline.com/showthread.php?t=137282&highlight=Registry+operations

 

[mortezae]

فکر کردم باید بعد از <Embedded> کردن پلاگین SmallPlugin.dll با نام PlugIn دستورات زیر را نوشت.

 Path$='HKEY_CLASSES_ROOT\PDXFileType\shell\Read\command,(Default)'
 PluginSet("PlugIn","Path$")
 PluginRun("PlugIn","SetRegistryPath")
 PluginRun("PlugIn","RegistryRead")
 PluginGet("PlugIn","RetVal$")
 If (RetVal$ <> '')
    Run("RetVal$","PdfAddress$")
 ELSE
    Run("<SrcDir>\PdfReader\Foxit_Reader.exe","PdfAddress$")
 End

ولی متاسفانه کار نکرد و مقدار RetVal$ را خالی بر میگرداند.
لطفا راهنمایی کنید.
_______________________
در کامپیوتر من (Default) همچین مقداری داشت

 "C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe" "%1"

 

[loo30fer]

چون برای کلیدهای (Default) باید اسم خالی رو برای پلاگین تعریف کنید همینطورم برای برنامه های دیگه مانند نمونه :

Path$='HKEY_CLASSES_ROOT\PDXFileType\shell\Read\command,'
PluginSet("PlugIn","Path$")
PluginRun("PlugIn","SetRegistryPath")
PluginRun("PlugIn","RegistryRead")
PluginGet("PlugIn","RetVal$")
If (RetVal$ <> '') Then
  Run("RetVal$","PdfAddress$")
Else
  Run("<SrcDir>\PdfReader\Foxit_Reader.exe","PdfAddress$")
End

 

[mortezae]

باز هم صفر بر میگردونه
شما امتحان کردید برای خودتون جواب داد؟

 

[loo30fer]

بله تست کردم , یک نمونه براتون پیوست کردم این رو امتحان کنید
مشاهده پیوست check adobe.rar

 

[mortezae]

بله تست کردم , یک نمونه براتون پیوست کردم این رو امتحان کنید
مشاهده پیوست 51208

خیلی خیلی ممنون
متاسفانه من مرحله مرحله مزاحم شما شدم.
الان درست آدرس رو به من میده اما دستور Run با اشکال مواجه میشه و اجرا نمیشه.
ظاهرا اشکال از %1 آخرش هست.
"C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe" "%1"

 PdfAddress$='C:\13.pdf'
 Path$='HKEY_CLASSES_ROOT\PDXFileType\shell\Read\command,'
 PluginSet("PlugIn","Path$")
 PluginRun("PlugIn","SetRegistryPath")
 PluginRun("PlugIn","RegistryRead")
 PluginGet("PlugIn","RetVal$")
 If (RetVal$ <> '') Then
    MessageEx("","RetVal$")
    Run("RetVal$","PdfAddress$")
 Else
    Message("Foxit","Foxit")
    Run("<SrcDir>\PdfReader\Foxit_Reader.exe","PdfAddress$")
 End

 

[loo30fer]

خواهش میکنم این چه حرفیه
کدتون رو به این تغییر بدین :

PdfAddress$='C:\13.pdf'
Path$='HKEY_CLASSES_ROOT\PDXFileType\shell\Read\command,'
PluginSet("PlugIn","Path$")
PluginRun("PlugIn","SetRegistryPath")
PluginRun("PlugIn","RegistryRead")
PluginGet("PlugIn","RetVal$")
If (RetVal$ <> '') Then
  LEN = LEN(RetVal$)
  LEN = LEN - 7
  RetVal$ = StrCopy(RetVal$,2,LEN)
  Run("RetVal$","PdfAddress$")
Else
  Message("Foxit","Foxit")
  Run("<SrcDir>\PdfReader\Foxit_Reader.exe","PdfAddress$")
End

 

[mortezae]

خواهش میکنم این چه حرفیه
کدتون رو به این تغییر بدین :

PdfAddress$='C:\13.pdf'
Path$='HKEY_CLASSES_ROOT\PDXFileType\shell\Read\command,'
PluginSet("PlugIn","Path$")
PluginRun("PlugIn","SetRegistryPath")
PluginRun("PlugIn","RegistryRead")
PluginGet("PlugIn","RetVal$")
If (RetVal$ <> '') Then
  LEN = LEN(RetVal$)
  LEN = LEN - 7
  RetVal$ = StrCopy(RetVal$,2,LEN)
  Run("RetVal$","PdfAddress$")
Else
  Message("Foxit","Foxit")
  Run("<SrcDir>\PdfReader\Foxit_Reader.exe","PdfAddress$")
End

ممنون، کار کرد.
ولی ممکنه اون رشته در ورژن های مختلف Adobe یا ویندوز متفاوت باشه و در جدا کردن اون آدرس از کله رشته برنامه دچار مشکل بشه در بعضی کامپیوتر ها؟
مثلا به جای 1% با 12% یا تغییراتی شبیه با این که طول رو تغییر میدن.

 

[loo30fer]

نه دوست عزیز چون من ورژن 9 Adobe رو روی سیستمم دارم و باز همین شکل آدرس دهی شده :

"C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe" "%1"

 

[mortezae]

برای مهکم کاری یک چک دیگه اضافه کردم

 Path$='HKEY_CLASSES_ROOT\PDXFileType\shell\Read\command,'
PluginSet("PlugIn","Path$")
PluginRun("PlugIn","SetRegistryPath")
PluginRun("PlugIn","RegistryRead")
PluginGet("PlugIn","RetVal$")
LEN = LEN(RetVal$)
LEN = LEN - 7
RetVal$ = StrCopy(RetVal$,2,LEN)
FileExist("RetVal$","bFile")
If (bFile) Then
  Run("RetVal$","PdfAddress$")
Else
  Run("<SrcDir>\PdfReader\Foxit_Reader.exe","PdfAddress$")
End

ممنون از کمک جناب loo30fer