Get registry key

[Bill Parker]

Re: Get registry key

Bump.

[Marcel Kollenaar]

Re: Get registry key

I take a look at it, but I can't promise anything.

--------- Edit -------------

The Error 87 sounds familiar, I got a lot of them. This is my try-out of an api version.

[Bill Parker]

Re: Get registry key

Ah, Declaresturct is how to pass byRef. My first try at that is giving "function not recognized" error, so more testing.

Bill.

[csda1]

Re: Get registry key

Hi Bill,

Ah, Declaresturct is how to pass byRef. My first try at that is giving "function not recognized" error, so more testing.

I won't have time to look at this in this week, but you should know that anytime you change the Declare or Declarestruct lines (as opposed to initially create one), you must restart Alpha Five. That's exactly why the CSDA Code Utility was originally created. 5000 restarts later, and it get's real tiresome! :D

[Bill Parker]

Re: Get registry key

Been there, done that.

[Marcel Kollenaar]

Re: Get registry key

Ira,

That's a hard coded pleasure bug. An alternative name is "By Design". They should have add a destruct("structure_name") function. ;)

But there is an undeclare statement. Technically it will disconnect the link to the external function in the dll. If you put it at the end of the code the only thing you have to do is to restart A5 for changes in the declarestructs.

[Marcel Kollenaar]

Re: Get registry key

Ah, Declaresturct is how to pass byRef. My first try at that is giving "function not recognized" error, so more testing.

Bill.

Structures are passed by it's pointer value and therefore "ByRef".

----------------- edit ----------------

Hmmm, still no success. One of the best programmers here around remined me at an old dll. Maybe I have to look at PureBasic or Powerbasic to construct a dll that does the job and the dll self will recieve "save" A5 friendly parameters. But this will take some.

[Bill Parker]

Re: Get registry key

Marcel,

I have successfully gotten past
RegOpenKeyEx(HKEY_LOCAL_MACHINE,SubKey,0,KEY_READ,lngKeyHandle)

There was a difference between us in the 3rd parameter. You used Key_Query_VAlue. That was one component of my Key_Read. Maybe there was a security issue.

Now I am working on
RegEnumValue()

I'll post after some more trials.

Bill.

[Bill Parker]

Re: Get registry key

Attached is the current state of the function. I need to do an assignment to a parameter that will be passed byRef. It was defined with declarestruct. Since it is defined as a long int assigning a number to is does not work? I get "variable not found", although properties_enum() shows it.

The issues are just past the current debug(1) statement.

Bill.

[aschone]

Re: Get registry key

Here is a different approach that may help you.

From Interactive

?f_GetRegKey("HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache", "C:\Program Files\a5V10\alpha5.exe")
= "C:\\Program Files\\a5V10\\alpha5.exe"="Alpha Five"

FUNCTION Code

'Date Created: 07-Apr-2010 10:07:29 PM
'Last Updated: 07-Apr-2010 10:07:29 PM
'Created By  : andy
'Updated By  : andy
FUNCTION f_GetRegKey AS C ( vArgKeyC as C, vArgValueC as C )
	OPTION STRICT
	OPTION ENCRYPTED_TOKENS
	ON ERROR GOTO ERR_HANDLER
	
	'ui_msg_box("", vArgKeyC + crlf() + vArgValueC )
	
	DIM vBatchFileC as C
	vBatchFileC = a5.Get_Path()+chr(92)+"Temp.bat"
	IF FILE.exists(vBatchFileC) THEN
		FILE.remove(vBatchFileC)
	END IF
	
	DIM vRegFileC as C
	vRegFileC = a5.Get_Path()+chr(92)+"Temp.txt"
	IF FILE.exists(vRegFileC) THEN
		FILE.remove(vRegFileC)
	END IF

	DIM vCommandLineC as C
	vCommandLineC = "regedit.exe /e " + chr(34) + vRegFileC + chr(34) + " " + vArgKeyC
	'ui_msg_box("",vCommandLineC)

	FILE.from_string(vBatchFileC,vCommandLineC)
	
	IF File.exists(vBatchFileC) THEN
		sys_shell_wait(vBatchFileC)
		IF File.exists(vRegFileC) THEN
			'sys_open(vRegFileC)
		ELSE
			ui_msg_box("Error",vRegFileC + " does not exist",UI_STOP_SYMBOL)
			END
		END IF
	ELSE
		ui_msg_box("Error", vBatchFileC + " does not exist",UI_STOP_SYMBOL)
		END
	END IF
	
	DIM vFileContentsC as C
	vFileContentsC = file.to_string(vRegFileC)
	'ui_msg_box("",vFileContentsC)
	
	vArgValueC = strtran(vArgValueC, chr(92), chr(92) + chr(92) )
	'ui_msg_box("",vArgValueC)	
	

	DIM vReturnC as C
	FOR EACH foo IN vFileContentsC
