Delphi相談室(中級者以上)その12
■ このスレッドは過去ログ倉庫に格納されています
0463427
NGNGUWSCというソフトをご存知でしょうか?↓
http://www.vector.co.jp/soft/win95/util/se115105.html
このソフトはマウスやキーボードの動きを記録して
再生することができるんですが
マウスクリックはどうやって実現されているのかがわからないんです。
マウスを動かすことまではできたんですが、よろしくお願いします。
どうやったかは以下のソースのようにしました。
procedure TForm1.Button5Click(Sender: TObject);
var
hCalc: HWND;
Rect: TRect;
begin
hCalc := FindWindow(nil, '電卓');
GetWIndowRect(hCalc,Rect);
SetCursorPos(Rect.Left+23,Rect.Top+79);
sleep(3000);
sendmessageA(hCalc, WM_LBUTTONDOWN, 0, 0);
sleep(10);
sendmessageA(hCalc, WM_LBUTTONUP, 0, 0);
end;
サンプル的に電卓の16進数のラジオボタンをクリックするようにしてみたんです。
なにがだめなんでしょうか?
■ このスレッドは過去ログ倉庫に格納されています