🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.pascal.delphi.misc
Article #165

Re: get data from Registry

#165
From: Chris Cowherd
Date: Sun, 06 Jul 1997 00:00
31 lines
1652 bytes
procedure T__Main.FormCreate(Sender: TObject);
var
   reg : TRegistry;
begin
     reg := TRegistry.Create;
     try
        reg.OpenKey('\Software\Acanthus\Dealer\General\', true);
        try
           PreviewReports.Text := reg.ReadString('Preview Reports');
        except
	// This is here in case this is the registry entry is not there.  I don't
want an error generated.
        end;
     finally
        reg.Free;
     end;
end;


Shay Toder <shayt@inter.net.il> wrote in article
<33BF8946.14BC8A9F@inter.net.il>...
> hi,
> how do I get a data from the registry ?
> I've got the RegOpenKey to open the key, but fhe function brings me
> handle to the key, and i want to get the string i put in a key.
> 
> (if it's not too much trouble Email me plus the newsgroup)
> thanks
> shay
> 
Technical Details
Message-ID: <01bc8a4a$affdf380$c6fdcccf@dwarfs>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <33BF8946.14BC8A9F@inter.net.il>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f973d,eb456324663bca5d
X-Google-Attributes: gidf973d,public
X-Google-Thread: 10baee,eb456324663bca5d
X-Google-Attributes: gid10baee,public
X-Google-Thread: fd817,eb456324663bca5d
X-Google-Attributes: gidfd817,public
X-Google-Thread: 1091e5,eb456324663bca5d
X-Google-Attributes: gid1091e5,public
X-Google-Thread: 10545b,eb456324663bca5d
X-Google-Attributes: gid10545b,public
From: "Chris Cowherd" <NO_SPAM_bakedon@goodnet.com>
Subject: Re: get data from Registry
Date: 1997/07/06
Message-ID: <01bc8a4a$affdf380$c6fdcccf@dwarfs>
X-Deja-AN: 255058619
References: <33BF8946.14BC8A9F@inter.net.il>
Organization: None
Newsgroups: comp.lang.pascal.delphi.misc,alt.lang.delphi,alt.comp.lang.borland-delphi,borland.public.delphi.ide,borland.public.delphi.winapi