Cделай пример для калкулятора:
Код:
procedure TForm1.btn1Click(Sender: TObject );
var
cwnd , Wnd: HWND;
begin
Wnd:=FindWindow(nil, 'Calculator');
ShowWindow(Findwindow(nil,'Calculator'),SW_RESTORE);
end;
можеш отсюда проболжать чтобы он нажал на кнопку "4"