|
@@ -27,7 +27,7 @@ begin
|
|
|
FInitialSuspended := CreateSuspended;
|
|
|
{ Always start in suspended state, will be resumed in AfterConstruction if necessary
|
|
|
See Mantis #16884 }
|
|
|
- FHandle := BeginThread(nil, StackSize, @ThreadProc, pointer(self), 1{CREATE_SUSPENDED},
|
|
|
+ FHandle := BeginThread(nil, StackSize, @ThreadProc, pointer(self), CREATE_SUSPENDED,
|
|
|
FThreadID);
|
|
|
if FHandle = TThreadID(0) then
|
|
|
raise EThread.CreateFmt(SThreadCreateError, ['Cannot create thread.']);
|