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

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

Загрузка процессора

Artem_ ©   (2004-12-21 15:38:00) 

Есть консольная программа. Во время віполнения занимает 100% загрузки ЦП. Может кто порекомендует как исправить?

program pause;

{$APPTYPE CONSOLE}

uses
 SysUtils, Messages, Windows;

var
 i, id: Integer;
 inpHnd: THandle;
 Wr: DWORD;
 Mess: TMsg;
 IR: TInputRecord;

procedure OnTimer;
var
 c: _COORD;
 OutHwnd: THandle;
 Buf: Array[0..28] of Char;
 str1, str2: String;
 j, m, s: Integer;
begin
OutHwnd := GetStdHandle(STD_OUTPUT_HANDLE);
c.X := 1; c.Y := 1;
m := i div 60;
s := i mod 60;
str2 := IntToStr(m);
while Length(str2)

---

Artem_   (2004-12-21 15:48:00) [1]

Спасибо, помогло :)

---

Jay1982   (2004-12-21 15:46:00) [2]

Попробуй вставить задержку в цикл, Sleep(100), например

---

Jay1982   (2004-12-21 15:45:00) [3]

Попробуй вставить задержку в цикл, Sleep(100), например

---

Наверх