← →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, заметь.
Блииин... Во туплю... Спасибо!
EnumChildWindows дает только 1й элемент Найти похожие ветки
← →