[criss009]

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

[angvelem]

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

[criss009]

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

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

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

[lmikle]

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

[criss009]

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

[angvelem]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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делай пример для калкулятора:

Код:

1 2 3 4 5 6 7 8

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

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

[angvelem]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

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-шником.