首先新建工程,然后添加一个ListBox和一个Button在implementation下面写 function MyWindows(Hwnd:Longint;Wparam:longint):longint;stdcall; var WindowText:Pchar; TextAndHwnd:string; begin GetMem(WindowText,255); GetWindowText(Hwnd,WindowText,255); if Length(WindowText)<>0 then begin TextAndHwnd:=WindowText +'--'+inttostr(Hwnd); //ShowWindow(Hwnd,SW_SHOW);//该句为显示窗口 Form1.ListBox1.Items.Add(TextAndHwnd); end; Result :=1; end;在Button点击事件中写 EnumWindows(@MyWindows,0);这个时候运行,你就可以看到所有窗口了,然后把ShowWindow(Hwnd,SW_SHOW)前面的注释去掉,就可以显示所有窗口了,不过在运行之前保存你所有的操作,因为桌面上窗口太多了:)祝你成功!
ShowWindow(Handle,SW_SHOW);//显示窗体
ShowWindow(Handle,SW_HIDE);//隐藏窗体
Handle是你得到的程序窗口句柄!
function MyWindows(Hwnd:Longint;Wparam:longint):longint;stdcall;
var WindowText:Pchar;
TextAndHwnd:string;
begin
GetMem(WindowText,255);
GetWindowText(Hwnd,WindowText,255);
if Length(WindowText)<>0 then
begin
TextAndHwnd:=WindowText +'--'+inttostr(Hwnd);
//ShowWindow(Hwnd,SW_SHOW);//该句为显示窗口
Form1.ListBox1.Items.Add(TextAndHwnd);
end;
Result :=1;
end;在Button点击事件中写
EnumWindows(@MyWindows,0);这个时候运行,你就可以看到所有窗口了,然后把ShowWindow(Hwnd,SW_SHOW)前面的注释去掉,就可以显示所有窗口了,不过在运行之前保存你所有的操作,因为桌面上窗口太多了:)祝你成功!