Текущий архив: 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