Free Software - PureInstall

gnozal · Post by **gnozal** » Tue Aug 19, 2003 8:20 am

Win98SE just works fine for me !

Paul · Post by **Paul** » 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

GPI · Post by **GPI** » 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...

J. Baker · Post by **J. Baker** » Wed Aug 20, 2003 11:42 pm

Nice work Paul!

Paul · Post by **Paul** » 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