我用delphi調用計算器,但我怎樣在程序中取得該結果呢。 我用這個語句調用計算器 shellexecute(0,'open','calc.exe',nil,nil,SW_Normal);但是我怎樣在delphi程序中取得該計算器的結果呢。(我想做一個按鈕,點擊按鈕即可以取得該計算器結果,而不用手輸入) 謝謝各位! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 DevExpress QuantumGrid 内就有一个现成的计算器控件。 好像没接口,不过可以用取窗口内容的方法实现.var calcHwnd:Hwnd; childHwnd:Hwnd; buff:pchar;begin calcHwnd:=FindWindow(nil,'计算器'); childHwnd:=FindWindowEx(calcHwnd,0,'static',nil); GetMem(buff,256); GetWindowText(childHwnd,buff,256); showmessage(buff); freeMem(buff);end; 謝謝ICMGDCHN(广东人在广州->喜欢明月) ,已結貼. delphi dbExpress MSSQL 需要的文件 大家都来说说,公司里有什么辅助型的软件,是可以提高工作效率的? 写了个查询时间为什么不执行 如何把一个打印报表转化为文档保存? 如何让网站页面检索出一个结果返回给delphi程序,具体请看 如何读写局域网内的另一台电脑上的数据库文件 如何添加,修改,删除,查询记录?! midas组件好不好用?难吗? 谁帮我说说override的具体用法?详细点的书上介绍的太简单看了还是不清楚! 请教高手,在程序中,网络安全方面的设置怎么设置?? spcomm 肯请各位大侠帮忙解决一下SQL语句问题?
calcHwnd:Hwnd;
childHwnd:Hwnd;
buff:pchar;
begin
calcHwnd:=FindWindow(nil,'计算器');
childHwnd:=FindWindowEx(calcHwnd,0,'static',nil); GetMem(buff,256);
GetWindowText(childHwnd,buff,256);
showmessage(buff);
freeMem(buff);
end;