Главная » Delphi » Интернет и сети » Определить WebBrowser по умолчанию 3

Определить WebBrowser по умолчанию 3

14:19

function GetDefBrowser: string;
var
Reg: TRegistry;
tempstr: string;
begin
Result := '';
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CLASSES_ROOT;
if Reg.OpenKey('\http\shell\open\command', FALSE) then
if Reg.ValueExists('') then
tempstr := Reg.ReadString('');
tempstr := copy(tempstr, 0, length(tempstr) -
length(extractfileext(tempstr))) + '.exe';
if copy(tempstr, 1, 1) = '"' then
tempstr := copy(tempstr, 2, length(tempstr) - 1);
result := tempstr;
Reg.CloseKey;
finally
Reg.Free;
end;
end;