| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как правильно организовать поток
Nucer © (2008-01-02 13:53:00)Вот такой код:
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:29:00) [1]К слову - прототип поточной ф-ции выглядит иначе:
function(Param: WinXXPointerСовместимыйТип): WinXXPointerСовместимыйТип
Сергей М. (2008-01-02 14:04:00) [2]Вполне.
| |
