在DELPHI中如何将指定的网址加入收藏夹
问题点数：20、回复次数：7Top
1 楼78product（来电显示）回复于 2001-02-24 22:00:00 得分 0
收藏夹在windows目录下，名字是Favorites
您只需要
一、找到系统目录；
二、在目录内做一个指向此地址的快捷方式就可以了；Top
2 楼dana（dana）回复于 2001-02-26 14:44:00 得分 0
可是在DELPHI程序是如何写Top
3 楼TechnoFantasy（（VB MVP）www.applevb.com）回复于 2001-02-26 15:49:00 得分 0
我这里只有VB的代码
www.applevb.comTop
4 楼guowzgyc（Developer）回复于 2001-02-26 15:52:00 得分 15
procedure AddURL(Folder, Url, Title: string);
var
MyUrlFile: TextFile;
begin
if Folder[Length(Folder)] <> '\' then Folder := Folder + '\';
if not DirectoryExists(Folder) then ForceDirectories(Folder);
try
AssignFile(MyUrlFile, Folder + title + '.url');
Rewrite(MyUrlFile);
WriteLn(MyUrlFile, '[InternetShortcut]');
WriteLn(MyUrlFile, 'URL=' + url);
finally
Closefile(MyUrlFile);
end;
end;
Top
5 楼Kingron（单身走我路……）回复于 2001-02-26 15:56:00 得分 5
下面是研究出来的，但是添加到收藏夹的那个函数，我用DLL的方式调用总是出现错误，不知道他的参数是什么。那个IShell_UIHelper总是不对，不知道怎么用（这个是从网络上查找的资料）：
Dll 文件：shdocvw.dll
procedure DoOrganizeFavDlg(h:hwnd;path:pchar);stdcall;external 'shdocvw.dll';
第二个参数指定收藏夹的位置，如果第二个参数为Nil的话，默认IE得收藏夹位置。
AddUrlToFavorites
DoAddToFavDlg
DoAddToFavDlgW
DoFileDownload
DoFileDownloadEx
DoOrganizeFavDlgW
SHAddSubscribeFavorite
SetShellOfflineState
SoftwareUpdateMessageBox
//添加到收藏夹
const
CLSID_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
var
ShellUIHelper: ISHellUIHelper;
url, title: Olevariant;
begin
url:='www.csdn.net'
title:='中国软件'
ShellUIHelper :=CreateComObject(CLSID_SHELLUIHELPER) as IShellUIHelper;
ShellUIHelper.AddFavorite(url, title);
end;
//整理收藏
var
H: HWnd;
p: procedure(Handle: THandle; Path: PChar); stdcall;
begin
H := LoadLibrary(PChar('shdocvw.dll'));
if H <> 0 then
begin
p := GetProcAddress(H, PChar('DoOrganizeFavDlg'));
if Assigned(p) then p(Application.Handle, PChar(favpath));
end;
FreeLibrary(h);
end;
---------
Top
6 楼Chxis（明月夜,古松冈.）回复于 2001-06-05 21:50:00 得分 0
在一个Form中,上述的代码该放在那呢??Top
7 楼Chxis（明月夜,古松冈.）回复于 2001-06-05 21:50:00 得分 0
噢,对不起,搞错了...Top
