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

Question

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

Answer 1

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

Answer 2

好像没接口,不过可以用取窗口内容的方法实现.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;
  

Answer 3

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