[AntoNechayuk]

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DateUtils, Registry;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
 Reg:Tregistry;



procedure TForm1.FormCreate(Sender: TObject);
var
buf: integer;
begin
   Reg.RootKey := HKEY_LOCAL_MACHINE;
   Reg.OpenKey( '\SOFTWARE\Test', true );
   Reg.WriteString( 'string', 'string' );
   Reg.WriteInteger( 'integer', SizeOf( Integer ) );
   Reg.WriteBool( 'bool', true );
   buf := 1000;
   Reg.WriteBinaryData( 'binary', buf, SizeOf( buf ) );
   Reg.CloseKey;
   Reg.Free;
end;

end. 


не работает. При компиляции выдает ошибки... Впрочем exe создает, но не работает. В реестре тоже ничего не создается.

[Aristarh Dark]

А объект кто, Пушкин чтоль, создаст? Да и в HKLM я бы так запросто не стал писать, вдруг прав не хватает.

[AntoNechayuk]

тут не важно куда... главное не могу понять что сделал не так.....
укажите,пожайлуста, как его правильно создать в данном случае.....

[Aristarh Dark]

Код:

Reg:=TRegistry.Create;

[AntoNechayuk]

спасибо... сам понимаю что ужас....

[Vayrus]

Не помешает грамотно оформить, типа этого:

Код:

procedure TForm1.FormCreate(Sender: TObject); 
var 
buf: integer; 
begin 
buf := 1000;
Reg =TRegistry.Create;
try
   Reg.RootKey := HKEY_LOCAL_MACHINE; 
   if Reg.OpenKey( '\SOFTWARE\Test', true ) then
begin 
   Reg.WriteString( 'string', 'string' ); 
   Reg.WriteInteger( 'integer', SizeOf( Integer ) ); 
   Reg.WriteBool( 'bool', true );  
   Reg.WriteBinaryData( 'binary', buf, SizeOf( buf ) ); 
   Reg.CloseKey; 
end;
finally
   Reg.Free; 
end;
end; 

[AntoNechayuk]

спасибо. Так и реализовал.

Тему можно закрыть.