Armazenar URL
Como faço para armazenar a URL Digitada na tele do Internet explorer?
Ex: Digito ´http://www.algumacoisa.com.br´, eu gostaria de armazenar em um Banco de Dados ou em um Txt
Obrigado desde já !
Julien :D
Ex: Digito ´http://www.algumacoisa.com.br´, eu gostaria de armazenar em um Banco de Dados ou em um Txt
Obrigado desde já !
Julien :D
Julien
Curtidas 0
Respostas
Leanribas
06/07/2004
vc pode fazer assim:
uses ddeman;
function GetURL(Service: string): String;
var
ClDDE: TDDEClientConv;
temp:PChar;
begin
Result := ´´;
//create a new DDE Client object
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetURL(´IExplore´));
end;
uses ddeman;
function GetURL(Service: string): String;
var
ClDDE: TDDEClientConv;
temp:PChar;
begin
Result := ´´;
//create a new DDE Client object
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetURL(´IExplore´));
end;
GOSTEI 0
Julien
06/07/2004
:shock: :shock: :shock: :shock:
:lol: :lol: :lol:
Valeu Cara !!! Funciona !!!!
Julien :wink:
:lol: :lol: :lol:
Valeu Cara !!! Funciona !!!!
Julien :wink:
GOSTEI 0