如何在Window中搜出当前所有的窗体的名字输出到ListBox里面。++

[Jackeystone]

RT,

[「已注销」]

unit CbackF;

interface

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

type
TFormCallback = class(TForm)
ListBox1: TListBox;
Panel1: TPanel;
BtnTitles: TButton;
procedure BtnTitlesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormCallback: TFormCallback;

implementation

{$R *.DFM}

type
EnumWindowsProc = function (Hwnd: THandle;
Param: Pointer): Boolean; stdcall;

function GetTitle (Hwnd: THandle; Param: Pointer): Boolean; stdcall;
var
Text: string;
begin
SetLength (Text, 100);
GetWindowText (Hwnd, PChar (Text), 100);
FormCallBack.ListBox1.Items.Add (
IntToStr (Hwnd) + ': ' + Text);
Result := True;
end;

procedure TFormCallback.BtnTitlesClick(Sender: TObject);
var
EWProc: EnumWindowsProc;
begin
ListBox1.Items.Clear;
EWProc := GetTitle;
EnumWindows (@EWProc, 0);
end;


end.