PureBasic Forums - English

Posted: **Tue Aug 19, 2003 8:20 am**

Win98SE just works fine for me !

Posted: **Tue Aug 19, 2003 11:10 am**

>>I downloaded v1.5 but now when I choose Uninstall from the Start Menu
>>it leaves the app folder and Uninstall.exe there -- even though it said
>>that the app was uninstalled successfully.

Yup, that's a good as it will get since you can't delete a file or folder that is currently being used

Posted: **Tue Aug 19, 2003 6:01 pm**

Code: Select all

Procedure.s Reg_GetValue(topKey, sKeyName.s, sValueName.s, ComputerName.s) 
  lpData.s 
  GetValue.s =""
  
  If Left(sKeyName, 1) = "\" 
    sKeyName = Right(sKeyName, Len(sKeyName) - 1) 
  EndIf 
  
  If ComputerName = "" 
    GetHandle = RegOpenKeyEx_(topKey, sKeyName, 0, #KEY_ALL_ACCESS, @hKey) 
  Else 
    lReturnCode = RegConnectRegistry_(ComputerName, topKey, @lhRemoteRegistry) 
    GetHandle = RegOpenKeyEx_(lhRemoteRegistry, sKeyName, 0, #KEY_ALL_ACCESS, @hKey) 
  EndIf 
  
  If GetHandle = #ERROR_SUCCESS 
    lpcbData = 255 
    lpData = Space(255) 
    
    GetHandle = RegQueryValueEx_(hKey, sValueName, 0, @lType, @lpData, @lpcbData) 
    
    If GetHandle = #ERROR_SUCCESS 
      Select lType 
        Case #REG_SZ 
          GetHandle = RegQueryValueEx_(hKey, sValueName, 0, @lType, @lpData, @lpcbData) 
          
          If GetHandle = 0 
            GetValue = Left(lpData, lpcbData - 1) 
          Else 
            GetValue = "" 
          EndIf 
          
        Case #REG_DWORD 
          GetHandle = RegQueryValueEx_(hKey, sValueName, 0, @lpType, @lpDataDWORD, @lpcbData) 
          
          If GetHandle = 0 
            GetValue = Str(lpDataDWORD) 
          Else 
            GetValue = "0" 
          EndIf 
          
      EndSelect 
    EndIf 
  EndIf 
  RegCloseKey_(hKey) 
  ProcedureReturn GetValue 
EndProcedure 

Debug Reg_GetValue(#HKEY_LOCAL_MACHINE ,"SOFTWARE\Microsoft\Windows\CurrentVersion","ProgramFilesDir","")

Returns the program files path for every system...

Posted: **Wed Aug 20, 2003 11:42 pm**

Nice work Paul!

Posted: **Sat Aug 23, 2003 1:03 am**

Had some time so I added the ability to Password Protect your install package. (all compressed files are encrypted and require a keyword to decrypt)

Good for when you only want certain people installing your software.

http://www.reelmediaproductions.com/pureinstall

PureBasic Forums - English

Free Software - PureInstall