如题
解决方案 »
- Delphi Xe2 开发的程序 莫名其妙的自动关闭
- 一个服务小程序,启动后不运行
- 使用idsmtp组件进行邮件发送遇的问题?大侠帮看看吧
- 汉字拼音首字母搜索功能【急!!!马上结贴】
- 请教:网页内容搜索问题??
- 有几个按钮,怎样在程序里得到当前单击的按钮的caption或name值;
- 怎样做文字的打印和打印预览?
- 分布式开发遇到的数据库存储问题
- 江湖救急!请问各位高手,不知delphi有没有类似VBScript解释执行代码的控件(ScriptCon),或者是方法? 给分啊!!!
- 控件高手帮忙:如何实现属性重的下拉框
- 有没有透明的编辑框??可以任意底色的,就象LABEL一样???回复一定给分!!!!
- 请高手高手高高手指教!
var
curWnd:HWND;pBuffer:pChar;iLength:integer;
begin
curWnd:=getActiveWindow;
If curWnd=0 Then Exit;
iLength:=sendMessage(curWnd,WM_GETTEXTLENGTH,0,0)+1;
getMem(pBuf,iLength);
fillChar(pBuf,iLength,0);
sendMessage(curWnd,WM_GETTEXT,iLength,pBuf);
ResultL=String(pBuf);
freeMem(pBuf)
end;