将下面delphi代码转换为bcb代码。
实现桌面图标透明的代码如下,如何翻译为bcb代码。主要是后面三行代码:
HWND Wnd;
Wnd = GetDesktopWindow;
Wnd = FindWindowEx(Wnd, 0, "Progman", NULL);
Wnd = FindWindowEx(Wnd, 0, "SHELLDLL_DefView", NULL);
Wnd = FindWindowEx(Wnd, 0, "SysListView32",NULL);
SendMessage(Wnd, $1026, 0, $ffffffff); //this
SendMessage(Wnd, $1024, 0, $00ffffff);
InvalidateRect(Wnd,NULL, true);
问题点数:40、回复次数:8Top
1 楼cker(〖烟波浩淼三千里、人鬼殊途五百年〗)回复于 2002-03-29 19:47:21 得分 30
HWND hWnd;
hWnd = GetDesktopWindow();
hWnd = FindWindowEx(hWnd, 0, "Progman", NULL);
hWnd = FindWindowEx(hWnd, 0, "SHELLDLL_DefView", NULL);
hWnd = FindWindowEx(hWnd, 0, "SysListView32",NULL);
SendMessage(hWnd, 0x1026, 0, 0xffffffff); //this
SendMessage(hWnd, 0x1024, 0, 0x00ffffff);
InvalidateRect(hWnd,NULL, true);
Top
2 楼FallenAngel(发愣的安琪儿)回复于 2002-03-29 22:28:41 得分 0
好像一半是VC++,一半才是Delphi吗?Top
3 楼skycrying(浮尘)回复于 2002-03-30 09:10:51 得分 0
Delphi,c++Builder本来就很像。Top
4 楼skycrying(浮尘)回复于 2002-03-30 09:12:16 得分 0
你这段Delphi程序是连续的吗?如果是,那我就看不懂了。Top
5 楼CyberUFO(天地幽浮)回复于 2002-03-30 11:36:42 得分 5
其实就是改 $nnn -> 0xnnn 而已。
Top
6 楼cker(〖烟波浩淼三千里、人鬼殊途五百年〗)回复于 2002-03-30 16:50:20 得分 0
呵呵,放在button的onclick事件中试试啊Top
7 楼lya_lya(元元)回复于 2002-03-30 17:09:18 得分 5
关键在$和0x 。
是delphi 和bcb表示16进际数的标记。Top
8 楼tonnyli(晓风残月)回复于 2002-04-02 19:17:45 得分 0
我先试试,回头给各位加分。呵呵。Top




