Source Code



Get current url

  • anonymous
  • Dec 16' 13
  • Delphi
  • 264
  • 107
  • United States

Use SetLink and RequestData methods of TDDEClientConv type. SetLink specifies the service and topic of a DDE conversation. RequestData requests data from a DDE server.

 

procedure TForm1.Button1Click(Sender: TObject);
var
  DDEClient: TDDEClientConv;
  Str: PChar;
begin
  DDEClient:=TDDEClientConv.Create(nil);
  with DDEClient do
  begin
    SetLink("IExplore","WWW_GetWindowInfo");
    Str:=RequestData("0xFFFFFFFF");
    Caption:=StrPas(Str);
    StrDispose(Str);
  end;
  DDEClient.Free;
end;

 

 

ds

  • Tags : delphi, url
comments powered by Disqus

Related Code

Using WinZip as a backup tool

Upper the first letter of each word

Rotate Font

Access the controls of a TRadioGroup

fairly nominal



Category

Tag Linked