How to shield off the start button?

zhaozj2021-02-11  187

Procedure TFORM1.BUTTON1CLICK (Sender: TOBJECT);

Begin

{Disable the start button}

EnableWindow (FindWindow (FindWindow ('Shell_TrayWnd', NIL), 0, 'Button', NIL), FALSE

END;

Procedure TFORM1.BUTTON2CLICK (Sender: TOBJECT);

Begin

{Enable the start button

EnableWindow (FindWindow (FindWindow ('Shell_TrayWnd', NIL), 0, 'Button', NIL), TRUE

END;

Note: If you press the WIN button or you can pop up the start menu.

转载请注明原文地址:https://www.9cbs.com/read-5835.html

New Post(0)