我有个方法,但是不可以自动刷新!不知道有没有其他方法可以自动刷新的?
解决方案 »
- 怎样实现在按下鼠标时改变光标的形状?
- 四年经验中专程序员找工作。请大家多多支持。
- 如何做一个软件的试用版本,功能完全开放,但有n天时间限制
- DLL 里面的函数怎么互相调用啊?
- 如何在fastreport分组中解决占比的问题
- 请教大家在线期待ing.
- 如何在的Delphi中把一文件压缩,并存盘
- Are you asking about app size? (by Delphi for Android)
- 怎么进行设计开发一个新的组件!
- 如何取得一个文本框所在背景的颜色,并赋给文本框的color,让其看上去只有文字,没有边框
- 用程序让机器重起。怎么实现(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;