Тема: Ссылки
Показать сообщение отдельно
  #2  
Старый 11.09.2008, 03:36
Аватар для Dux
Dux Dux вне форума
Активный
 
Регистрация: 18.03.2008
Сообщения: 206
Репутация: 16
По умолчанию

В USES необходимо включить модули Registry, Shellapi

Код:
procedure OpenURL(Url: string);
 var
     ts: string;
       begin
          with TRegistry.Create do
             try
               rootkey := HKEY_CLASSES_ROOT;
               OpenKey('\htmlfile\shell\open\command', False);
                 try
                  ts := ReadString('');
                 except
                  ts := '';
                 end;
                 CloseKey;
              finally
              Free;
            end;
        if ts = '' then Exit;
        ts := Copy(ts, Pos('"', ts) + 1, Length(ts));
        ts := Copy(ts, 1, Pos('"', ts) - 1);
       ShellExecute(0, 'open', PChar(ts), PChar(url), nil, SW_SHOW);
     end;

В обработчике событий OnClick компонента Image1 запишем:

Код:
begin
openurl('http://www.site.ru');
end;
Ответить с цитированием