Форум: "Основная";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Вниз

Как из Delphi открыть страницу Internet в НОВОМ окне браузера?   Найти похожие ветки 

← →
AlexV   (2004-10-04 08:33) [0]

Здравствуйте!
Скажите, пожалуйста,
как из Delphi открыть страницу Internet в НОВОМ окне установленного по-умолчанию браузера?

---

← →
easy ©   (2004-10-04 12:34) [1]

procedure TForm1.Button1Click(Sender: TObject);
 function GetDefaultBrowser: string;
 var
   tmp: PChar;
   res: PChar;
 begin
   tmp := StrAlloc(255);
   res := StrAlloc(255);
   try
     GetTempPath(255, tmp);
     FileCreate(tmp + "htmpl.htm");
     FindExecutable("htmpl.htm", tmp, Res);
     Result := res;
     SysUtils.DeleteFile(tmp + "htmpl.htm");
   finally
     StrDispose(tmp);
     StrDispose(res);
   end;
 end;
begin
 shellexecute(0, "open", pchar(GetDefaultBrowser), "http://delphimaster.ru", "", SW_SHOWNORMAL);
end;

---

← →
AlexV   (2004-10-04 12:56) [2]

Огромное спасибо!

---

← →
ilnarab   (2004-10-04 13:19) [3]

В Uses добавляеш shellapi,
на OnClick кнопки
ShellExecute(0, "open", "http://youside.ru", "", "", SW_SHOW);

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.039 c