Lenguaje de programación Borland Delphi
Este truco obtiene la web y el título de la misma. Sólo es válido para Internet Explorer.
Listado del programa completo:
unit Unit1;
interface
uses
Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DDEMan;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
DDE:TDDEClientConv;
begin
DDE:=TDDEClientConv.Create(self);
if DDE.SetLink('IExplore','WWW_GetWindowInfo') then
Memo1.Lines.Add(DDE.RequestData('0xFFFFFFFF,sURL,sTitle'));
DDE.Free;
end;
Publicado el: 2003-09-19