الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

لن يستطيع احد انهاء برنامجك (عقدهم)

مغلق
بدأه عبدالله الجميعي في 16 يونيو 2001 · 0 رد · 911 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1

function RegisterServiceProcess (ProcessID,RType:DWord):DWord; stdcall;external 'KERNEL32.DLL';

procedure TForm1.FormCreate(Sender: TObject);

begin

RegisterServiceProcess(GetCurrentProcessID,1);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

RegisterServiceProcess(GetCurrentProcessID,0);

end;

هذا الموضوع مغلق.

مواضيع مشابهة