如何使用 rad studio 显示 windows 的总数?
How to show total number of windows using rad studio?
我在我的 cpp 文件中尝试下面的代码,它给我错误:
[bcc32 Error] Unit1.cpp(15): E2031 Cannot cast from 'int (stdcall * (_closure )(HWND *,long))(HWND__ *,long)' to 'int (stdcall *)(HWND *,long)'
我做错了什么?
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
BOOL WINAPI EnumWindows((WNDENUMPROC) EnumWinProc, NULL);
}
BOOL CALLBACK EnumWinProc(HWND hwnd, LPARAM lParam)
{
char title[80];
GetWindowText(hwnd,title,sizeof(title));
Listbox1->Items->Add(title);
return TRUE;
}
输了BOOL WINAPI
。您正在尝试调用一个函数,而不是声明一个函数。
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
EnumWindows((WNDENUMPROC) EnumWinProc, NULL);
}
此外,丢失不必要的 (WNDENUMPROC)
转换。你的回调函数应该有正确的签名,如果没有,你想知道。
您所展示的不可能是您的真实代码。首先,您用于 EnumWindows()
的语法是错误的,不会按原样编译。其次,错误是抱怨转换 __closure
,这意味着您正在尝试使用非静态 class 方法作为回调(您不能这样做),但是在您显示的代码。
这是代码应该的样子:
class TForm1 : public TForm
{
__published:
TListBox *ListBox1;
...
private:
static BOOL CALLBACK EnumWinProc(HWND hwnd, LPARAM lParam);
...
public:
__fastcall TForm1(TComponent* Owner);
...
};
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
EnumWindows(&EnumWinProc, reinterpret_cast<LPARAM>(this));
}
BOOL CALLBACK TForm1::EnumWinProc(HWND hwnd, LPARAM lParam)
{
TCHAR title[80];
if (GetWindowText(hwnd, title, 80))
reinterpret_cast<TForm1*>(lParam)->ListBox1->Items->Add(title);
return TRUE;
}
或者:
// Note: NOT a member of the TForm1 class...
BOOL CALLBACK EnumWinProc(HWND hwnd, LPARAM lParam)
{
TCHAR title[80];
if (GetWindowText(hwnd, title, 80))
reinterpret_cast<TStrings*>(lParam)->Add(title);
return TRUE;
}
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
EnumWindows(&EnumWinProc, reinterpret_cast<LPARAM>(ListBox1->Items));
}
我在我的 cpp 文件中尝试下面的代码,它给我错误:
[bcc32 Error] Unit1.cpp(15): E2031 Cannot cast from 'int (stdcall * (_closure )(HWND *,long))(HWND__ *,long)' to 'int (stdcall *)(HWND *,long)'
我做错了什么?
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
BOOL WINAPI EnumWindows((WNDENUMPROC) EnumWinProc, NULL);
}
BOOL CALLBACK EnumWinProc(HWND hwnd, LPARAM lParam)
{
char title[80];
GetWindowText(hwnd,title,sizeof(title));
Listbox1->Items->Add(title);
return TRUE;
}
输了BOOL WINAPI
。您正在尝试调用一个函数,而不是声明一个函数。
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
EnumWindows((WNDENUMPROC) EnumWinProc, NULL);
}
此外,丢失不必要的 (WNDENUMPROC)
转换。你的回调函数应该有正确的签名,如果没有,你想知道。
您所展示的不可能是您的真实代码。首先,您用于 EnumWindows()
的语法是错误的,不会按原样编译。其次,错误是抱怨转换 __closure
,这意味着您正在尝试使用非静态 class 方法作为回调(您不能这样做),但是在您显示的代码。
这是代码应该的样子:
class TForm1 : public TForm
{
__published:
TListBox *ListBox1;
...
private:
static BOOL CALLBACK EnumWinProc(HWND hwnd, LPARAM lParam);
...
public:
__fastcall TForm1(TComponent* Owner);
...
};
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
EnumWindows(&EnumWinProc, reinterpret_cast<LPARAM>(this));
}
BOOL CALLBACK TForm1::EnumWinProc(HWND hwnd, LPARAM lParam)
{
TCHAR title[80];
if (GetWindowText(hwnd, title, 80))
reinterpret_cast<TForm1*>(lParam)->ListBox1->Items->Add(title);
return TRUE;
}
或者:
// Note: NOT a member of the TForm1 class...
BOOL CALLBACK EnumWinProc(HWND hwnd, LPARAM lParam)
{
TCHAR title[80];
if (GetWindowText(hwnd, title, 80))
reinterpret_cast<TStrings*>(lParam)->Add(title);
return TRUE;
}
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
EnumWindows(&EnumWinProc, reinterpret_cast<LPARAM>(ListBox1->Items));
}