Код нажатия кнопки и установки или снятия метки CheckBox в другом приложении

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Bramus

// Для приложений написанных на Delphi — TCheckBox, TButton, TBitBtn,

// для других языков — CheckBox, Button, BitBtn.

// Нажатие на кнопку:

procedure TForm1.Button1Click(Sender: TObject);

var

h1, h2: hwnd;

begin

h1 := FindWindow(‘tform2’, nil);

h2 := FindWindowEx(h1, 0, ‘TBitBtn’, ‘

Добавить комментарий