WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Samples from Users
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Check if Adobe Acrobat is Installed



;; Test to determine if Adobe Acrobat (reader or full version) is installed.
AcroPath = ""

If RegExistKey(@REGCLASSES, ".pdf")

   pdf = RegQueryStr(@REGCLASSES, ".pdf")

   AcroKey = StrCat(pdf, "\Shell\Open\Command")

   If RegExistKey(@REGCLASSES, AcroKey)

      AcroPath = RegQueryStr(@REGCLASSES, AcroKey)

      AcroPath = StrReplace(StrSub(AcroPath, 1, (StrIndex(AcroPath, ".exe", 1, @FWDSCAN) + 4)), """", "") 

                  ;; StrReplace strips the quotes from the string, if they exist

   EndIf

EndIf

If AcroPath == "" || !FileExist(AcroPath)

   Message("Acrobat Not Installed", "Adobe Acrobat is not installed.")

   Exit

Else

   Message("Acrobat Installed", StrCat("Adobe Acrobat is installed here:", @CRLF, AcroPath))

EndIf



Exit

Article ID:   W16689
File Created: 2005:02:18:12:21:52
Last Updated: 2005:02:18:12:21:52