精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Windows API函数>>Re:谁能给一个EnumWindows的例子?

主题:Re:谁能给一个EnumWindows的例子?
发信人: veryman()
整理人: teleme(2001-04-10 19:36:00), 站内信件
在form中建一个button和memo
//button事件
procedure TForm1.Button11Click(Sender: TObject);
begin
memo1.clear;
EnumWindows(@EnumerateWindows,0);
end;

//函数
function EnumerateWindows(hWnd: HWND; lParam: LPARAM): BOOL;stdcall;
var
   TheText: Array[0..255] of char;
begin
if (GetWindowText(hWnd, TheText, 255)<>0) then
        begin
          memo1.lines.Add(Format('%d = %s',[hWnd,TheText]));
        end;
   end;
   Result:=TRUE;
end;

[关闭][返回]