unit ThreadListUnit;

interface

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

type
  TThreadListForm = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Panel2: TPanel;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  ThreadListForm: TThreadListForm;

implementation

{$R *.DFM}

//-----------------------------------------------------------------------------
//  EnumThreadWindos関数のコールバック関数
//
//  hWindow : ウィンドウのハンドル
//  lPar    : ユーザ定義の値(EnumThreadWindowsの第3引数)
//-----------------------------------------------------------------------------
function EnumThreadWndProc(hWidow: HWND; lPar : TStringList) : Boolean; stdcall;
var
  Buffer : array[0..MAX_PATH - 1] of Char;
begin
  Result := True;

  FillChar(Buffer, SizeOf(Buffer), #0);
  if GetWindowText(hWidow, Buffer, MAX_PATH) > 0 then begin
    lPar.AddObject(Buffer, TObject(hWidow));
  end;
end;

//=============================================================================
//  列挙開始
//=============================================================================
procedure TThreadListForm.Button1Click(Sender: TObject);
var
  SL : TStringList;
  i  : Integer;
begin
  SL := TStringList.Create;
  try
    EnumThreadWindows(GetCurrentThreadId, Addr(EnumThreadWndProc), LPARAM(SL));
    ListBox1.Clear;

    //自分自身を除いたスレッドをリスト表示
    for i := 0 to SL.Count - 1 do begin
      if Cardinal(SL.Objects[i]) <> Self.Handle then begin
        ListBox1.Items.Add(SL[i]);
      end;
    end;
  finally
    FreeAndNil(SL);
  end;
end;

end.

procedure TplWordFormEx2.Button3Click(Sender: TObject);
begin
  ThreadListForm := TThreadListForm.Create(Self);
  try
    ThreadListForm.ShowModal;
  finally
    FreeAndNil(ThreadListForm);
  end;
end;