Duncon » 04 мар 2007, 09:12
Вообще этот вопрос уже обсуждался раза 3-4, поиск рулит..
Код: Выделить всё
uses
ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'http://godweb.ru/', nil, nil, SW_SHOW);
end;
Вообще этот вопрос уже обсуждался раза 3-4, поиск рулит..
[code]uses
ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'http://godweb.ru/', nil, nil, SW_SHOW);
end;[/code]