Форум: "Основная";
Текущий архив: 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.44 MB
Время: 0.036 c