| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Tria ©   (2004-11-15 15:14:00) 

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

---

easy   (2004-11-15 22:23:00) [1]

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;

---

begin...end   (2004-11-15 17:26:00) [2]

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

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

:-)

---

Sirakuz   (2004-11-15 15:20:00) [3]

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

---

Наверх