завершение потока приводит к зависанию

← →
redlord (2004-12-16 17:38) [0]

всем привет
народ как завершить процесс созданный
подобным методом ??

constructor TDirMon.Create(aPath: String);
begin
inherited Create(True);
FreeOnTerminate := True;
FPath := aPath;
Self.Priority := tplowest;
Resume;
end;
//----------
...
q:=TDirMon.Create("proba");

попытка завершить его через q.free приводит к зависанию приложения

← →
sniknik © (2004-12-16 17:48) [1]

free это не завершение это освобождение (ресурсов), а оно у тебя и так уже "авто свободно" (FreeOnTerminate := True;)
или free не делай или FreeOnTerminate фалсе ставь.

завершение потока приводит к зависанию Найти похожие ветки