引言： Dll 文件：shdocvw.dll
procedure DoOrganizeFavDlg(h:hwnd;path:pchar);stdcall;external shdocvw.dll;
第二个参数指定收藏夹的位置，如果第二个参数为Nil的话，默认IE得收藏夹位置。
摘要：var wnd:hwnd;
begin
wnd := getdesktopwindow;
wnd := findwindowex(wnd, 0, progman, nil);
wnd := findwindowex(wnd, 0, shelldll_defview, nil);
wnd := findwindowex(wnd, 0, syslistview32, nil);
......
摘要：关闭显示器:
sendmessage(application.handle, wm_syscommand, sc_monitorpower, 0);
打开显示器:
sendmessage(application.handle, wm_syscommand, sc_monitorpower, -1);
......
收藏夹函数 dll 文件:shdocvw.dll
procedure doorganizefavdlg(h:hwnd;path:pchar);stdcall;external shdocvw.dll; 【程序编程相关:
Delphi中设置默认打印机】 【推荐阅读:
获取打印机队列的状态信息】
第二个参数指定收藏夹的位置,如果第二个参数为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 ...
下一页 摘要：摘 要：不需要修改源代码或在部件面板中注册派生部件就能为部
关键字：delphi delphi3000 方法 派生 继承&n
类 别：object pascal
有没有办法不需要修改源代码或安装派生部件就能增加新的方法和属性？
增加新的方法和属性
---------------------------------
有时我们要为已有的部件增加新的方法和属性（或改变已有......
