reg:=tregistry.create;
reg.rootkey:=hkey_classes_root;
if reg.keyexists('http\shell\open\command') then
begin
reg.openkey('http\shell\open\command',false);
result:=reg.readstring('');
end
else
result:='';
reg.free;
end;
2.设置internet浏览器
procedure setdefaultshellhttp(cmdline : string);
var
reg : tregistry;
begin
reg:=tregistry.create;
reg.rootkey:=hkey_classes_root; //注册表的地址：
reg.openkey('http\shell\open\command',true);//注册表的地址：
reg.writestring('',cmdline);
reg.free;
end;
setdefaultshellhttp('"c:\progra~1\intern~1\iexplorer.exe" -nohome');
