Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   C++ Registrykey lesen (https://www.delphipraxis.net/134826-registrykey-lesen.html)

Nitrous 29. Mai 2009 21:49


Registrykey lesen
 
Hi,

ich speicher in meinem programm einen Text (Edit1) in der registry, wenn ich das programm schließe.


void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
TRegistry *Registry = new TRegistry;
Registry->RootKey = HKEY_LOCAL_MACHINE;
Registry->OpenKey("SOFTWARE", false);
Registry->CreateKey("programm");
Registry->OpenKey("programm", false);
Registry->WriteString("name",Edit1->Text);

delete Registry;
}


so: wie kriege ich diesen wert jetzt wieder zurück. z.B öffne ich das programm und der text ist wieder vorhanden (Edit1).


mfg

RWarnecke 29. Mai 2009 21:52

Re: Registrykey lesen
 
Vielleicht so ?
Code:
TRegistry *Registry = new TRegistry;
Registry->RootKey = HKEY_LOCAL_MACHINE;
Registry->OpenKey("SOFTWARE\\program", false);
Edit1->Text = Registry->ReadString("name");
delete Registry;

Luckie 29. Mai 2009 23:19

Re: Registrykey lesen
 
Also zur Klasse Tregistry gibt es hier im Forum so viele Beispiele und in der Hilfe auch. Das sollte wohl kein Problem sein.

Und zu deinem Code: Wo ist der Ressourcenschutzblock und wie sieht es mit der Auswertung von Rückgabewerten aus?

Nitrous 30. Mai 2009 18:28

Re: Registrykey lesen
 
habe es hinbekommen, danke :)

RWarnecke 30. Mai 2009 19:38

Re: Registrykey lesen
 
Und wie sieht Deine Lösung aus ?

Nitrous 30. Mai 2009 19:58

Re: Registrykey lesen
 
dein ansatz ist richtig ;) ! :thumb:

Code:
TRegistry *Registry = new TRegistry;
Registry->RootKey = HKEY_LOCAL_MACHINE;
Registry->OpenKey("SOFTWARE\\program", false);
Edit1->Text = Registry->ReadString("name");
delete Registry;

Luckie 30. Mai 2009 20:00

Re: Registrykey lesen
 
Und noch mal:
Zitat:

Wo ist der Ressourcenschutzblock und wie sieht es mit der Auswertung von Rückgabewerten aus?
.


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:55 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz