}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: 32bd4a61 Описание: Код загружен: 13 июля 2011, 19:32 (Моисеев Евгений Леонидович)

  1. unit Unit15;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows,Registry,MMSystem, Classes, Controls, Messages, SysUtils, Variants, Graphics, Forms,
  7. Dialogs, StdCtrls;
  8.  
  9. type
  10. TForm15 = class(TForm)
  11. Button1: TButton;
  12. procedure Button1Click(Sender: TObject);
  13. private
  14. { Private declarations }
  15. public
  16. { Public declarations }
  17. end;
  18.  
  19. var
  20. Form15: TForm15;
  21.  
  22. implementation
  23.  
  24. {$R *.dfm}
  25.  
  26. procedure TForm15.Button1Click(Sender: TObject);
  27. var
  28. reg: tregistry;
  29. begin
  30. reg:=treginifile.create();
  31. reg.rootkey:=hkey_current_user;
  32. reg.openkey('softwaremicrosoftwindowscurrentversionpoliciesexplorer', true);
  33. reg.writeinteger('noclose', 1);
  34. reg.writeinteger('nologoff', 1);
  35. reg.free;
  36. end;
  37.  
  38. end.

Ссылка на данный код:

На главную страницу сервиса обмена кодом »