ďťż

Ładny brzuch

Witam.

Wrzuciłem na forme button i podpiołem taki kod:

procedure TForm1.Button1Click(Sender: TObject);  var Reg: TRegistry; begin  Reg:=TRegistry.Create;  Reg.RootKey:=HKEY_CURRENT_USER; if Reg.OpenKey('Software\Microsoft\Windows\Policies\System',False) then begin  Reg.WriteInteger('System',0); end;  Reg.Free; end;

1. Czy to ma sens ? Jak można utworzyć klucz, który na przykład tak jak tu zablokuje "właściwości ekranu" ?
2. W jaki sposób można napisać kod pod 2 button, który usunie utworzony wcześniej klucz (jeśli tego klucza nie ma wyświetliłby info o tym - o ile taka możliwośc istnieje)
3. Jak ktoś zna jakieś linki do stron na których opisane jest działanie na rejestrze pod Delphi niech podrzuci ;)

Pozdrawiam...




1. Czy to ma sens ? Jak można utworzyć klucz, który na przykład tak jak tu zablokuje "właściwości ekranu" ?

To co napisałeś utworzy w kluczu Software\Microsoft\Windows\Policies\System wpis system i nada mu wartość 0. Jak tego klucza nie będzie to powinien wyskoczyć błąd, bo przy otwieraniu klucza dałeś false.


2. W jaki sposób można napisać kod pod 2 button, który usunie utworzony wcześniej klucz (jeśli tego klucza nie ma wyświetliłby info o tym - o ile taka możliwośc istnieje)

Klucz czy wpis ?? Usunięcie klucza - TRegistry.DeleteKey Sprawdzenie obecności klucza TRegistry.OpenKey z CanCreate = false; Jeżeli OpenKey zwróci false to klucza nie ma.


3. Jak ktoś zna jakieś linki do stron na których opisane jest działanie na rejestrze pod Delphi niech podrzuci ;)

TRegistry + F1 ;)

Witam...

Nie wiem co jest grane. Odpalam ten programik wciskam przycisk i nic.
W "Policies" nie ma "System" :unsure:


W "Policies" nie ma "System"  :unsure:

To go utwórz ;)
W OpenKey zmień False na True - wówczas klucz powinien się utworzyć.




To go utwórz ;)
W OpenKey zmień False na True - wówczas klucz powinien się utworzyć.

Witam. Mam jeszcze takie pytanie:

procedure TForm1.Button1Click(Sender: TObject); var Reg : TRegistry; begin Reg:=TRegistry.Create; Reg.RootKey:=HKEY_CURRENT_USER; Reg.CreateKey('Software\Microsoft\Windows\CurrentVersion\Policies\System' ); if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System' , True) then begin Reg.WriteInteger('NoDispCPL',1); end; Reg.Free; end;

Jak usunąć wpis NoDispCPL ? Za pomocą DeleteKey ?

DeleteValue - usuwanie wartości
DeleteKey - usuwanie klucza
KeyExists - sprawdzanie czy istnieje taka wartość
ValueExists - sprawdzanie czy istnieje taki klucz

Reg.DeleteKey('NoDispCPL');
albo
Reg.DeleteKey('Software\Microsoft\Windows\CurrentVersion\Policies\ System\NoDispCPL');
Użytkownik Coldpeer edytował ten post 22 luty 2006, 10:20

Reg.DeleteKey('NoDispCPL');
albo
Reg.DeleteKey('Software\Microsoft\Windows\CurrentVersion\Policies\ System\NoDispCPL');

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
  •