如何获得本机IE路径？ ( 积分: 249 )

如题！

function GetIEAppPath:string;
var
iekey: Hkey;
iename: array [0..255] of char;
vType,dLength WORD;
begin
vType := REG_SZ;
RegOpenKeyEx(HKEY_LOCAL_MACHINE,'Software/Microsoft/Windows/CurrentVersion/App Paths/IEXPLORE.EXE',0,KEY_ALL_ACCESS,iekey);
dLength := SizeOf(iename);
if RegQueryValueEx(iekey, '' , nil, @vType, @iename[0], @dLength) = 0 then
Result := iename
else
Result := 'C:/Program Files/Internet Explorer/IEXPLORE.EXE';
RegCloseKey(iekey);
end;

接受答案了.