5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
fhuibo 2003-08-28
- 打赏
- 举报
应该是
firstshine 2003-08-28
- 打赏
- 举报
var
Reg:TRegistry;
sVersion:String;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\Microsoft\Internet Explorer', True) then
begin
sVersion:=Reg.ReadString('Version');
ShowMessage(sVersion);
Reg.CloseKey;
end;
finally
Reg.Free;
end;
Reg:TRegistry;
sVersion:String;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\Microsoft\Internet Explorer', True) then
begin
sVersion:=Reg.ReadString('Version');
ShowMessage(sVersion);
Reg.CloseKey;
end;
finally
Reg.Free;
end;
