//  ---> вызов Web-узла из программы --------------------------------------------
 
//      вызывать ExploreWeb (Application.Handle, 'http://www.myweb.ru/main.htm')

procedure ExploreWeb(Handle :HWND ;  //Handle приложения
                     Page   :PChar); //Наименование страницы для вызова
var
  ReturnValue   : integer;
begin
  ReturnValue := ShellExecute (Handle, 'open', Page, nil, nil, SW_SHOWNORMAL);
  if ReturnValue <=  32  then
    case ReturnValue of
       0                    : MessageBox (Handle, 'Ошибка: Недостаточно памяти'          , 'Ошибка модуля Service процедуры ExploreWeb',  0 );
      ERROR_FILE_NOT_FOUND: MessageBox (Handle, 'Ошибка: Файл отсутствует'             , 'Ошибка модуля Explore процедуры ExploreWeb',  0 );
      ERROR_PATH_NOT_FOUND: MessageBox (Handle, 'Ошибка: Директорий отсутствует'       , 'Ошибка модуля Explore процедуры ExploreWeb',  0 );
      ERROR_BAD_FORMAT    : MessageBox (Handle, 'Ошибка: Некорректный формат EXE-файла', 'Ошибка модуля Explore процедуры ExploreWeb',  0 );
      else                  MessageBox (Handle, PChar('Ошибка №: ' + IntToStr (ReturnValue) + ' in ShellExecute'), 'Ошибка модуля Explore процедуры ExploreWeb', 0 )
    end;
end;