GARANTIR DESCONTO

Fórum Dúvida sobre URLs #175423

16/08/2003

0

Delphi

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

Responder

Posts

16/08/2003

Cebikyn

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...


Responder

Gostei + 0

17/08/2003

Stutz

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!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar