Скачать: CL | DM;

Как из моей проги открыть html-файл в броузере по-умолчанию?   Найти похожие ветки 

← →
Tria ©   (2004-11-15 15:14) [0]

Имеется в виду в броузере, который установлен по-умолчнаию (стоит  Опера - в Опере)

---

← →
Sirakuz ©   (2004-11-15 15:20) [1]

ShellExecute(HInstance, "Open",PChar("http://www.google.com"),nil,nil,SW_Normal);

---

← →
begin...end ©   (2004-11-15 17:26) [2]

> [1] Sirakuz ©   (15.11.04 15:20)

Во-первых, не SW_Normal, а SW_SHOWNORMAL.
Во-вторых, PChar необязательно.
В-третьих, не "www.google.com", а "www.delphimaster.ru".

:-)

---

← →
easy ©   (2004-11-15 22:23) [3]

uses
 shellapi;

function DefaultBrowser: PChar;
var
 Buffer,Res: array[0..1023] of Char;
begin
 GetTempPath(SizeOf(Buffer), Buffer);
 FileCreate(Buffer + "htmpl.htm");
 FindExecutable("htmpl.htm", Buffer, Res);
 SysUtils.DeleteFile(Buffer + "htmpl.htm");
 Result:=Res;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 shellexecute(0, "open", DefaultBrowser, "http://delphimaster.ru/", "", SW_SHOWNORMAL);
end;

---

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

Скачать: CL | DM;



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