掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスのx方向、y方向の移動量dx、dyを検知して操作するには？ (ID：28046)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ino668 さん >どうやらフリーズ（暴走）してしまっているようです。 本題と関係あるかどうかは別として， Button1ClickのHook := から下の行をコメントアウトして実行してみて下さい． それでも同じ現象となるでしょうか． procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Self.Handle,'open', PChar('Notepad.exe'), nil, nil,SW_SHOW); while True do begin TargetWnd := FindWindow('NotePad',nil); if TargetWnd<>0 then break; Application.ProcessMessages; end; // ここを無効に(実行させないように)する // Hook := SetWindowsHookEx(WH_JOURNALRECORD,Addr(JournalRecordProc), // hInstance,0); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.