Форум: "Начинающим";
Текущий архив: 2007.03.18;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.039 c