Форум: "Система";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];
Вниз
Создание отдельной нити, но не простой... Найти похожие ветки
← →
SPeller (2003-05-11 14:24) [0]Всем доброго времени суток!
У меня встала необходимость создать в своей программе нить (Thread), которая будет висеть постоянно и обрабатывать посылаемые из главного потока команды. Слышал я о такой функции, как PostThreadMessage, которая шлёт сообщение потоку и не требует наличия в потоке окна. Так вот, хочу спросить, как мне обустроить получение и обработку таких сообщений отдельным потоком, как заставить поток ждать сообщение (чтобы не загружать процессор циклом), как всё это дело грамотно реализовать. За полезные примеры буду очень благодарен.
← →
Polevi (2003-05-11 19:08) [1]MsgWaitForMultipleObjects
← →
Polevi (2003-05-11 19:22) [2].. или GetMessage
procedure TT.Execute;
var
msg:TMsg;
begin
while not Terminated do
begin
GetMessage(msg,0,0,0);
case msg.message of
WM_QUIT:Terminate;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
t:=TT.Create(false);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
PostThreadMessage(T.ThreadID,WM_QUIT,0,0);
end;
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c