function GetCaption(Handle:HWND); var pBuf:pChar;iLength:integer; begin iLength:=SendMessage(Handle,WM_GETTEXTLENGTH,0,0);//得到长度 Result:=''; if iLength=0 then exit;//如果长度为空则退出 Inc(iLength);//添加一个保留'\0'的字节 GetMem(pBuf,iLength);//申请内存 ZeroMemory(pBuf,iLength);//内存清零 SendMessage(Handle,WM_GETTEXT,iLength,LPARAM(pBuf));//得到文本 Result:=String(pBuf);//返回给函数 FreeMem(pBuf);//清除刚才申请的内存 end;
var pBuf:pChar;iLength:integer;
begin
iLength:=SendMessage(Handle,WM_GETTEXTLENGTH,0,0);//得到长度
Result:='';
if iLength=0 then exit;//如果长度为空则退出
Inc(iLength);//添加一个保留'\0'的字节
GetMem(pBuf,iLength);//申请内存
ZeroMemory(pBuf,iLength);//内存清零
SendMessage(Handle,WM_GETTEXT,iLength,LPARAM(pBuf));//得到文本
Result:=String(pBuf);//返回给函数
FreeMem(pBuf);//清除刚才申请的内存
end;