Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как не занимать время процессора?


С.М. ©   (2002-11-19 15:25:00) 

Уважаемые мастера! Я не программист, поэтому прошу простить если неясно изъясняюсь или задаю глупый вопрос.
Написал такую программку:

program SatellitAPI;
uses
Windows,ShellAPI,SysUtils;
Const
WM_GETTEXT = $000D;
var
h,h1:HWND;
rr: TRect;
Pch: array[0..256] of char;
begin
...
while Pch[0] <> "3" do sendmessage(H,WM_GETTEXT,2,Integer(@Pch));
end.

Всё работает, но у меня есть подозрение что последняя строчка излишне жрет процессорное время подскажите пожалуйста как её изменить, чтоб проверка проходила 5-10 раз в секунду, а в остальное время программка не мешала жить остальным. Не хочется добавлять чего-то в uses.
Заранее благодарен.


С.М.   (2002-11-19 16:01:00) [1]

Спасибо! Да, придется учить матчасть :-)


SPeller   (2002-11-19 16:00:00) [2]

Sleep, SleepEx


MBo   (2002-11-19 15:30:00) [3]

поставь внутри цикла sleep(время)


Наверх

Титульная страница Поиск, карта сайта Написать письмо