Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2015.10.25;
Скачать: CL | DM;

Вниз

EnumChildWindows дает только 1й элемент   Найти похожие ветки 

 
IceBeerg ©   (2014-05-26 16:41) [0]

function GetChieldWindow(ChWHD:HWND;Param:LongInt):LongBool;stdcall;
var
 Str:PChar;
begin
 GetMem(Str,256);
 If ChWHD<>0 Then
    Begin
     GetWindowText(ChWHD,Str,255);
     if Length(Str)>0 Then Form1.Memo1.Lines.Add(SysToUTF8(Str));
     GetClassName(ChWHD,Str,255);
     if Length(Str)>0 Then Form1.Memo1.Lines.Add(SysToUTF8(Str));
    end;
 FreeMem(Str,256);
end;

procedure TForm1.Button1Click(Sender:TObject);
var
 WND:HWND;
begin
 WND:=FindWindow(PChar("Notepad"),PChar(UTF8ToSys("Безымянный - Блокнот")));
 If WND<>0 Then
    Begin
     EnumChildWindows(WND,@GetChieldWindow,0);
    end;
end;

В Memo1 только Edit и все. Почему нет остального?


 
RWolf ©   (2014-05-26 16:46) [1]

function GetChieldWindow(ChWHD:HWND;Param:LongInt):LongBool;stdcall;

function, заметь.


 
IceBeerg ©   (2014-05-26 16:50) [2]


> RWolf ©   (26.05.14 16:46) [1]
> function GetChieldWindow(ChWHD:HWND;Param:LongInt):LongBool;
> stdcall;
>
> function, заметь.

Блииин... Во туплю... Спасибо!



Страницы: 1 вся ветка

Текущий архив: 2015.10.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.005 c
4-1273744194
StriderMan
2010-05-13 13:49
2015.10.25
Ввод с клавиатуры в неактивное окно


15-1426018967
Jeer
2015-03-10 23:22
2015.10.25
Приглашаю друзей..


15-1426491623
patrick1968
2015-03-16 10:40
2015.10.25
Не работает команда


11-1260545241
tippa
2009-12-11 18:27
2015.10.25
побайтно записать файл из массива


2-1399966822
Black777
2014-05-13 11:40
2015.10.25
Подсчет людей с видео.