اطفاء الشاشة

Try :

1 : Monitor_Off // إطفاء الشاشة 
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);


2 : Monitor_On  // إشعال الشاشة
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

جزاك الله خيرا

لكن لاحظت أن الكود الأول لوحده كاف حيث أنه يطفئ اذا كانت الشاشة مشغلة و العكس.

ضع زرا وضع فيه الكود الأول فقط ثم اضغط عليه ستنطفئ الشاشة. حافظ على نفس وضع الفأرة حتى يتسنى لك الضغط على الزر في الظلام وستلاحظ أنه سيعيد اشعالها.

تحياتي

شكرا لك اخي mojo على الاجابة

شكرا على هذا الكود