вообщем посмотрел я твой код, не все понял, какойто он большой для автокликера. я хотел сделать чето очень уж простое, вот вообщем че я накалякал: procedure TForm1.Timer1Timer(Sender: TObject); var hWnd:THANDLE; begin hWnd:= FindWindow(nil,"World of Warcraft"); SendMessage(hWnd, wm_char, ord("w"), 0); end; ток один косяк, в варике клавиша не нажимается. или может и нажимается но действий никаких не происходит
Ссылка на пост
27 янв 2011 в 18:02
Хендл можно получить так:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
CrPos:TPoint;
hWnd: THandle;
aName: array [0..255] of Char;
begin
CrPos.X:=X;
CrPos.Y:=Y;
hWnd:=WindowFromPoint(CrPos);
if Boolean(GetClassName(hWnd, aName, 256)) then
begin
Form1.Caption:=string(aName)
end else
Form1.Caption:="Нет";
end;