我有个方法,但是不可以自动刷新!不知道有没有其他方法可以自动刷新的?
解决方案 »
- BrightnessChange(ImageBeforeChange.Picture.Bitmap,ImageAfterChange.Picture.Bitmap,ValueChange)在文什么意思
- DBGridEh 随机选中多行 如何得到选中行某一列的值
- 【Form执行Showmodal后关闭,变量未清除问题】
- SQL Server 数据库多客户端同时写入丢失数据。
- 请教如何把listview1的数据copy到listview2中去嘛
- 关于数据动态更新移动的问题
- 求一SQl语句.....急用
- 关于父窗体和子窗体的问题,请指教
- 怎样从html页面中向ActivXForm传参数,在ActiveXForm中又如何接收?
- 一个关于热键的 简单问题?
- 用程序让机器重起。怎么实现(delphi)?
- 有三个重叠的DBGRID(ALIGN属性为ALCLIENT)放在一个PANEL上,如何在设计期(不是运行期)指定显示其中一个DBGRID?
procedure TForm1.Button1Click(Sender: TObject);
var wnd:HWND;
begin
Wnd := GetDesktopWindow;
Wnd := FindWindowEx(Wnd, 0, 'Progman', 'Program Manager');
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;