Frage: Ich möchte eine Berechnung über den Windows-Taschenrechner vornehmen und muss dazu diesem die Werte übergeben und am Ende auch das Rechenergebnis auslesen. Wie kann ich aus meiner Delphi-Anwendung heraus den Taschenrechner fernsteuern?

Antwort: Das Windows-Zubehör Taschenrechner (calc.exe) stellt kein COM-Interface für die Automation zur Verfügung, so dass der konventielle Weg über die Windows-Botschaften genutzt werden muss. Das folgende Beispiel demonstriert, wie man den Taschenrechner von Windows für eigene Berechnungen nutzt und das Ergebnis im eigenen Delphi-Programm anzeigt. Die beiden Funktionen AppActivate und SendKeys stammen aus der Unit SNDKEY32.pas, die Borland im Extras-Unterverzeichnis der Delphi-CDROM mit ausliefert. Die Sleep-Aufrufe sollen nur den Ablauf im Taschenrechner visuell nachverfolgbar machen. Der zu suchende Fensterklassen-Name des Eingabefeldes des Taschenrecherns wurde über WinSight32 nachgeschlagen (siehe Abbildung):

uses ShellAPI, SNDKEY32;


procedure TForm1.Button1Click(Sender: TObject);
var
  hCalcWnd : HWND;
  hEditWnd : HWND;
  iBuffLen : Integer;
  pBuffer  : PChar;
begin
  hCalcWnd := FindWindow(nil, 'Rechner');
  AppActivate('Rechner');
  SendKeys('1{+}', True);
  Sleep(500);
  SendKeys('2', True);
  Sleep(500);
  SendKeys('~', True);
  hEditWnd := FindWindowEx(hCalcWnd, 0, PChar('Edit'), nil);
  if hEditWnd <> 0 then
    begin
      iBuffLen := SendMessage(hEditWnd, WM_GETTEXTLENGTH, 0, 0);
      if iBuffLen > 0 then
        begin
          Inc(iBuffLen);
          GetMem(pBuffer, iBuffLen);
          try
            SendMessage(hEditWnd, WM_GETTEXT, iBuffLen, LPARAM(pBuffer));
            StatusBar1.SimpleText := pBuffer;
          finally
            FreeMem(pBuffer);
          end
        end
    end;
end;