Ĺ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
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');
