Здравствуйте!
У меня не получается найти компонент Memo в программе  Notepad.exe
Делаю это вот так:
HNote := FindWindow(nil,PChar('Безымянный - Блокнот'));
HMemo :=FindWindowEx(HNote, 0, 'TMemo',nil);
Подскажите, как можно найти это окно?

HMemo :=FindWindowEx(HNote, 0, 'Edit',nil);

Спасибо все получилось )))

> Deamon_777  (30.04.2009 9:13:00)  [0]

Его нет

> Его нет

и быть не могло ;)

Могло, но не там

Кстати, если класс окна не известен, то существуют множество шпионов, чтобы узнать его.

> HNote := FindWindow(nil,PChar('Безымянный - Блокнот'));

на не русской винде не будет работать

> Могло, но не там

я именно про "там" говорил

Удалено модератором

Удалено модератором

Удалено модератором

Удалено модератором

> Игорь ©   (01.05.09 02:45) [12]

я верил в вашу бескорыстную помощь
так оно и есть
слава Игорю Зоркову, программисту и диагносту!

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   Timer1: TTimer;
   GroupBox1: TGroupBox;
   GroupBox2: TGroupBox;
   Label1: TLabel;
   GroupBox3: TGroupBox;
   Label2: TLabel;
   Label3: TLabel;
   Label4: TLabel;
   procedure Timer1Timer(Sender: TObject);
 private
   { Private declarations }
 public
   procedure WndProc(var Message: TMessage); override;
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
var
 PosMouse: TPoint;
 WinMouse:HWnd;
 NameWin:Pchar;
begin
GetCursorPos(PosMouse);
Label1.Caption:=FloatToStr(PosMouse.X);
Label2.Caption:=FloatToStr(PosMouse.Y);
WinMouse:=WindowFromPoint(PosMouse);
if GetClassName(WinMouse, NameWin,20)<>0 then
Label3.Caption:=NameWin else Label3.Caption:='N';
end;

procedure TForm1.WndProc(var Message: TMessage);
begin
 Label4.Caption:=FloatToStr(Message.Msg);
 inherited;
end;

end.

BigVovan ©   (19.05.09 20:19) [14]

Внушаить