[eXplorer]

Как узнать имя объекта в чужом окне... например(TEdit)?
Если известен только текст?
Тока нинадо меня посылать в гугл я там был

[Aristarh Dark]

Имя не как не узнаешь. Можешь узнать хендл.

[eXplorer]

...
вобщем у меня такая проблема
я ищу едит в чужом окне... но их там много я незнаю как именно обратиться в нужный едит...

Код:

var
s:PChar;
h:HWnd;
begin
s:='text';
h:=FindWindow(nil, 'Program');
h:=FindWindowEx(h, 0, 'TEdit', nil);
SendMessage(h, WM_SEtTEXT, 0, integer(s))
end;

можно ли узнать:

Код:

h:=FindWindowEx(h, 0, 'TEdit', 'как можно узнать это?');

...

[NumLock]

HWND WINAPI CreateWindow(
__in_opt LPCTSTR lpClassName,
__in_opt LPCTSTR lpWindowName,
__in DWORD dwStyle,
__in int x,
__in int y,
__in int nWidth,
__in int nHeight,
__in_opt HWND hWndParent,
__in_opt HMENU hMenu,
__in_opt HINSTANCE hInstance,
__in_opt LPVOID lpParam
);

Parameters
lpClassName [in, optional]
LPCTSTR

A null-terminated string or a class atom created by a previous call to the RegisterClass or RegisterClassEx function. The atom must be in the low-order word of lpClassName; the high-order word must be zero. If lpClassName is a string, it specifies the window class name. The class name can be any name registered with RegisterClass or RegisterClassEx, provided that the module that registers the class is also the module that creates the window. The class name can also be any of the predefined system class names. For a list of system class names, see the Remarks section.

lpWindowName [in, optional]
LPCTSTR

The window name. If the window style specifies a title bar, the window title pointed to by lpWindowName is displayed in the title bar. When using CreateWindow to create controls, such as buttons, check boxes, and static controls, use lpWindowName to specify the text of the control. When creating a static control with the SS_ICON style, use lpWindowName to specify the icon name or identifier. To specify an identifier, use the syntax "#num".

[NumLock]

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  h: THandle;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  h:=CreateWindow('EDIT', 'bla', WS_CHILD, 10, 10, 100, 20, Handle, 0, HInstance, nil);
  // lpWindowName: PChar = bla
  ShowWindow(h, SW_SHOW);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  buf: array [0..$ff] of Char;
  l: Integer;
begin
  l:=GetWindowText(h, buf, $100);
  Edit1.Text:=Copy(buf, 1, l); // = bla
end;

end.

[eXplorer]

что то я нифига не понял

[NumLock]

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

что то я нифига не понял

а чего тут не понятного? значение lpWindowName для EDIT'а будет редактируемый текст в нем.

[eXplorer]

Да я просто непонимаю... может я сегодня не выспался просто...
я хочу узнать последний параметр функции FindWindowEx(h, 0, 'TEdit', nil);
чтобы обратиться к нужному edit'у в чужом окне 'program'...

я ни когда не пользовался функцией:

Код:

h:=CreateWindow('EDIT', 'bla', WS_CHILD, 10, 10, 100, 20, Handle, 0, HInstance, nil);
  // lpWindowName: PChar = bla

незнаю что делать. у меня выше приведенный вами код создаёт на своей же форме что походее на label... но я как понял это edit... и в edit1 размещённый у меня на форме копирует текст созданного едита... просто немогу понять как это с чужим окном связать?

[NumLock]

ну вот смотри пример:
нажатие на Button1 удалит именно Edit2. тогда как несколько нажатий на Button2 удалят вообще все Edit"ы. т.е. чтобы найти нужный один Edit нужно в FindWindowEx передать его класс и текст, который в нем сидит:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  h: THandle;
begin
  h:=FindWindowEx(Handle, 0, 'TEdit', 'Edit2');
  if h<>0 then DestroyWindow(h);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  h: THandle;
begin
  h:=FindWindowEx(Handle, 0, 'TEdit', nil);
  if h<>0 then DestroyWindow(h);
end;

end.

http://data.cod.ru/72124