Главная страница
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.026 c
3-1206532972
Xmen
2008-03-26 15:02
2008.09.28
Хранимая процедура. Перевод строки


2-1218898310
Павлик
2008-08-16 18:51
2008.09.28
Поиск записей


15-1217821033
Slider007
2008-08-04 07:37
2008.09.28
С днем рождения ! 4 августа 2008 понедельник


3-1207138799
tomkat
2008-04-02 16:19
2008.09.28
описание UDFS.DLL


2-1218638551
webpauk
2008-08-13 18:42
2008.09.28
Исключить одинаковые поля