Как написать в чужом окне

← →
Deamon_777 © (2009-04-30 09:13) [0]

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

← →
Игорь © (2009-04-30 09:23) [1]

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

← →
Deamon_777 © (2009-04-30 09:28) [2]

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

← →
Anatoly Podgoretsky © (2009-04-30 09:50) [3]

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

Его нет

← →
brother © (2009-04-30 09:55) [4]

> Его нет

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

← →
Anatoly Podgoretsky © (2009-04-30 10:14) [5]

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

← →
Anatoly Podgoretsky © (2009-04-30 10:15) [6]

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

← →
clickmaker © (2009-04-30 11:27) [7]

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

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

← →
brother © (2009-04-30 11:36) [8]

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

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

← →
Игорь © (2009-04-30 23:44) [9]

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

← →
Германн © (2009-05-01 01:34) [10]

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

← →
Кролик-Фролик (2009-05-01 02:28) [11]

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

← →
Кролик-Фролик (2009-05-01 02:53) [13]

> Игорь © (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.

Как написать в чужом окне Найти похожие ветки