請問瀏覽器要如何製做呢? |
|
sanwin
一般會員 發表:20 回覆:60 積分:16 註冊:2002-06-03 發送簡訊給我 |
|
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
Clarinet
高階會員 發表:9 回覆:97 積分:126 註冊:2002-05-08 發送簡訊給我 |
引言: 站長大人.. 我想做到的是與I.E.互相共用我的最愛.. 不知道要怎麼用ㄋ...想找了好久...>_<... 麻煩你了..thanks... chih..與IE共用: const CLSID_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}'; procedure TForm1.AddFavorite; var ShellUIHelper: ISHellUIHelper; url, title: Olevariant; begin Title := Webbrowser1.LocationName; Url := Webbrowser1.LocationUrl; if Url <> '''' then begin ShellUIHelper := CreateComObject(CLSID_SHELLUIHELPER) as IShellUIHelper; ShellUIHelper.AddFavorite(Url, Title); end; end;
------
GPS(全球衛星定位系統) http://www.allgps.com |
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
感謝Clarinet,站長也需要
整理如下: uses shdocvw, OleCtrls,comobj; // 要記得uses這些unit
procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('http://delphi.ktop.com.tw');
end; procedure TForm2.Button1Click(Sender: TObject);
const
CLSID_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
var
ShellUIHelper: ISHellUIHelper;
url, title: Olevariant;
begin
Title := Webbrowser1.LocationName;
Url := Webbrowser1.LocationUrl;
if Url <> '''''''' then
begin
ShellUIHelper := CreateComObject(CLSID_SHELLUIHELPER) as IShellUIHelper;
ShellUIHelper.AddFavorite(Url, Title);
end;
end; 再請教一下,這個辦法可以將URL加入我的最愛,
但如何讀出我的最愛的網址列?
謝謝您! ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~ |
Clarinet
高階會員 發表:9 回覆:97 積分:126 註冊:2002-05-08 發送簡訊給我 |
引言: 再請教一下,這個辦法可以將URL加入我的最愛, 但如何讀出我的最愛的網址列? 謝謝您! ~~~Delphi K.Top討論區站長~~~站長大人: IE的"我的最愛"都是放在一個目錄底下(如:C:\Documents and Settings\
------
GPS(全球衛星定位系統) http://www.allgps.com |
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
引言: 站長大人: IE的"我的最愛"都是放在一個目錄底下(如:C:\Documents and Settings\but在windows 2000下不是存在該目錄喔! 不同的User存在不同目錄! 可能要找出正確的使用目錄位置才行! ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~ |
Clarinet
高階會員 發表:9 回覆:97 積分:126 註冊:2002-05-08 發送簡訊給我 |
引言:上一篇的文字:(如:C:\Documents and Settings\\Favorites) 正確的是在 .....Settings\\Favorites中間的 \\還有一個使用者的名稱目錄。但Post後,可能被系統給吃掉了。因為我是用 "引言: 站長大人: IE的"我的最愛"都是放在一個目錄底下(如:C:\Documents and Settings\but在windows 2000下不是存在該目錄喔! 不同的User存在不同目錄! 可能要找出正確的使用目錄位置才行! ~~~Delphi K.Top討論區站長~~~
------
GPS(全球衛星定位系統) http://www.allgps.com |
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
引言: 上一篇的文字:(如:C:\Documents and Settings\\Favorites) 正確的是在 .....Settings\\Favorites中間的 \\還有一個使用者的名稱目錄。但Post後,可能被系統給吃掉了。因為我是用 "我試出來了,請用以下函式,不同user,win2000/win98都可以喔! //讀取我的最愛的資料夾位置 function GetFavoritePath: String; var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False) then Result :=Reg.ReadString('Favorites'); finally Reg.CloseKey; Reg.Free; End; end;~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~ |
sanwin
一般會員 發表:20 回覆:60 積分:16 註冊:2002-06-03 發送簡訊給我 |
|
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
|
阿子
站務副站長 發表:120 回覆:230 積分:201 註冊:2002-03-18 發送簡訊給我 |
|
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
|
Skyer
高階會員 發表:43 回覆:111 積分:120 註冊:2002-04-04 發送簡訊給我 |
|
阿子
站務副站長 發表:120 回覆:230 積分:201 註冊:2002-03-18 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |