Форум программистов [Powered by Invision Power Board]

Цитата(X-Vlad @ 5.5.2006, 10:47

)

поле readonly

Цитата

подзразумевается поле Edit или место в памяти?

Код


procedure TForm2.btn1Click(Sender: TObject);
var
  h1, h2: hwnd;
begin
  h1 := FindWindow('TForm1', nil);
  h2 := FindWindowEx(h1, 0, 'TMemo', 0);
  SendMessage(h2, WM_ENABLE, 1, 0);
  EnableWindow(h2, true);

  Memo1.SelectAll;
  Memo1.CopyToClipboard;
  SendMessage(h2, WM_PASTE, 0, 0);

  SendMessage(h2, WM_ENABLE, 0, 0);
  EnableWindow(h2, false);
end;

Цитата

Я надеюсь как найти имя класса окна чужого приложения
и его Child а знаете...

Код


var
  Pt: TPoint;
begin
  GetCursorPos(Pt);
  Caption := IntToStr(WindowFromPoint(Pt));

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls;

type
  TMainForm = class(TForm)
    TreeView1: TTreeView;
    procedure FormCreate(Sender: TObject);
    procedure Sys_Windows_Tree(Node: TTreeNode; AHandle: HWND);
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

////////////////////////////////////////////////////////////////////////////////
//
//  Стартовая функция, запускаем рекуссию используя хэндл рабочего стола
//

procedure TMainForm.FormCreate(Sender: TObject);
var
  StartHandle : THandle;
begin 
  StartHandle := GetDeskTopWindow;
  Sys_Windows_Tree(nil, StartHandle);
end;

////////////////////////////////////////////////////////////////////////////////
//
//  Рекурсивная функция, строит дерево всех открытых окон, кнопок, едитов и т.д.
//  В качестве входных данных получает узел дерева и Хэндл окна
//

procedure TMainForm.Sys_Windows_Tree(Node: TTreeNode; AHandle: HWND);
const
  MAX = 128;
var
  szClassName, szCaption: array[0..MAX - 1] of Char;
  Result    : String;
  szFileName : array[0..255] of Char;
  PID, TID: Cardinal;
  szLayoutName: array[0..MAX - 1] of Char;
begin
  //Запускаем цикл пока не закончатся окна
  while AHandle <> 0 do
  begin
    //Получаем имя класса окна
    GetClassName(AHandle, szClassName, MAX);
    //Получаем текст (Его Caption) окна
    GetWindowText(AHandle, szCaption, MAX);
    // Получаем имя модуля
    if GetwindowModuleFilename(AHandle, szFileName, SizeOf(szFileName)) = 0 then
      FillChar(szFileName, 256, #0);
    // ID потока и процесса
    TID := GetWindowThreadProcessId(AHandle, PID);
    // языковую раскладку процесса
    AttachThreadInput(GetCurrentThreadId, TID, True);
    VerLanguageName(GetKeyboardLayout(TID) and $FFFF, szLayoutName, MAX);
    AttachThreadInput(GetCurrentThreadId, TID, False);

    Result := Format('%s [%s] Caption = %s, Handle = %d, PID = %d, Layout = %s',
      [String(szClassName), String(szFileName), String(szCaption),
      AHandle, PID, String(szLayoutName)]);

    //В следующей процедуре, в скобках, добавляем результат
    //в дерево, получаем хэндл дочернего окна и с результатами
    //выполнения этих двух функций выполняем процедуру Sys_Windows_Tree
    Sys_Windows_Tree(TreeView1.Items.AddChild(Node, Result),
      GetWindow(AHandle, GW_CHILD));
    //Получаем хэндл следующего (не дочернего) окна
    AHandle := GetNextWindow(AHandle, GW_HWNDNEXT);
    //Handle := 0;
  end;
end; 


end.

Цитата

procedure TForm2.btn1Click(Sender: TObject);
var
  h1, h2: hwnd;
begin
  h1 := FindWindow('TForm1', nil);
  h2 := FindWindowEx(h1, 0, 'TMemo', 0);
  SendMessage(h2, WM_ENABLE, 1, 0);
  EnableWindow(h2, true);

  Memo1.SelectAll;
  Memo1.CopyToClipboard;
  SendMessage(h2, WM_PASTE, 0, 0);

  SendMessage(h2, WM_ENABLE, 0, 0);
  EnableWindow(h2, false);
end;

Цитата(X-Vlad @ 5.5.2006, 13:04

)

Как мне выбрать эдит?

Цитата

h2 := FindWindowEx(h1, 0, 'TMemo', 0);

Цитата(alexeis1 @ 5.5.2006, 11:20

)

если их болше то нужно использовать
h2 := FindWindowEx(h1, 0, 'TMemo', 'Заголовок нужного edita');

Цитата

1)Поле Class - это класс окна
2)Поле Caption, заголовок - можно написать вместо nil(0) в
FindWindow
FindWindowEx

Цитата(alexeis1 @ 5.5.2006, 11:56

)

я же писал, Spy++ дает данные:

Цитата

1)Поле Class - это класс окна
2)Поле Caption, заголовок - можно написать вместо nil(0) в
FindWindow
FindWindowEx

Код


var
  wnd: HWND;
  caption: string;
begin
  repeat
    SetLength(caption, GetWindowtextLength(wnd));
    GetWindowText(wnd, @caption[1], length(caption) + 1);

    if (trim(caption) = 'Form caption') then
      ClickOnForm(wnd, 'Button name');
    wnd := GetNextWindow(wnd, GW_HWNDNEXT);
  until wnd = 0;

Код


procedure FillAllEdits(const AppCaptionName, Value: String);
var
  szClassName: array[0..MAXCHAR - 1] of Char;
  AHandle: THandle;
  ClassName: String;
begin
  AHandle := FindWindow(nil, PChar(AppCaptionName));
  if AHandle = 0 then
  begin
    ShowMessage('Application not found.');
    Exit;
  end;
  AHandle := GetWindow(AHandle, GW_CHILD);
  repeat
    GetClassName(AHandle, szClassName, MAXCHAR);
    ClassName := String(CharUpper(@szClassName[0]));
    if (ClassName = 'EDIT') or (ClassName = 'TEDIT') then
      SendMessage(AHandle, WM_SETTEXT, 0, Integer(@Value[1]));
    AHandle := GetNextWindow(AHandle, GW_HWNDNEXT);
  until AHandle = 0;
end;

procedure TForm13.Button1Click(Sender: TObject);
begin
  FillAllEdits('Form13', 'qwe');
end;