[criss009]

Как сделать так чтобы при нажатии на кнопке Буттон1 в калкуляторе кликал на кнопке 4 или другу цифру!
Я пытался найти кнопку 4 , но он даже не нашол её

Код:

var s1,s2:HNDW;
begin
s1:=FindWindow(nil ,'Calculator');
s1:=FindWindowEx(s,0,0,'4');
ShowMessage(inttostr(s1));
end;

и s1 равен 0, кто поможет , Windows 7 , Deplhi 7

[FlyInDream]

Я не понял, что должен делать калькулятор, но вот переделка вашего кода:

Код:

uses
  SysUtils, Windows, Dialogs;

var s1,s2:HWND;

begin

begin
s1:=FindWindow(nil ,'Calculator');
s1:=FindWindowEx(s1,0,'Button','4');
ShowMessage(inttostr(s1));
end;
end.

[marales]

Я так понял, нужно при нажатии кнопки появлялась цифра 4 на дисплее калькулятора (edit), то можно таким способ, создается переменная строка, и в неё записывается цифра, единственное чтоб её вытащить оттуда нужно перевести из строки в число.

Код:

var s: string;// гллобальную переменную

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=s+'4';//при нажатии присваиваем переменной s ='4'
// при послед. нажатии s='44' и т.д.
form1.edit.text:=s;//отображаем что находится в переменной s
end;
// вытащить цифры можно с помощью strtoint(s); strtofloat(S) и т.д.

а если нужно имитировать нажатие кнопки, например в стандартном калькуляторе то используй
PressingKeyboard(VK_RETURN,0) // нажатие клавиши enter с клавиатуры (vk_return)