Не могу найти Handle Edit'а в окне чужой программы

[Domovoy]

Заработало с того что он сделал так FindWindowEx(h,0,0,'');
указав пустоту

[mihali4]

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

Заработало с того что он сделал так FindWindowEx(h,0,0,'');
указав пустоту

Это - несерьезно. Давайте все-таки разберемся с поиском по имени класса объекта. Почему не получается, хотя в винапишном хэлпе все подробно прописано?
Модераторы, подключайтесь! На вас смотрит весь форум!

[_Dmitry]

Получилось после замены nil на имя класса
h:=FindWindow('TForm1','Form1');

[mihali4]

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

Получилось после замены nil на имя класса
h:=FindWindow('TForm1','Form1');

Немного не по теме. Этот вопрос решен. Вопрос в FindWindowEx по имени класса.

[_Dmitry]

Этот код загоняет текст в Edit калькулятора Windows XP

procedure TForm1.Button1Click(Sender: TObject);
var h,sh: integer;
begin
h:=FindWindow('SciCalc','Калькулятор');
Label1.Caption:=IntToStr(h);
sh:=FindWindowEx(h,0,'Edit',0);
Label2.Caption:=IntToSTr(sh);
SendMessage(sh,WM_SETTEXT,0,LParam(PChar('MyText222')));
Application.ProcessMessages;
end;

Имена и классы определял с помощью InqSoft

[mihali4]

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

Этот код загоняет текст в Edit калькулятора Windows XP
Имена и классы определял с помощью InqSoft

Почитайте мои посты, сделайте по ним парочку простейших формочек и... ваш фокус не пройдет.
Более того, при указании и имени класса, и имени окна даже окно не находится!

[nechto]

Я имел ввиду, что ваш код работает спасибо огромное, а вот мой код не работает.

[Stilet]

Более того, при указании и имени класса, и имени окна даже окно не находится!

Да, я тоже столкнулся с этим феноменом, и не понял почему...
Перешел на Enum'ы и проблема исчезла...

[nechto]

Уважаемый, Stilet, а не моглы бы вы привести пример кода с использованием EnumWindow, потому, что у меня 7Delphi его не понимает.

[Stilet]

Могу:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure ListBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
       function enumWindow_Crtfox_Enum(h:THandle;l:integer):boolean; stdcall;
       function enumCWindow(h:THandle;l:integer):boolean; stdcall;
    function WindowCaption(wind:hwnd=0):string;
 function WindowClass(wind:hwnd):string;

var  a:array of hwnd;
  Form1: TForm1;

implementation

{$R *.dfm}
        //********** FUNCTION **********
 function WindowClass;
 var Nm:Array[0..255] of Char;
 begin
    nm:='';
    GetClassName(Wind,Nm,sizeof(nm)); // ñ÷èòûâàåì  òåêñò çàãîëîâêà îêíà
    result:=string(nm);
 end;
 //********** END FUNCTION ******

 //********** FUNCTION **********
 function WindowCaption;
 var Nm:Array[0..255] of Char;
 begin
    if wind =0 then wind:=GetForegroundWindow; 
    GetWindowText(Wind,Nm,sizeof(nm)); // ñ÷èòûâàåì  òåêñò çàãîëîâêà îêíà
    result:=string(nm);
 end;
 //********** END FUNCTION ******

  function enumWindow_Crtfox_Enum;
   var i:integer;
   begin
    result:=true;
    Form1.ListBox1.Items.Add(WindowCaption(h)+' ('+WindowClass(h)+')');
    SetLength(a,length(a)+1);
   EnumChildWindows(h,@enumCWindow,0);
    i:=length(a);
    a[i-1]:=h;
   end;

  function enumCWindow;
   begin
    result:=true;
    Form1.ListBox1.Items.Add('|-----'+WindowCaption(h)+' ('+WindowClass(h)+')');
   end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  ListBox2.Items.Clear;
  EnumChildWindows(a[ListBox1.ItemIndex],@enumCWindow,0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
      EnumWindows(@enumWindow_Crtfox_Enum,0);
end;

end.

потому, что у меня 7Delphi его не понимает

Странное Делфи, наверное на для винды...