[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 варианта, выбирай подходящий.

[criss009]

чтото он ругаеться

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;




  procedure btn1click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    Wnd  : HWND;
implementation

{$R *.dfm}



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

procedure TForm1.btn1click(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;




end.

[angvelem]

Вот архив:

[criss009]

restore работает а вот написать не хочет
У тя 7?

[angvelem]

Проверял на Дельфи 7 и 2009 + XP.
архив с exe-шником.