Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как написать в чужом окне [D7, WinXP]

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

Игорь Шевченко (2009-05-19 21:27:00) [1]
BigVovan © (19.05.09 20:19) [14]

Внушаить

BigVovan (2009-05-19 20:19:00) [2]
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.

Кролик-Фролик (2009-05-01 02:53:00) [3]

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

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

Игорь (2009-05-01 02:45:00) [4]
Удалено модератором

Кролик-Фролик (2009-05-01 02:28:00) [5]
Удалено модератором

Германн (2009-05-01 01:34:00) [6]
Удалено модератором

Игорь (2009-04-30 23:44:00) [7]
Удалено модератором

brother (2009-04-30 11:36:00) [8]
> Могло, но не там

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

clickmaker (2009-04-30 11:27:00) [9]
> HNote := FindWindow(nil,PChar('Безымянный - Блокнот'));

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

Anatoly Podgoretsky (2009-04-30 10:15:00) [10]
Кстати, если класс окна не известен, то существуют множество шпионов, чтобы узнать его.

Anatoly Podgoretsky (2009-04-30 10:14:00) [11]
Могло, но не там

brother (2009-04-30 09:55:00) [12]
> Его нет

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

Anatoly Podgoretsky (2009-04-30 09:50:00) [13]
> Deamon_777 (30.04.2009 9:13:00) [0]

Его нет

Deamon_777 (2009-04-30 09:28:00) [14]
Спасибо все получилось )))

Игорь (2009-04-30 09:23:00) [15]
HMemo :=FindWindowEx(HNote, 0, 'Edit',nil);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »