[개발/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;