ملتي ثريدينق في دلفي xe

[onexite]

السلام عليكم
لاستخدام الثريد استخدم هذا

PHP كود :

procedure TForm1.SpeedButton5Click(Sender: TObject);
var    TID : DWORD;
     hThread : Hwnd;
begin
hThread := CreateThread(nil,0,@procd,nil,0,TID);
CloseHandle(0);
end; 


الاسئلة
كيف لي ان احدد عدد الثريد ؟ وهل البرنامج يعمل بتسلل اذا كان اكثر من ثريد ؟
كيف يتم اغلاق الثريدعن الانتهاء وكلوس هندل(0) هل يعني هذا ان مقبض الثريد = 0 ؟ دائما ؟
البرنامج يعمل لايكن عند نهاية البرسدير يضهر خطا من السيستم رقمه 5 !! ; والبرنامج ينتهي

[onexite]

هل هذه الكتابة صحيحة ؟
هل عدم تحرير الثريد يشكل مشكل ؟ او انه يتحرر بانتهاء مهمته ؟

PHP كود :

var
 TID : DWORD;
hThread : Hwnd;
begin
try
hThread := CreateThread(0,0,@proc,0,0,TID);
  //WaitForSingleObject(hThread, INFINITE);
finally
  closehandle(hThread);
end; 


[kachwahed]

وعليكم السلام ورحمة الله
هناك أنماط ودوال جاهزة عوض Windows API
ومع ظهور ملامح تعدد المنصات (في XE2) يستحسن الابتعاد عن API 32bit

هل عدم تحرير الثريد يشكل مشكل ؟ او انه يتحرر بانتهاء مهمته ؟

انظر:
http://www.delphi4arab.net/forum/showthr...p?tid=2131
مواضيع في المنتدى حول ذلك، أنظر:
http://www.delphi4arab.net/forum/showthr...p?tid=2706
بالتوفيق.