'		ui_msg_box("",foo.value)
		IF vArgValueC $ foo.value THEN		
			vReturnC = vReturnC + crlf() + foo.value		
		END If
	NEXT
	vReturnC = remove_blank_lines(vReturnC)
	'ui_msg_box(line_count(vReturnC),vReturnC)		

	
	IF FILE.exists(vBatchFileC) THEN
		FILE.remove(vBatchFileC)
	END IF
	
	IF FILE.exists(vRegFileC) THEN
		FILE.remove(vRegFileC)
	END IF

	f_GetRegKey = vReturnC	
	
	END
	'-----------------------------------
	'Error handler
	'-----------------------------------
	ERR_HANDLER:
		Dim err as N= error_code_get()
		Dim msg as C= "Error # "+ err + crlf() + error_text_get(err)
		msg = msg + crlf() + "Script: " + error_script_get()
		msg = msg + crlf() + "Line #: " + error_line_number_get()
	
		trace.writeln(msg)
	
		ui_msg_box("Error", msg, ui_attention_symbol)
		msg = ""
		
		END
END FUNCTION

[Marcel Kollenaar]

Re: Get registry key

Marcel,

I have successfully gotten past
RegOpenKeyEx(HKEY_LOCAL_MACHINE,SubKey,0,KEY_READ,lngKeyHandle)

There was a difference between us in the 3rd parameter. You used Key_Query_VAlue. That was one component of my Key_Read. Maybe there was a security issue.

Now I am working on
RegEnumValue()

I'll post after some more trials.

Bill.

Bill, the fact that I used the query value is that the example iterates through the sub values of the key.

[Marcel Kollenaar]

Re: Get registry key

Here is a different approach that may help you.
[/code]

aws, thanks for this out of the box thinking version. I'll put it in my code lib.

[Marcel Kollenaar]

Re: Get registry key

Attached is the current state of the function. I need to do an assignment to a parameter that will be passed byRef. It was defined with declarestruct. Since it is defined as a long int assigning a number to is does not work? I get "variable not found", although properties_enum() shows it.

The issues are just past the current debug(1) statement.

Bill.

Bill, illuminating code. I like the way you pick up new approaches and play with it. I have to study your code and acn learn a lot. I almost never use the type end type for parameters. Different mind, different approach.

Have to work now and will take a look at it later.

[Bill Parker]

Re: Get registry key

Thanks Andy. Works great.

I was sure that I had looked into exporting a hive, but maybe not. When I do it interactively now, the format is different (and more difficult to work with) from what your command line gives.

The sys_shell() does flash on the screen, and that is one thing I was hoping to avoid by using the api approach.

Now that I am into conversion of this api code, it is a good learning moment for future situations if we can get it completed.

Bill.

[crimmelcp]

Re: Get registry key

Just a quick question

When I run andys code, I get

vArgKeyC = HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache
vArgValueC = C:\Program Files\a5V9\alpha5.exe
vBatchFileC = C:\Alpha5v9\WVLogin\Temp.bat
vRegFileC = C:\Alpha5v9\WVLogin\Temp.txt
vReturnC =
f_GetRegKey =


What should I expect to see in f_GetRegKey =

Thanks
Charlie Crimmel