Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.028 c
15-1217578739
Zeqfreed
2008-08-01 12:18
2008.09.28
Интегрированное видео для HDTV


2-1219006228
fog
2008-08-18 00:50
2008.09.28
трудности перевода С


2-1218611450
cvg
2008-08-13 11:10
2008.09.28
Почему некорректно работает frac?


8-1186690843
Spok
2007-08-10 00:20
2008.09.28
как зациклить MediaPlayer?


15-1218179922
Псалтырь
2008-08-08 11:18
2008.09.28
overload для одного только метода