[marik668]

Напишите пожалуйста код для запуска IE и перехода по заданому URL.

[Vayrus]

Код:

uses
ShellApi;

ShellExecute(0, 'explore', 'http://www.yandex.ru', nil, sw_shownormal);

Сбацал на коленке, могут быть ошибки, ищи в Яндексе описалово функции

[AleD]

"Скиньте пожалуйста 500 руб. на мой кашалёк для удовлетворения ваших запросов. "

[NumLock]

PHP код:

uses
  ShellAPI;

  ShellExecute(Handle, 'open', PChar('http://www.delphisources.ru/forum/showthread.php?t=12202'), nil, nil, SW_SHOW); 


открывает страницу в браузере по умолчанию

[NumLock]

еще пример с TWebBrowser:

PHP код:

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
...

procedure TForm1.FormCreate(Sender: TObject);
var
  document: OleVariant;
begin
  if WebBrowser1.Document=nil then WebBrowser1.Navigate('about:blank');
  while WebBrowser1.Document=nil do Application.ProcessMessages;
  document:=WebBrowser1.Document;
  document.clear;
  document.open;
  document.write('<div>hello</div>');
  document.write('<div>world</div>');
  document.close;
  while WebBrowser1.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.delphisources.ru/forum/showthread.php?t=12202');
end; 


[marik668]

Спасибо разобрался