Writing Console FontSize in Registry

[Michael Mattias]

You ARE sure you want to make a permanent change to the using system, right?

If so, please remove this feature from any of your software I might license before you ship, or at least make it an option!

[Craig Slane]

The cat's meow, Eric. Success. Not at first, but after I added a small SLEEP interval behind it, all was well. Thanks for the great help here.

[Eric Pearson]

You want something along the lines of...

DIM dwValue AS DWORD

dwValue = &H000C0005

Then use BYVAL VARPTR(dwValue) instead of BYVAL STRPTR(whatever).

-- Eric

P.S. Or you could simply use the CWC wrapper program that is provided with Console Tools -- of which you are a licensee -- to set the console font size.

[Craig Slane]

Thank you, Micahel ....

So (bear with me here), to my mind that would mean I need to locate the 32 bit address of rData like this:

Dim x as String
x = STRPTR(rData)

... and then use ByVal x as the parameter?

Is that correct? I tried it and what shows in the registry is this message:

(Invalid DWORD (32 Bit) value)

I must not yet understand.

[Michael Mattias]

>REG_DWORD, ByVal StrPtr(rData), 11

When you write a REG_DWORD, you should supply the address of a DWORD, not the address of a string containing a hex representation of that DWORD.

[Craig Slane]

I've written a little wrapper program to fire up and set the console font size
for my PBCC application. For some reason, I cannot seem to write rData successfully to the registry. What am I doing wrong here? It must be simple and I just can't see it.

My installer program performs the task perfectly when give it
0x000c0005 as a value to write, so I'm puzzled. I'm sure I'll be
embarrassed when someone illumines the problem.

-----------------------

lpKey = %HKEY_CURRENT_USER
cMainKey = "Console"
Key = "FontSize"

FUNCTION SetConsoleRegValue(lpKey AS LONG,BYVAL cMainKey AS STRING, BYVAL Key AS STRING) AS LONG

ON ERROR RESUME NEXT
LOCAL hKey AS LONG
LOCAL Result AS LONG
Local rData As String
IF Key = "*" THEN Key = CHR$(0,0)
IF RegCreateKeyEx(lpKey, cMainKey + CHR$(0),0, "", %REG_OPTION_NON_VOLATILE, _
%KEY_ALL_ACCESS, BYVAL %NULL, hKey, Result) <> %ERROR_SUCCESS THEN
FUNCTION = 0
EXIT FUNCTION
END IF

rData = "0x000c0005" + chr$(0)

RegSetValueEx hKey, Key+CHR$(0), 0, %REG_DWORD, ByVal StrPtr(rData), 11

RegCloseKey hKey
FUNCTION = 0
END Function