천객만래 [千客萬來] (It has an interminable succession of visitors)

'FindWindowEx'에 해당되는 글 1건

  1. 2012.02.07 [개발/delphi] 다른 프로그램 버튼 클릭하기
다른 프로그램 버튼 클릭하기
// in delphi
procedure TForm2.Button1Click(Sender: TObject)
var
hParent: HWND;
hChild: HWND;
begin
hParent := FindWindow('TForm1', nil);
if hParent <> 0 Then
begin
hChild := FindWindowEx(hParent, 0, 'TButton', nil);
if (hChild <> 0) Then
begin
SendMessage(hChild, WM_LBUTTONDOWN, 0, 0);
SendMessage(hChild ,WM_LBUTTONUP, 0, 0);
end;
end;
end;
 
Posted by SB패밀리