[Кодер]

Короче фич в чом:

Написал процедурку для открытия интернет браузера(стандартного) со страничкой введенной пользователем:

Код:

function DefaultBrowser: string;
var
  Reg: TRegistry;
  regvalue: string;
  i: integer;
begin
  Result := 'iexplore.exe';
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CLASSES_ROOT;
    if Reg.OpenKey('\http\shell\open\command', FALSE) then begin
      if Reg.ValueExists('') then begin
        regvalue := Reg.ReadString('');
        i := pos('.exe', AnsiLowerCase(regvalue));
        if i > 0 then begin
          regvalue := copy(regvalue, 1, i - 1) + '.exe';
          if regvalue[1] = '"' then
            regvalue := copy(regvalue, 2, length(regvalue) - 1);
          Result := regvalue;
        end;
      end;
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;
function OpenUrl(url: string): Cardinal;
begin
  result := ShellExecute(0, 'open', PChar(DefaultBrowser), pchar(url), '', SW_SHOWNORMAL);
end;

не хочет!почему?