AlmarM Posted October 1, 2008 Share Posted October 1, 2008 (edited) Hello,Mayby you saw the "iRun~" topic I made...And I tought this would be usefull for some people!Commands:_AddRun()_DeleteRun()_ReadRun()_ReadAllRun() (Need Fix!)expandcollapse popup; #FUNCTION# ================================================================================================= ; Name...........: _AddRun() ; Description ...: Adds a registery key to the Run folder ; Syntax.........: _AddRun($n_Name, $n_Path, $n_Option = 0) ; Parameters ....: $n_Name = The name of the key ; $n_Path = The path to the file ; $n_Option = When sould the file be started (0 = Only on this user, 1 = On all users) ; Errors ........: 0 = Succes ; 1 = Keyname already exists ; Return values .: $n_Read ; Author ........: Almar Mulder (AlmarM) ; Modified.......: - ; Remarks .......: - ; Related .......: RegWrite(), _DeleteRun(), _ReadRun() ; Link ..........: - ; Example .......: Yes ; _AddRun("Test", "C:\Temp\test.txt", 1) ; #FUNCTION# ================================================================================================= Func _AddRun($n_Name, $n_Path, $n_Option = 0) If $n_Option = 0 Then $n_HKEY = "HKEY_CURRENT_USER\Software" Else $n_HKEY = "HKEY_LOCAL_MACHINE\SOFTWARE" EndIf If RegRead($n_HKEY & "\Microsoft\Windows\CurrentVersion\Run", $n_Name) = True Then SetError(1) Else RegWrite($n_HKEY & "\Microsoft\Windows\CurrentVersion\Run", $n_Name, "REG_SZ", $n_Path) SetError(0) EndIf EndFunc ;==> _AddRun() ; #FUNCTION# ================================================================================================= ; Name...........: _DeleteRun() ; Description ...: Deletes a registery key in the Run folder ; Syntax.........: _DeleteRun($n_Name, $n_Option = 0) ; Parameters ....: $n_Name = The name of the key ; $n_Option = Where sould the key be deleted? (0 = Only on this user, 1 = On all users) ; Erros .........: 0 = Succes ; 1 = Keyname doesnt exists ; Return values .: $n_Read ; Author ........: Almar Mulder (AlmarM) ; Modified.......: - ; Remarks .......: - ; Related .......: RegWrite(), _AddRun(), _ReadRun() ; Link ..........: - ; Example .......: Yes ; _DeleteRun("Test", 1) ; #FUNCTION# ================================================================================================= Func _DeleteRun($n_Name, $n_Option = 0) If $n_Option = 0 Then $n_HKEY = "HKEY_CURRENT_USER\Software" Else $n_HKEY = "HKEY_LOCAL_MACHINE\SOFTWARE" EndIf If RegRead($n_HKEY & "\Microsoft\Windows\CurrentVersion\Run", $n_Name) = False Then SetError(1) Else RegDelete($n_HKEY & "\Microsoft\Windows\CurrentVersion\Run", $n_Name) SetError(0) EndIf EndFunc ;==> _DeleteRun() ; #FUNCTION# ================================================================================================= ; Name...........: _ReadRun() ; Description ...: Reads a registery key in the Run folder ; Syntax.........: _ReadRun($n_Name, $n_Option = 0) ; Parameters ....: $n_Name = The name of the key ; $n_Option = Where sould the key be read? (0 = Only on this user, 1 = On all users) ; Errors ........: 0 = Succes ; 1 = Keyname doenst exists ; Return values .: $n_Read ; Author ........: Almar Mulder (AlmarM) ; Modified.......: - ; Remarks .......: - ; Related .......: RegWrite(), _AddRun(), _DeleteRun() ; Link ..........: - ; Example .......: Yes ; $ReadRun = _ReadRun("Test", 1) ; MsgBox(64, "_ReadRun()", $ReadRun) ; #FUNCTION# ================================================================================================= Func _ReadRun($n_Name, $n_Option = 0) If $n_Option = 0 Then $n_HKEY = "HKEY_CURRENT_USER\Software" Else $n_HKEY = "HKEY_LOCAL_MACHINE\SOFTWARE" EndIf If RegRead($n_HKEY & "\Microsoft\Windows\CurrentVersion\Run", $n_Name) = False Then SetError(1) Else $n_Read = RegRead($n_HKEY & "\Microsoft\Windows\CurrentVersion\Run", $n_Name) SetError(0) EndIf Return $n_Read EndFunc ;==> _ReadRun() ; #FUNCTION# ================================================================================================= ; Name...........: _ReadAllRun() ; Description ...: Reads all registery keys in the Run folder ; Syntax.........: _ReadAllRun($n_Option = 0) ; Parameters ....: $n_Option = Where sould the key be read? (0 = Only on this user, 1 = On all users) ; Errors ........: - ; Return values .: $n_Read ; Author ........: Almar Mulder (AlmarM) ; Modified.......: - ; Remarks .......: - ; Related .......: RegWrite(), _AddRun(), _DeleteRun() ; Link ..........: - ; Example .......: Yes ; $ReadRun = _ReadAllRun(1) ; MsgBox(64, "_ReadAllRun()", $ReadRun) ; #FUNCTION# ================================================================================================= Func _ReadAllRun($n_Option = 0) If $n_Option = 0 Then $n_HKEY = "HKEY_CURRENT_USER\Software" Else $n_HKEY = "HKEY_LOCAL_MACHINE\SOFTWARE" EndIf For $i = 1 To 100 $n_Read = RegEnumVal($n_HKEY & "\Microsoft\Windows\CurrentVersion\Run", $i) Next Return $n_Read EndFunc ;==> _ReadAllRun()Hope you enjoy! AlmarM Edited October 2, 2008 by AlmarM Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes. Link to comment Share on other sites More sharing options...
zaini Posted October 1, 2008 Share Posted October 1, 2008 good effort..i can use it later.. Link to comment Share on other sites More sharing options...
AlmarM Posted October 2, 2008 Author Share Posted October 2, 2008 Updated Post! Here!AlmarM Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now