🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: no.it.programmering.visual-basic
Article #4

Please look at my code to help me with extracting a key from registry. - module1.bas (0/1)

#4
From: Chetan Phull
Date: Thu, 06 Aug 1998 00:00
22 lines
1867 bytes
Hello people,
	I want to determine whether Win32 is using Large or Small
fonts.  I've found out what entry in the registry will tell me this.
	A guy on IRC helped me out and gave me a whole bunch of his
code I had to sort through.  It SHOULD work but Visual Basic 5
w/Service Pack 3 preforms and illegal opperation and is forced to
close.  I'm including the problem file with this message.
(MODULE1.BAS)
	I know exactly where the problem is:

            ReturnCode = RegQueryValueEx(hKey, "fonts.fon", 0&,
REG_SZ, lpData, lpcbData)

if I replace "fonts.fon" with a NULL string, it'll pass this line fine
but it doesn't do what I want it to.  However, whenever I add
"fonts.fon," it pauses after processing that line.  Someone told me to
put ByVal where necessary but I don't know how to use ByVal very well.
Could someone out there look at this code and fix parts that need
fixing?  Thanx a lot.

Chetan Phull
phull@interlog.com
Technical Details
Message-ID: <35cbf538.5148040@nntp.interlog.com>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10b997,3aa35f5615f6de0a,start
X-Google-Attributes: gid10b997,public
X-Google-Thread: fb992,3aa35f5615f6de0a,start
X-Google-Attributes: gidfb992,public
X-Google-Thread: 111c14,3aa35f5615f6de0a,start
X-Google-Attributes: gid111c14,public
X-Google-Thread: 10f2ee,3aa35f5615f6de0a,start
X-Google-Attributes: gid10f2ee,public
From: phull@interlog.com (Chetan Phull)
Subject: Please look at my code to help me with extracting a key from registry. - module1.bas (0/1)
Date: 1998/08/06
Message-ID: <35cbf538.5148040@nntp.interlog.com>
X-Deja-AN: 378596267
Content-Transfer-Encoding: 7bit
Content-Type: text/plain; charset=us-ascii
NNTP-Posting-Time: 6 Aug 1998 18:34:39 GMT
Organization: Trulogic Systems Inc.
Mime-Version: 1.0
Newsgroups: no.it.programmering.visual-basic,it.comp.lang.visual-basic,comp.lang.visual.basic,ab.software.developers