怎么得到一个hwnd的name的值。

[Bluekibo]

如：
var
Hnd : THandle;
begin
Hnd := FindWindow(Nil,'Form1');

我怎么根据这个hnd 得到 Form1 的 name 属性的值 是什么？
如果能知道其他属性，当然是最好的了。谢。

[蓝色光芒]

EnumProps,PropEnumProc,具体的用法没有搞过。

[u2m]

楼上得有用吗？我倒是有楼上函数得例子，但没研究过，看来要研究研究.

our callback function prototype}
function EnumWinProps(hWnd: HWND; pString: PChar; Data: THandle): BOOL; stdcall;

var
Form1: TForm1;

implementation

{these steps will be executed for each property
entry in the window's property list}
function EnumWinProps(hWnd: HWND; pString: PChar; Data: THandle): BOOL;
begin
{add the string and associated value to the list box}
Form1.ListBox1.Items.Add(Format('%s=%d',[pString,Data]));

{continue enumeration}
Result:=TRUE;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
{add a new property to the window's property list}
SetProp(Form1.Handle,PChar(Edit1.Text),StrToInt(Edit2.Text));

{clear the edit boxes}
Edit1.Text:='';
Edit2.Text:='';

{clear the list box}
Form1.ListBox1.Items.Clear;

{list all of the properties associated with the window}

EnumProps(Form1.Handle, @EnumWinProps);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
{clear the list box}
Form1.ListBox1.Items.Clear;

{list all of the properties associated with the window}
EnumProps(Form1.Handle, @EnumWinProps);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
{remove the selected property from the property list}

RemoveProp(Form1.Handle,PChar(Copy(ListBox1.Items[ListBox1.ItemIndex],
0,Pos('=',ListBox1.Items[ListBox1.ItemIndex])-1)));

{clear the list box}
Form1.ListBox1.Items.Clear;

{list all of the properties associated with the window}
EnumProps(Form1.Handle, @EnumWinProps);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
Data: THandle; // this stores the property entry data

begin
{get property entry data associated with the given string}
Data:=GetProp(Form1.Handle,PChar(Edit1.Text));

{if there was a property value returned...}
if (Data<>0) then
{...display it...}
Edit2.Text:=IntToStr(Data)
else
{...otherwise display an error message}
Edit2.Text:='No property found.';
end;

[njbudong]

呵呵,楼上的这个办法应该还可以.
不过没有试过.

[xiaozhanger]

有handle了，用 GetWindowText可以吗，

[u2m]

GetWindowText只是得到他的title标题内容

[Bluekibo]

To： u2m(UpToMe)
谢谢，
你那个是得到属性的名称吧，我主要想得到属性对应的值。
有没有办法啊？

[蓝色光芒]

UP

[firetoucher]

用GetTextBuf