大虾给指点一下吧！！调了N个小时了！一个回调函数！

[bluecyclone]

unit.h声明

public: // User declarations
bool __fastcall EnumWindowProc(HWND Wnd, LPARAM lParam);

unit.cpp

bool __fastcall EnumWindowProc(HWND Wnd, LPARAM lParam)
{
char temp[255];
GetWindowText(Wnd, temp, 255);
Form1->ListBox1->Items->Add(IntToStr(Wnd)+":"+temp);
return true;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
EnumWindows((WNDENUMPROC)&EnumWindowProc, 0);
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
EnumWindows((WNDENUMPROC)&EnumWindowProc, 0);
}

编译错误：
[C++ Error] Unit1.cpp(28): E2031 Cannot cast from 'bool (_fastcall * (_closure )(void *,long))(void *,long)' to 'int (__stdcall *)()'

我实在找不到哪里错了！那位大虾给指点一下！我刚开始学BCB!

[bluecyclone]

顶！

[柯本]

你的程序不错!除非 bool __fastcall EnumWindowProc(HWND Wnd, LPARAM lParam);
是在TForm1中定义的

[test7979]

错误不是说得很清楚了吗,你的函数必须声明成

bool __stdcall EnumWindowProc(HWND Wnd, LPARAM lParam);

而不是 __fastcall (关系到函数参数的压栈呢!!)

[sprewellkobe]

bool __fastcall TForm1::EnumWindowProc(HWND Wnd, LPARAM lParam)
{
char temp[255];
GetWindowText(Wnd, temp, 255);
Form1->ListBox1->Items->Add(IntToStr(Wnd)+":"+temp);
return true;
}

[柯本]

我把程序在BCB6+WIN2K下试了,没问题

[bluecyclone]

感谢！！！！！！！！
哎~能不能说明一下，为什么非要在cpp里定义呢？

[bluecyclone]

unit.cpp
bool CALLBACK EnumWindowProc(HWND Wnd, LPARAM lParam)
//----------------------------------------------------------
bool CALLBACK EnumWindowProc(HWND Wnd, LPARAM lParam)
{
char temp[255];
GetWindowText(Wnd, temp, 255);
Form1->ListBox1->Items->Add(IntToStr(Wnd)+":"+temp);
return true;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
EnumWindows((WNDENUMPROC)&EnumWindowProc, 0);
}

多谢了！~我已经搞定了！