Dúvida sobre URLs

Delphi

16/08/2003

Eu tô com uma dúvida, veja:

Como eu faço para que as URLs digitadas no Explorer ou executadas através de algum link sejam abertas através do navegador q eu escolher (o meu, por exemplo)? E mais, como eu faço para que as páginas salvas no Favoritos do Windows (que têm extensão .url) sejam abertas com meu browser?

Infelizmente eu só sei associar os arquivos (extensão com aplicativo)...

Quem me ajudar, agradeço com o nome adicionado ao meu projeto que será divulgado na web, ok?


Stutz

Stutz

Curtidas 0

Respostas

Cebikyn

Cebikyn

16/08/2003

Não posso ajudar com muito, tenho apenas essa função que pega a URL digitada no InternetExplorer:

uses
  ddeman;

function GetURL(Service: string): string;
var
  ClDDE: TDDEClientConv;
  temp: PChar;
begin
  Result := ´´;
  ClDDE := TDDEClientConv.Create(nil);
  with ClDDE do
  begin
    SetLink(Service, ´WWW_GetWindowInfo´);
    temp := RequestData(´0xFFFFFFFF´);
    Result := StrPas(temp);
    StrDispose(temp);
    CloseLink;
  end;
  ClDDE.Free;
end;


Para usar passe como parâmetro [b:7d2f16062a]´IExplorer´[/b:7d2f16062a].

Espero que ajude...


GOSTEI 0
Stutz

Stutz

16/08/2003

Não posso ajudar com muito, tenho apenas essa função que pega a URL digitada no InternetExplorer: 
uses
  ddeman;

function GetURL(Service: string): string;
var
  ClDDE: TDDEClientConv;
  temp: PChar;
begin
  Result := ´´;
  ClDDE := TDDEClientConv.Create(nil);
  with ClDDE do
  begin
    SetLink(Service, ´WWW_GetWindowInfo´);
    temp := RequestData(´0xFFFFFFFF´);
    Result := StrPas(temp);
    StrDispose(temp);
    CloseLink;
  end;
  ClDDE.Free;
end;
Para usar passe como parâmetro [b:59ded44181]´IExplorer´[/b:59ded44181]. Espero que ajude...



Valeu a dica, irmão, mas ainda ñ é isso.
Aquele q puder contribuir, agradeço, ainda espero!


GOSTEI 0
POSTAR