var
reg:TRegistry;
str1:string;
begin
Reg:=TRegistry.Create;
Reg.RootKey :=HKEY_LOCAL_MACHINE;
try
Reg.OpenKey('SoftWare\aa',false);
str1:=Reg.ReadString(''); //设为空就行了,不是空格
finally
reg.CloseKey ;
reg.Free ;
end;
edit1.Text :=str1;
end;
reg:TRegistry;
str1:string;
begin
Reg:=TRegistry.Create;
Reg.RootKey :=HKEY_LOCAL_MACHINE;
try
Reg.OpenKey('SoftWare\aa',false);
str1:=Reg.ReadString(''); //设为空就行了,不是空格
finally
reg.CloseKey ;
reg.Free ;
end;
edit1.Text :=str1;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货