Re: Code

Article View: be.comp.programming

Article #3009

Back to be.comp.programming Previous Next

#3009

From: JVB
Date: Tue, 17 Feb 2004 20:22

37 lines
2273 bytes

> procedure TfMain.GetRegister;
> var
>   reg: TRegistry;
> begin
>   gProfile:='';
>   gLastDir:='';
>   reg:=TRegistry.Create;
>   try
>     reg.RootKey:=HKEY_LOCAL_MACHINE;
>     reg.OpenKey('Software\Companyname\'+cAppName+'\'+cAppVersion,true);
>     if reg.ValueExists('gProfile') then
> gProfile:=reg.ReadString('gProfile');
>     if reg.ValueExists('gLastDir') then
gLastDir:=reg.ReadString('gLastDir')
>   finally
>     reg.free;
>     end;
>   end;
>
> procedure TfMain.SetRegister;
> var
>   reg: TRegistry;
> begin
>   reg:=TRegistry.Create;
>   try
>     reg.RootKey:=HKEY_LOCAL_MACHINE;
>     reg.OpenKey('Software\Companyname\'+cAppName+'\'+cAppVersion,true);
>     reg.WriteString('gProfile',gProfile);
>     reg.WriteString('gLastDir',gLastDir);
>   finally
>     reg.free;
>     end;
>   end;


Karel, dit is programmeercode waar je wat aan hebt ! Ik heb jouw voorbeeld
met succes toegepast. Dank voor jouw hulp ...

Technical Details

Message-ID: <%JuYb.5206$x6.303227@phobos.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!proxad.net!fr.ip.ndsoftware.net!news2.euro.net!news2.euro.net!amsnews01.chello.com!news.cambrium.nl!news.cambrium.nl!ecngs!feeder.ecngs.de!feed1.news.be.easynet.net!ossa.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail

References: <Pr1Yb.3207$yt5.118901@phobos.telenet-ops.be> <40311ab6$0$558$e4fe514c@news.xs4all.nl>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 107324,4fd33a488254e77e
X-Google-Attributes: gid107324,public
X-Google-Thread: fcea4,4fd33a488254e77e
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2004-02-17 12:22:20 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!proxad.net!fr.ip.ndsoftware.net!news2.euro.net!news2.euro.net!amsnews01.chello.com!news.cambrium.nl!news.cambrium.nl!ecngs!feeder.ecngs.de!feed1.news.be.easynet.net!ossa.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail
From: "JVB" <jvbsoft.verwijder.dit@pandora.be>
Newsgroups: be.comp.programming,nl.comp.programmeren
References: <Pr1Yb.3207$yt5.118901@phobos.telenet-ops.be> <40311ab6$0$558$e4fe514c@news.xs4all.nl>
Subject: Re: Code
Lines: 39
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Message-ID: <%JuYb.5206$x6.303227@phobos.telenet-ops.be>
Date: Tue, 17 Feb 2004 20:22:19 GMT
NNTP-Posting-Host: 81.165.156.41
X-Complaints-To: abuse@telenet.be
X-Trace: phobos.telenet-ops.be 1077049339 81.165.156.41 (Tue, 17 Feb 2004 21:22:19 MET)
NNTP-Posting-Date: Tue, 17 Feb 2004 21:22:19 MET
Organization: Telenet Internet

Reply to Parent Message