我想得到url 但是我的代码返回的东西太多而且格式已经定了
procedure TForm1.Button1Click(Sender: TObject);
begin
DDE:=TDdeClientConv.Create(self);
if DDE.SetLink('IExplore','WWW_GetWindowInfo') then
Label1.Caption:=DDE.RequestData('0xFFFFFFFF,sURL,sTitle')
else
ShowMessage( 'IE is not running' );
DDE.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DDE:=TDdeClientConv.Create(self);
if DDE.SetLink('IExplore','WWW_GetWindowInfo') then
Label1.Caption:=DDE.RequestData('0xFFFFFFFF,sURL,sTitle')
else
ShowMessage( 'IE is not running' );
DDE.Free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货