천객만래 [千客萬來] (It has an interminable succession of visitors)
다른 프로그램 버튼 클릭하기
// 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패밀리

댓글을 달아 주세요