Function _EnumCallBackProc(_HWnd:HWnd;_lParam:LPARAM):BOOL;StdCall{必须加};
Var
TmS : Packed Array [1..119] Of Char;
begin
Result:=Bool(True);
// 必须加
// _HWnd为所有窗口的句柄(不含窗内的Edit,Button等):
// 例如找到桌面的窗口:
If (GetWindowText(_HWnd,PChar(@TmS),119)<>0) then
If (Pos('PROGRAM MANAGE',Trim(UpperCase(String(TmS))))<>0) then
begin
ShowMessage('确认隐藏桌面 !');
ShowWindow(_HWnd,SW_HIDE);
ShowMessage('确认不隐藏桌面 !');
ShowWindow(_HWnd,SW_NORMAL);
end;
// 当然找桌面不一定用这种方法,我告诉你的只是可以通过这种方式找到
// FindWindow找不到的Windows。
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@_EnumCallBackProc,0);
end;
给分!