При нажатии на кнопку хочу чтоб программа в гарене заходила в комнату, а при нажатии другой - выходила.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 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;
|
Вот код, но что-то не получается.
02.05.2012, 22:29
Проблемка с winapi
Древовидный вид