открытие url в моем браузере поумолчанию

[fucil]

Суть такова:
Есть ярлык с ссылкой на http://www.google.com или другой сайт неважно
в браузере chrome жму http://joxi.ru/o5iwUv3JTJCqDCq_BEY и результат вот: http://joxi.ru/VZmwUhjKTJCUWLgKU3o если запустить то перейду в хроме по данной ссылке (http://www.google.com)
Далее если в браузере firefox жму http://joxi.ru/pJmwUhjKTJBjW3uSNPE и результат вот: http://joxi.ru/_5mwUv3JTJCtDCIMnr8 если запустить то перейду в firefox по данной ссылке

КАК выше сказаное сделать программно а точнее какие ключи реестра за это отвечают я уже и Process Monitor юзал и как то он мне не помог
все пишут вот эти ключи

HKEY_CLASSES_ROOT\http\shell\open\command
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\http\shell\open\command

HKEY_CLASSES_ROOT\https\shell\open\command
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\https\shell\open\command

HKEY_CLASSES_ROOT\ftp\shell\open\command
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\ftp\shell\open\command

менял в ручную нечего не происходит

смену браузера по умолчанию делаю так:

 procedure TForm1.btn1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CLASSES_ROOT;
if Reg.OpenKey('http\shell\open\command', False) then
begin
Reg.WriteString('','"'+chromePathFolder+"\chrome.exe" -- "%1"');
Reg.CloseKey;
end;
finally
Reg.Free;
end;

После выполнения этого кода в firefox появляется это: http://joxi.ru/TZywUv3JTJD2DGeMMBI следовательно что браузер по умолчанию меняет, но этого мало так как файл ссылка, на рабочем столе не изменилась по виду http://joxi.ru/l5ywUv3JTJALDWEVhMc и при запуске открывается в firefox а нужно что бы открывало в хроме (после выполнения кода)
Как такое реализовать что я упускаю уже 3 часа сижу не могу найти причину !!!

[FaTaL]

Если вы хотите открывать любую ссылку в браузере по умолчанию, то используйте

ShellExecute (Handle, 'open', 'http://ваша ссылка', nil, nil, SW_SHOWMAXIMIZED);

[Fahman]

Сообщение от FaTaL

Если вы хотите открывать любую ссылку в браузере по умолчанию, то используйте

ShellExecute (Handle, 'open', 'http://ваша ссылка', nil, nil, SW_SHOWMAXIMIZED);

Uses
.... ShellAPI;