При нажатии на кнопку хочу чтоб программа в гарене заходила в комнату, а при нажатии другой - выходила.
Код:
procedure TForm1.btn1Click(Sender: TObject);
var
w_handle:integer;
b_handle:integer;
begin
if FindWindow(nil, 'Garena LAN Game') <>0 then begin
w_handle:= FindWindow(nil, 'Garena LAN Game');
b_handle:= FindWindowEx(w_handle, 0, nil, 'Russia DotA Clanwar Room 01 (1.26a)');
SendMessage(b_handle, wm_LButtondown, 1, 1);
SendMessage(b_handle, wm_LButtonUp, 1, 1);
end;
end;
Вот код, но что-то не получается.