var
reg: Tregistry;{请问以下代码是什么意思?那个朋友能给我解释下?这是我下载了个QQ登陆器的源码,}
begin
reg :=TRegistry.Create;
with reg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if openkey('SOFTWARE\TENCENT\QQ',true) then
QQpath := readstring('Install') ;
free;
end;
end;
reg: Tregistry;{请问以下代码是什么意思?那个朋友能给我解释下?这是我下载了个QQ登陆器的源码,}
begin
reg :=TRegistry.Create;
with reg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if openkey('SOFTWARE\TENCENT\QQ',true) then
QQpath := readstring('Install') ;
free;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货