如何在Delphi中实现删除IE地址栏中的地址！

Question

Function GetURL(H:hwnd;lparam:longint):boolean;stdcall;
var str,url:array [0..254] of char;
  begin
    getclassname(h,@str,255);
    if strpas(@str)='Edit' then // ComboBoxEx32可以改成Edit.
      begin
      SendMessage(h,WM_SETTEXT,255,longint(pchar(''))); //Delete Address String
      form1.ListBox1.Items.Add(strpas(@url));
      end;
      result:=true;
  end;
function callbackproc(H:HWnd;lparam:longint):Boolean;stdcall;
var str:array [1..255] of char;
  begin
  getclassname(h,@str,255);
  if ((strpas(@str)='CabinetWClass') or (strpas(@str)='IEFrame')) then
      begin
        Enumchildwindows(h,@GetURL,0);
      end;
      result:=true;
  end;procedure TForm1.findbuttonClick(Sender: TObject);
begin
    listbox1.Clear;
    Enumwindows(@callbackproc,0);
end;

Answer 1

还是楼上的好。//uses DDEManprocedure TForm1.Button1Click(Sender: TObject);
var
  DDE: TDdeClientConv;
begin
  DDE := TDdeClientConv.Create(self);
  if DDE.SetLink('IExplore','WWW_OpenURL' ) then
    if DDE.RequestData( ',,1' )<>nil then
        ShowMessage( 'OK!' );
  DDE.Free;