Thread View: be.comp.programming
10 messages
10 total messages
Started by JVB
Mon, 16 Feb 2004 11:03
Code
Author: JVB
Date: Mon, 16 Feb 2004 11:03
Date: Mon, 16 Feb 2004 11:03
2 lines
1322 bytes
1322 bytes
Hoe kan ik met Delphi code een "codewoord" in het register bakken ?? Gebeurt met TRegistry , maar hoet moet het dan verder ?? Dank ......
Re: Code
Author: Meindert Sprang
Date: Mon, 16 Feb 2004 11:30
Date: Mon, 16 Feb 2004 11:30
13 lines
1643 bytes
1643 bytes
"JVB" <jvbsoft.verwijder.dit@pandora.be> wrote in message news:Pr1Yb.3207$yt5.118901@phobos.telenet-ops.be... > Hoe kan ik met Delphi code een "codewoord" in het register bakken ?? Gebeurt > met TRegistry , maar hoet moet het dan verder ?? Dank ...... Jonge jonge...... Kies in Delphi menuoptie Help->Delphi Help, kies in het verschijnende venster "Index", type Tregistry in de invoerregel, klik op "Display" en klik dan in het volgende venster "Example"...... Moeilijk h�, programmeren :-(( Meindert
Re: Code
Author: JVB
Date: Mon, 16 Feb 2004 12:03
Date: Mon, 16 Feb 2004 12:03
13 lines
1676 bytes
1676 bytes
> Jonge jonge...... > > Kies in Delphi menuoptie Help->Delphi Help, kies in het verschijnende > venster "Index", type Tregistry in de invoerregel, klik op "Display" en klik > dan in het volgende venster "Example"...... Moeilijk h�, programmeren :-(( > > Meindert Jonge jonge...... Dat is het nu net, laat dit nu het eerste zijn wat ik doe.... Het probleem echter is dat daar niet echt een simpel voorbeeld in staat, vandaar de vraag in deze nieuwsgroep ...
Re: Code
Author: Mathijs
Date: Mon, 16 Feb 2004 12:39
Date: Mon, 16 Feb 2004 12:39
10 lines
1468 bytes
1468 bytes
Op 16 feb 2004 vond "JVB" <jvbsoft.verwijder.dit@pandora.be> het nodig om ons lastig te vallen met het volgende: > Jonge jonge...... Dat is het nu net, laat dit nu het eerste zijn wat > ik doe.... Het probleem echter is dat daar niet echt een simpel > voorbeeld in staat, vandaar de vraag in deze nieuwsgroep ... Vertel dan eens wat je daar niet aan snapt. Ik neem aan dat je iets geprobeerd hebt. Post je code eens. Er zal vast wel iemand een fout in kunnen ontdekken.
Re: Code
Author: Meindert Sprang
Date: Mon, 16 Feb 2004 13:21
Date: Mon, 16 Feb 2004 13:21
20 lines
1767 bytes
1767 bytes
"JVB" <jvbsoft.verwijder.dit@pandora.be> wrote in message news:uk2Yb.3250$3d7.250993@phobos.telenet-ops.be... > > Jonge jonge...... > > > > Kies in Delphi menuoptie Help->Delphi Help, kies in het verschijnende > > venster "Index", type Tregistry in de invoerregel, klik op "Display" en > klik > > dan in het volgende venster "Example"...... Moeilijk h�, programmeren :-(( > > > > Meindert > > > Jonge jonge...... Dat is het nu net, laat dit nu het eerste zijn wat ik > doe.... Het probleem echter is dat daar niet echt een simpel voorbeeld in > staat, vandaar de vraag in deze nieuwsgroep ... Wees dan eens preciezer. Wat precies snap je niet? Meindert
Re: Code
Author: Willem van Deursen
Date: Mon, 16 Feb 2004 15:00
Date: Mon, 16 Feb 2004 15:00
34 lines
2261 bytes
2261 bytes
Het voorbeeld dat bij TRegIniFile wordt gegeven is iets duidelijker dan het voorbeeld van TRegistry. Misschien dat dat helpt. Bekijk ook de voorbeelden van CreateKey.... Succes Willem JVB wrote: >>Jonge jonge...... >> >>Kies in Delphi menuoptie Help->Delphi Help, kies in het verschijnende >>venster "Index", type Tregistry in de invoerregel, klik op "Display" en > > klik > >>dan in het volgende venster "Example"...... Moeilijk h�, programmeren :-(( >> >>Meindert > > > > Jonge jonge...... Dat is het nu net, laat dit nu het eerste zijn wat ik > doe.... Het probleem echter is dat daar niet echt een simpel voorbeeld in > staat, vandaar de vraag in deze nieuwsgroep ... > > -- Willem van Deursen, The Netherlands wvandeursen_nospam@nospam_carthago.nl replace _nospam@nospam_ for @ to get a valid email address www.carthago.nl
Re: Code
Author: Karel de Andere
Date: Mon, 16 Feb 2004 19:32
Date: Mon, 16 Feb 2004 19:32
45 lines
2251 bytes
2251 bytes
"JVB" <jvbsoft.verwijder.dit@pandora.be> schreef in bericht
news:Pr1Yb.3207$yt5.118901@phobos.telenet-ops.be...
> Hoe kan ik met Delphi code een "codewoord" in het register bakken ??
Gebeurt
> met TRegistry , maar hoet moet het dan verder ?? Dank ......
>
Hier hopelijk een normaal antwoord.
Er worden 2 globaal gedeclareerde variabelen gelzezen en geschreven. Ik neem
aan dat dit voldoende basis is.
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;
Re: Code
Author: Karel de Andere
Date: Tue, 17 Feb 2004 13:06
Date: Tue, 17 Feb 2004 13:06
1 lines
1066 bytes
1066 bytes
En je bedankje wordt zeer gewaardeerd.
Re: Code
Author: JVB
Date: Tue, 17 Feb 2004 13:15
Date: Tue, 17 Feb 2004 13:15
10 lines
1672 bytes
1672 bytes
"Willem van Deursen" <a@a.a> schreef in bericht news:4030daa4$0$1408$4d4ebb8e@news.nl.uu.net... > Het voorbeeld dat bij TRegIniFile wordt gegeven is iets duidelijker dan > het voorbeeld van TRegistry. Misschien dat dat helpt. Hoi Willem dit klopt inderdaad. Bij de help van TRegistry is een beter voorbeeld .... Ondertussen is mijn probleem opgelost .... Dank .....
Re: Code
Author: JVB
Date: Tue, 17 Feb 2004 20:22
Date: Tue, 17 Feb 2004 20:22
37 lines
2273 bytes
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 ...
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads