URLを取得するには？

解決

みゆ 2002-12-13 17:11:57 No: 2331 IP: 192.*.*.*

いつもお世話になってます！DdeClientConvで，ブラウザからURLを取得したいと考えています。ネットで調べて以下のコードを書いたのですがうまくいきません。
Button1を押したら，TWebBrowserで表示しているURLを，Edit1.textに表示。
procedure TForm1.Button1Click(Sender: TObject);
const Browser='WebBrowser1';
var
DDE:TDDECLientConv;
TempChar:PChar;
url:string;
intPos:integer;
begin
DDE:=TDDEClientConv.Create(nil);
with DDE do
begin
  if SetLink(Browser,'WWW_GetWindowInfo') then
   begin
    TempChar:=RequestData('0xFFFFFFFF');
    url:=StrPas(TempChar);
    intPos:=Pos(',',url);
    url:=Copy(url,2,intPos-3);
    Edit1.Text:=url;
    StrDispose(TempChar);
    CloseLink;
   end;
end;
DDE.Free;
end;
どうすればいいのでしょうか？どなたか教えて下さいm(_ _)m

編集削除

にしの 2002-12-13 18:16:25 No: 2332 IP: 192.*.*.*

'WebBrowser1'にはDDEサーバ機能はありますか？
それとも、もしかして'WebBrowser1'はコンポーネントのことを行っているのでしょうか。
# この記述だと、外部アプリケーションとのDDE接続でURLを取得するようになっています

編集削除

みゆ 2002-12-13 18:27:29 No: 2333 IP: 192.*.*.*

コンポーネントです。
WebBrowserコンポーネントからURLを取得したいのですが，
これは，やり方がまた違うのですか？

編集削除

にしの 2002-12-13 18:35:12 No: 2334 IP: 192.*.*.*

LocationURLプロパティで取得できます。

編集削除

みゆ 2002-12-13 20:52:50 No: 2335 IP: 192.*.*.*

ありがとうございました！出来ました！！
なんかかなり複雑なことしてたみたいですね(^^;
お世話になりました。

編集削除