كيف اقوم بتغيير Class النافذة ؟

[SMP3]

كان بودي ان تضع تعليقات على الكود .. كي استطيع فهم ما يجري اثناء تنفيذ الاوامر

نقوم بعمل override للحدث CreateParams الخاص بالفورم

PHP كود :

procedure  CreateParams(var Params: TCreateParams);  override ; 


ثم نقوم بتوليد كلاس عشوائي يتغير في كل مرة نقوم بتشغيل البرنامج

PHP كود :

CN:=PChar('NewClass'+Copy(IntToStr(GetTickCount),5,2)); 


ثم نقوم بتغيير كلاس النافذة

PHP كود :

StrPLCopy(Params.WinClassName,CN,High(Params.WinClassName));