Текущий архив: 2007.03.18;
Скачать: CL | DM;

Вниз

Незавершающееся консольное приложение.   Найти похожие ветки 

← →
ezorcist   (2007-02-26 20:25) [0]

program Project1;
{$APPTYPE CONSOLE}
uses  windows;
var msg:TMsg;
begin
 While (GetMessage(msg,HInstance,0,0)) do begin
   translatemessage(msg);
   dispatchmessage(msg);
 end;
end.

На моем компе это потребляет весь процессор... Подскажите в чем дело?

---

← →
SlymRO   (2007-02-27 07:42) [1]

While (GetMessage(msg,0,0,0)) do begin

---

Страницы: 1 вся ветка

Текущий архив: 2007.03.18;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.072 c