|
Тема |
Re: promenlivi - Integer [re: smqtai] |
|
Автор |
Timo (Mi_Az) |
|
Публикувано | 09.10.06 23:46 |
|
|
uses
Registry
procedure TForm1.FormCreate(Sender: TObject);
var
Reg:TRegistry;
begin
Edit1.Text:='1';
Edit2.Text:='';
Reg:=TRegistry.Create;
Reg.RootKey:= HKEY_CURRENT_USER;
Reg.OpenKey('Software\Name',false);
Reg.CloseKey;
Reg.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Reg.LazyWrite:=True;
Reg.OpenKey('Software\Name',True);
Reg.WriteInteger('Integer_1',StrToInt(Edit1.Text));
Reg.CloseKey;
Reg.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:= HKEY_CURRENT_USER;
Reg.OpenKey('Software\Name',false);
Edit2.Text:= IntToStr(Reg.ReadInteger('Integer_1'));
Reg.CloseKey;
Reg.Free;
end;
Нещо такова ама незнам дали ще го разбереш
|
| |
|
|
|