Как записать и прочитать переменную моего типа из реестра?

[Никки]

Привет! Мне нужно записать переменную моего типа в реестр, я подумал, что это
надо через WriteBinaryData() но почему - то не получается....
Записывается, то она записываетя... а читается какая - то ерунда...

unit Unit1;

interface

        uses Registry;

        Type
                MyType=Record
                        Title:String;
                        Login:String;
                        Pasword:String;
                end;
		MyArray=array[0..10] of MyType;
                
        var
                MyVarible:MyArray;

        procedure Get(var MyVarible:MyArray);
        procedure Put(MyVarible:MyArray);


implementation

        
	// в реестр у меня всё записывается, а вот прочитать эту переменную почему - то не получается!

	procedure Put(MyVarible:MyArray);
        var
                Reg:TRegistry;
        begin
                Reg := TRegistry.Create;
                try
                        if Reg.OpenKey('\Software\MyProgram', TRUE) then begin
                                Reg.WriteBinaryData('MyVarible',MyVarible,SizeOf(MyVarible));
                        end;
                        Reg.CloseKey;
                finally
                        Reg.Free;
                end;
        end;


	procedure GetSettings(var Settings:TSetting);
        var
                Reg:TRegistry;
        begin
                Reg := TRegistry.Create;
                try
                        if Reg.OpenKey('\Software\MyProgram', TRUE) then begin
                                Reg.ReadBinaryData('MyVarible',MyVarible,SizeOf(MyVarible));
                        end;
                        Reg.CloseKey;
                finally
                        Reg.Free;
                end;
        end;

	

	{  а ещё я делал вот так вот, но всё равно ничего не вышло:

	procedure Put(MyVarible:MyArray);
        var
                Reg:TRegistry;
        begin
                Reg := TRegistry.Create;
                try
                        if Reg.OpenKey('\Software\MyProgram', TRUE) then begin
                                Reg.WriteString('Size',SizeOf(MyVarible));
				Reg.WriteBinaryData('MyVarible',MyVarible,SizeOf(MyVarible));
                        end;
                        Reg.CloseKey;
                finally
                        Reg.Free;
                end;
        end;


	procedure GetSettings(var Settings:TSetting);
        var
                Reg:TRegistry;
        begin
                Reg := TRegistry.Create;
                try
                        if Reg.OpenKey('\Software\MyProgram', TRUE) then begin
                                Reg.ReadBinaryData('MyVarible',MyVarible,Reg.ReadInteger('Size'));
                        end;
                        Reg.CloseKey;
                finally
                        Reg.Free;
                end;
        end;

	}
end.

Я ведь просто что - то не так делаю?? На самом деле её туда можно же записать?

А если нельзя, то как быть??


Зарание спасибо!

[mihali4]

Ну откройте же вы хэлп по TRegistry, там полно примеров дано!
Вы же даже секцию не открываете!

[Alter]

Для TRegistry:

        var
                Reg:TRegistry;
        begin
                Reg := TRegistry.Create;
                try
                Reg.RootKey:=HKEY_LOCAL_MACHINE{или другой}; // <= Это НАДО!
                        if Reg.OpenKey('{\ <- Это НЕнадо}Software\MyProgram', TRUE) then begin
                                Reg.WriteBinaryData('MyVarible',MyVarible,SizeOf(MyVarible));
                        end;
                        Reg.CloseKey;
                finally
                        Reg.Free;
                end;
        end;

Можно и TRegIniFile:

var
    RegIni :TRegIniFile;
begin
 RegIni:=TRegIniFile.Create('Software\MyProgram');
  Try
 RegIni.WriteInteger('Option'{подсекция от Software\MyProgram => MyProgram\Option}, 'top'{Идентификатор}, 150{значение});
  Finally
 RegIni.Free;
  End;
end;