我用delphi調用計算器，但我怎樣在程序中取得該結果呢。

[ggltechggl]

我用這個語句調用計算器 shellexecute(0,'open','calc.exe',nil,nil,SW_Normal);但是我怎樣在delphi程序中取得該計算器的結果呢。(我想做一個按鈕，點擊按鈕即可以取得該計算器結果，而不用手輸入）

謝謝各位！

[ggltechggl]

謝謝ICMGDCHN(广东人在广州->喜欢明月) ，已結貼.

[hellolongbin]

强，学习

[mastersky]

自己做个计算器

[zhangzhihui528]

那要看有没有接口了

[lamshy]

DevExpress QuantumGrid 内就有一个现成的计算器控件。

[ICMGDCHN]

好像没接口,不过可以用取窗口内容的方法实现.

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;