How to catch URL of the browser? (like http://www.yahoo.com) Thank you!

http://www.delphi3000.com/articles/article_2591.asp http://www.delphi3000.com/articles/article_1529.asp http://www.1delphistreet.com/vb/scripts/ShowCode.asp?txtCodeId=211&lngWId=7 --- 每個人都是一本書

Hi Hagar: For first two answers, I tried them before. But I got the URL like ("http://www.yahoo.com","Yahoo") It is not what I want. I want it is extactly like http://www.yahoo.com For third answers, I try it, but I got nothing. Do you have any idea? Thank you!

小弟在網路上看得懂的幾篇 沒看到只取 URL 不取 Title 的 因此處理方式為將回傳結果的字串做處理 程式碼如下:

var
  DdeClientConv: TDdeClientConv;
  Temp: string;
  URL: string;
  Title: string;
begin
   DdeClientConv := TDdeClientConv.Create(self);
   with DdeClientConv do begin
     if SetLink('IExplore', 'WWW_GetWindowInfo')then
       Temp := RequestData('0xFFFFFFFF,sURL,sTitle');
     while Pos('"', Temp) > 0 do
       Delete(Temp, Pos('"', Temp), 1); // 將回傳結果中的雙引號刪除
     // 以逗號為判斷, 將 Temp 分成 URL 與 Title 字串
     URL := Copy(Temp, 1, Pos(',', Temp)-1);
     Title := Copy(Temp, Pos(',', Temp) 1, Length(Temp));
   
     ShowMessage('URL: '   URL);
     ShowMessage('Title: '   Title);
   end;
   DdeClientConv.Free;
end;

--- 每個人都是一本書

Thanks a lot, hagar!