Текущий архив: 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.023 c
