掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
処理の流れを一時停止するには？ (ID：24579)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
処理の一時停止の件を教えて頂けませんか。 環境はWindows XP Delphi6 Personalです。 スライドショーを作成しています。 スペースバーを押されるまで待機して、押されたら次のファイルを表示するようにしています。 これでも動くのですが、待機中ＣＰＵ使用率を見ると１００％で気になります。 キーを押されるまで処理の流れを停止しておく何か他の方法はないかと調べたらコンソールアプリで Readln;の例がありましたが、 コンソールアプリでないのでI/Oエラー６がでます。 よろしくお願いいたします。 repeat ImageDisp(ListBox1.Items[ListNo]);//指定した画像ファイルを表示する ・・ ・・ Sleep(400); //チャタリング防止 //スペースキーを押されるまで待っている while (GetAsyncKeyState(VK_SPACE) = 0) do begin Application.ProcessMessages; if GetAsyncKeyState(VK_ESCAPE)<>0 then begin SlideStop:=true;break;end;//ESCキーが押されたら終了 end; ・・ if GetAsyncKeyState(VK_SPACE) <> 0 then ListNo:=ListNo+1; //スペースキーなら次の画像ファイルを指定 ・・ until SlideStop=true;//終了フラグで抜け出す。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.