Как правильно организовать поток

← →
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]

Вполне.

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

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

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