Improvement to GetPBFolder()

Mistrel · **Joined:** Sat Jun 30, 2007 8:04 pm **Posts:** 2704

GetPBFolder() will fail if the .pb file association has not been made yet (on first run of PureBasic.exe).

You can try reading the uninstall information as a failsafe:

Code:

If Not Folder.s
  If RegOpenKeyEx_(#HKEY_LOCAL_MACHINE,"Software\Microsoft\Windows\CurrentVersion\Uninstall\PureBasic_is1",0,#KEY_ALL_ACCESS,@hKey)=#ERROR_SUCCESS
     If RegQueryValueEx_(hKey,@"InstallLocation",0,@Type,Value,@MaxStringSize)=#ERROR_SUCCESS
       Folder.s=PeekS(Value)
     EndIf
     RegCloseKey_(hKey)
   EndIf
EndIf

ABBKlaus · **Posted:** Thu May 15, 2008 5:33 pm

thanks i will add that in the next version.

PureBasic Forum

Improvement to GetPBFolder()

Who is online