Code: Select all
Procedure.i RegKeyExists(exePath$)
Protected Key.l = #HKEY_CURRENT_USER
Protected Path.s = "Software\Microsoft\Windows\CurrentVersion\Run"
Protected Value.s = "TEST"
Protected String.s = Chr(34)+exePath$+Chr(34)
Protected CurKey.l
Define res.l=RegOpenKeyEx_(Key,@Path,0,#KEY_ALL_ACCESS,@CurKey)
If res<>#ERROR_SUCCESS
RegCloseKey_(CurKey)
ProcedureReturn 0
Else
RegCloseKey_(CurKey)
ProcedureReturn 1
EndIf
EndProcedure