program SetBk;uses
SysUtils,
Windows,
CommCtrl;var
Hdl: THandle;begin
{ TODO -oUser -cConsole Main : Insert code here }
//First get desktop handle
Hdl:= FindWindow('ProgMan', nil);
Hdl:= GetWindow(Hdl, GW_CHILD);
Hdl:= GetWindow(Hdl, GW_CHILD);
ListView_SetTextBkColor(Hdl, $FFFFFFFF);
ListView_RedrawItems(Hdl, 0, ListView_GetItemCount(Hdl));
end.
SysUtils,
Windows,
CommCtrl;var
Hdl: THandle;begin
{ TODO -oUser -cConsole Main : Insert code here }
//First get desktop handle
Hdl:= FindWindow('ProgMan', nil);
Hdl:= GetWindow(Hdl, GW_CHILD);
Hdl:= GetWindow(Hdl, GW_CHILD);
ListView_SetTextBkColor(Hdl, $FFFFFFFF);
ListView_RedrawItems(Hdl, 0, ListView_GetItemCount(Hdl));
end.
解决方案 »
- 中间层中beforeupdaterecord中如何根据DELTADS与SOURCEDS来生成自已的更新SQL(ADO)?在线
- GIS中最短路径算法问题(MapX + Delphi7)
- ms sql 2000 的备份和恢复
- 如何编写 Photoshop 滤镜?
- 强烈要求FrameSniper版主马上辞去版主职位!!!!!!!
- Delphi7三层关于IntraWeb的问题,一定给分!
- 如何在Delphi程序中调用DLL中的函数?
- 如何通过OLE调用Excel的“另存为“功能?
- 怎样知道dbgrid选择了那一行?
- 窗口的初始化
- 奇怪現象
- com/dcom 程序中服务器端能否向连接的客户端发送自定的信息??? 到底有没有人会??
怎办?