unit1.pas

来自「《Delphi实用程序100例》配套书源码盘」· PAS 代码 · 共 47 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    WindowsNameListBox: TListBox;
    ListButton: TButton;
    procedure ListButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ListButtonClick(Sender: TObject);
var
  hCurrentWindow: HWnd;
  szText: array[0..254] of char;
begin
  WindowsNameListBox.Clear;
  //获取第一个窗口的句柄
  hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST); 
  while hCurrentWindow <> 0 do 
    begin
    //获取窗口的名称
    if GetWindowText(hCurrentWindow, @szText, 255)>0 then
      WindowsNameListBox.Items.Add(StrPas(@szText));
    //获取下一窗口的句柄
    hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);
    end;
end;


end.