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

Вниз

Как правильно организовать поток   Найти похожие ветки 

← →
Nucer   (2008-01-02 13:53) [0]

Вот такой код:
procedure MyThread;
var
dc:HDC;
s:string;
begin
dc:=GetDC(0);
while true do
begin
sleep(1000);
s:=TimeToStr(now);
TextOut(dc,0,0,PChar(s),length(s));
end;
end;

BeginThread(nil, 0, @MyThread, nil, 0, tid);

Если я хочу, чтобы поток работал до того момента, пока не будет завершена моя программа, как я должен организовать цикл? While True - подходит?

---

← →
Сергей М. ©   (2008-01-02 14:04) [1]

Вполне.

---

← →
Сергей М. ©   (2008-01-02 14:29) [2]

К слову - прототип поточной ф-ции выглядит иначе:

function(Param: WinXXPointerСовместимыйТип): WinXXPointerСовместимыйТип

---

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

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

Наверх

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