发信人: 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; |
|