Buscar por:

Abre a url com o browser padrao (http ou mailto)

Código

//Abre a URL com o browser padrao

Function AcessarURL( wnd: HWND; URL: String ) : boolean ; stdcall;

var

  bRet  : boolean;

  Ret   : Integer;

  sMsg  : String;

begin

  sMsg := '';

  ////////

  //        AcessarURL(Handle, 'http://www.delphi.eti.br');

  //        AcessarURL(Handle, 'mailto:tst@teste.com.br');

  ////////

  bRet := true;

  Ret := ShellExecute(wnd, 'open', PChar(URL), nil, nil, SW_SHOWNORMAL);

  if Ret <= 32 then

  begin

    Case Ret of

      0: sMsg := 'Memória Insuficiente para acessar URL';

      ERROR_FILE_NOT_FOUND: sMsg := 'Endereço URL não encontrado';

      ERROR_PATH_NOT_FOUND: sMsg := 'Diretório não encontrado';

      ERROR_BAD_FORMAT    : sMsg := 'Formato inválido de Arquivo';

    else

      sMsg := 'Erro No.:' + IntToStr(Ret) + ' em AcessarURL';

    end;

    bRet := false;   // MessageBox( wnd, PChar( sMsg ), 'Erro AcessarURL', 0 );

  end;

  Result := bRet;

end;