摘要:
uses ShellAPI,Registry;var reg: TRegistry; s: String;begin reg := TRegistry.Create; reg.RootKey := HKEY_CLASSES_ROOT; reg.OpenKey('HTTP\Shell\open\command',False); s := reg.ReadString('');//读取注册表的值 如:"D:\Program Files\Maxthon3\Bin\Maxthon.exe" "%1" s := Copy(s,Pos 阅读全文