Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.003 c