...... var DDE:TDdeClientConv; //DDE為客戶端全局變量 implementation {$R *.DFM} //創(chuàng)建窗體時創(chuàng)建DDE客戶端 procedure TForm1.FormCreate(Sender: TObject); begin DDE:=TDdeClientConv.Create(Self); end; //單擊Open IE啟動默認瀏覽器并自動打開指定的網(wǎng)頁(若IE不是默認瀏覽器，需手工打開) procedure TForm1.Button3Click(Sender: TObject); begin //調用ShellExecute打開默認瀏覽器，將窗口模式設為SW_SHOWNORMAL ShellExecute(Handle,nil,PChar(''http://www.chinaren.com/index.shtml''),nil,nil,SW_SHOWNORMAL); end; //單擊Get URL按鈕獲取IE地址欄URL以及對應窗口標題 procedure TForm1.Button1Click(Sender: TObject); begin //設置會話連接成功 if DDE.SetLink(''Iexplore'', ''WWW_GetWindowInfo'') then begin DDE.OpenLink; //返回信息并在組件Edit1中顯示 Edit1.Text:=DDE.QequestData(''-1''); DDE.CloseLink; end else ShowMessage(''IE沒在運行''); end; //單擊Open URL按鈕鏈接到指定網(wǎng)頁 procedure TForm1.Button2Click(Sender: TObject); begin if DDE.SetLink(''Iexplore'', ''WWW_ OpenURL'') then begin //鏈接到指定Web頁 DDE.OpenLink; DDE.RequestData(Edit2.Text); DDE.CloseLink; end else ShowMessage(''IE沒在運行''); end; //單擊Activate IE按鈕激活最近打開的IE窗口 procedure TForm1.Button4Click(Sender: TObject); begin if DDE.SetLink(''Iexplore'', ''WWW_Activate'') then begin DDE.OpenLink; DDE.RequestData(''-1''); DDE.CloseLink; end else ShowMessage(''IE沒有運行''); end; //單擊Close IE按鈕關閉最近打開的IE窗口 procedure TForm1.Button5Click(Sender: TObject); begin if DDE.SetLink(''Iexplore'', ''WWW_Exit'') then begin DDE.OpenLink; DDE.RequestData(''WWW_Exit''); DDE.CloseLink; end else ShowMessage(''IE沒有運行''); end.
