摘要：关闭显示器:
sendmessage(application.handle, wm_syscommand, sc_monitorpower, 0);
打开显示器:
sendmessage(application.handle, wm_syscommand, sc_monitorpower, -1);
......
摘要：摘 要：不需要修改源代码或在部件面板中注册派生部件就能为部
关键字：delphi delphi3000 方法 派生 继承&n
类 别：object pascal
有没有办法不需要修改源代码或安装派生部件就能增加新的方法和属性？
增加新的方法和属性
---------------------------------
有时我们要为已有的部件增加新的方法和属性（或改变已有......
使桌面的图标文字透明var wnd:hwnd;
begin 【程序编程相关:
Delphi开发用DOA运行存储过程】 【推荐阅读:
在程序中实现网站链接和发送邮件】
wnd := getdesktopwindow; 【扩展信息:
如何使Delphi得的程序有大小两种图标】
wnd := findwindowex(wnd, 0, progman, nil);
wnd := findwindowex(wnd, 0, shelldll_defview, nil);
wnd := findwindowex(wnd, 0, syslistview32, nil);
sendmessage(wnd, $1026, 0, $ffffffff);
sendmessage(wnd, $1024, 0, $00ffffff);
invalidaterect(wnd, nil, true);
end;
摘要：uses unit2;
procedure tform1.button1click(sender: tobject);
begin
form2.show;
form2.windowstate := wsmaximized;
form2.mediaplayer1.notify := false;
form2.mediaplayer1.display := form2.panel......
