|
|
|
|
|
|
|
 |
 |
 |
Artykuły |
 |
|
Rejestr
22:07:30 29.05.2005
@Gujet
Rejestr
Witam!
W tym artykule postaram się przybliżyć korzystanie z rejestru za pomocą aplikacji napisanych w Dephi. Na początku do listy modułów musimy dopisać: Registry, a potem zadeklarować zmienną typu TRegistry np. rar Reg: TRegistry.
Zrobimy teraz program, który w odpowiednim kluczu zapisze w rejestrze jakąś wartość, a potem ją odczyta. Umówmy się, że będzie to łańcuch znaków (string). Na formie umieść dwa przyciski i dwa pola edycji (edit). Procedurę onClik pierwszego przycisku uzupełnij tak:
Begin
Reg:=Tregistry.Create; //1
Reg.Rootkwy:=HKEY_CURRENT_USER; //2
Reg.Openkey (‘MyKey’,True); //3
Reg.WriteString (‘MojaWartosc’,edit1.text); //4
Reg.Free; //5
End;
//1 – tutaj tworzymy zmienną
//2 – ustawiamy domyślny klucz
//3 – tworzymy swój klucz o nazwie MyKey. Parametr True oznacza, że TWORZYMY klucz. Jeśli taki klucz już istnieje, to program zwyczajnie nie zarobi nic. W miejsce True możemy wpisać False. Wtedy dany klucz jest OTWIERANY, a jeśli taki nie istnieje, to program nie robi nic.
//4 – zapisujemy wartość o nazwie MojaWartosc, w której umieszczony zostanie tekst z komponentu Edit1.
//5 – zwalniamy zmienną.
A teraz pora na odczytanie, wcześniej zapisanej, wartości. W zdarzeniu onClik drugiego przycisku wpisz:
Begin
Reg.=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey (‘MyKey’,False); //1
Edit2.text:=Reg.ReadString(‘MojaWartosc’); //2
Reg.Free;
End.
Tu omówienia wymagają tylko dwie linie.
//1 – otwiera klucz
//2 – w polu edycji zapisujemy wartość klucza MojaWartosc.
To oczywiście nie wszystko, co można wyprawiać z rejestrem:)
Klasa TRegistry posiada jeszcze inne funkcje.
Oto niektóre z nich:
CloseKey – zamyka otwarty klucz np. Reg.CloseKey;
DeleteKey – usuwa klucz (hehe :))np. Reg.DeleteKey (‘MyKey’);
DeleteValue – usuwa wartość klucza np. Reg.DeleteValue (‘MojaWartosc’);
Istnieją również funkcje zapisu i odczytu różnego typu danych (ja wyżej omówiłem tylko stirng):
WriteBinaryData () – ReadBinaryData ()
WriteBool () – ReadBool ()
WriteCurrency () – ReadCurrency ()
WriteDate () – ReadDate ()
WriteDateTime () – ReadDateTime ()
WriteExpondString () – ReadExpondString ()
WriteFloat () – ReadFloat ()
WriteInteger () – ReadInteger ()
WriteTime () – ReadTime ()
Możecie, o ile znacie language, zajrzeć do pomocy Delphi i odnaleźć hasło TRegistry.
Rejestr możemy wykorzystać w swoich programach do wielu zadań np. licznik. Jak zawsze czekam na maile z pochwałami pod adresem gujet@o2.pl :) Pożegnam się słowami Joanny Chmielewskiej: „Koniec pieśni, cześć pracy, rodacy”.
Michał Korycki, skromny uczeń V kl. Technikum ekonomicznego w Lipinach.
Komentarzy: 0 | Głosuj (1,
2,
3,
4,
5,
6) | Ocena: 3.32 | Czytane: 1416 |  |
|
Komentarze |
|
|
Musisz się zalogować aby mieć możliwość komentowania
| |
|
|
|
| Copyright © p-zone.pl |
|
