Question

delphi 怎么用鼠标获取任意窗体标题

Answer 1

var
lpCaption:array[Byte] of Char; //字符缓冲变量
p:TPoint;
hWd:HWND;
begin
GetCursorPos(p); //取当前鼠标指针位置
hWd := WindowFromPoint(p); //取当前鼠标指针位置句柄
GetWindowText(hWd, lpCaption, 255); //获取当前鼠标指针位置文本
end;

追问

我要获取的是窗体标题的字，你怎么获取的是数字呀

追答

。。。。这哪里是数字啊，这取的当前窗口的标题。。。。汗

取得的标题保存在 lpCaption 这个变量中的

追问

可是我获取的并不是字，而是数字

追答

这就不知道你的了

Answer 2

这个要做鼠标勾子了,朝这方面努力吧

追问

获取句柄都不需要钩子 窗体标题需要？

Answer 3

什么意思，不太懂，form.ico