[criss009]

ПРивет всем , как сделать чтобы при нажатии на кнопке btn1
Открылось окна скайп которое в статус minimized , написал сообщение "Privet" и нажмал на кнопке 'отправить cообщение' контакту(id-у) : Adryano(adrian99016)
заранее спасибо

[angvelem]

Ищещь по FindWindow Скайп, затем дочернее окно для ввода информации - посылаешь сообщение с нужным текстом, затем кнопку - посылаешь сообщении о нажатии.

[criss009]

Сообщение от angvelem

Ищещь по FindWindow Скайп, затем дочернее окно для ввода информации - посылаешь сообщение с нужным текстом, затем кнопку - посылаешь сообщении о нажатии.

можеш показать как найти кнопку и как нажать на нёё!

[lmikle]

вообще-то, это можно сделать просто через COM-интерфейс скайпа. Просто импортни соотв. объект и пользуй. Делал - работало.

[criss009]

Нет . скайп был простым примером!

[angvelem]

Примерно так:

Код:

function EnumChildProc(WndCtrl : HWND; lParam : Longint) : Boolean; stdcall;
var
  szClass	: array[Byte] of Char;
begin
  GetClassName(WndCtrl, szClass, SizeOf(szClass));
  if (lstrcmpi(szClass, 'BUTTON') = 0) then
  begin
    SendMessage(hWndCtrl, WM_COMMAND, 0, hWndCtrl);
  end;
  Result := True;
end;

//----------------------------------------------------------

procedure EnumChild(Wnd : HWND);
begin
  if (not EnumChildWindows(Wnd, @EnumChildProc, 0)) then
    Exit;
end;

[criss009]

Cделай пример для калкулятора:

Код:

procedure TForm1.btn1Click(Sender: TObject );
var
  cwnd , Wnd: HWND;
begin
Wnd:=FindWindow(nil, 'Calculator');
ShowWindow(Findwindow(nil,'Calculator'),SW_RESTORE);

end;

можеш отсюда проболжать чтобы он нажал на кнопку "4"

[angvelem]

Примерно так, но напрямую в Edit:

Код:

var
  Wnd  : HWND;

function EnumChildProc(WndCtrl : HWND; lParam : Longint) : Boolean; stdcall;
var
  szClass : array[Byte] of Char;
  Buffer  : array[Byte] of Char;
  St      : String;
begin
  GetClassName(WndCtrl, szClass, SizeOf(szClass));
  // Это через кнопку
  if (lstrcmpi(szClass, 'BUTTON') = 0) then
  begin
    SendMessage(WndCtrl, WM_GETTEXT, SizeOf(Buffer), Longint(@Buffer));
    if Buffer[0] <> #0 then
    begin
      St := Buffer;
      if St = '4' then
        SendMessage(WndCtrl, WM_COMMAND, 0, WndCtrl);
    end;
  end
  // Напрямую в Edit
  else if (lstrcmpi(szClass, 'EDIT') = 0) then
  begin
    St := '4';
    SendMessage(WndCtrl, WM_SETTEXT, 0, Longint(PChar(St)))
  end;
  Result := True;
end;

//----------------------------------------------------------

procedure EnumChild(Wnd : HWND);
begin
  if (not EnumChildWindows(Wnd, @EnumChildProc, 0)) then
    Exit;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  Wnd: HWND;
begin
  Wnd := FindWindow(NIL, 'Калькулятор');
  if Wnd <> 0 then
  begin
    ShowWindow(Wnd, SW_RESTORE);

    if not EnumChildWindows(Wnd, @EnumChildProc, 0) then
    begin
      Exit;
    end;
  end;
end;

Подправил, теперь 2 варианта, выбирай подходящий.