procedure TForm1.Button1Click(Sender: TObject);
var
MainWnd, ChildWnd : HWND;
begin
MainWnd := FindWindow('notepad', nil); // 여기까진 테스트 해보면 찾아집니다.
ChildWnd := FindWindowEx( MainWnd, 0, Nil, 'Edit1' ); //여기에 문제가 있는거 같습니다.
Edit1과 Nil의 위치를 바꾸어도 안됩니다.
if (ChildWnd <> 0) then
begin
Showmessage('찾았다')
end;
end;
end.
메모장에 Edit1의 핸들을 구해와야 하는데 안 찾아지네요..
가르침 부탁드리겠습니다.
|