Procedure SetRebootKey(Reboot:Boolean);
Var
   OldValue : LongBool;
Begin
  If Reboot then SystemParametersInfo(97, Word(False), @OldValue, 0)
  Else SystemParametersInfo(97, Word(True), @OldValue, 0);
End;

Procedure ShowStartButton(Show:Boolean);
Var
   Rgn : hRgn;
Begin
  Rgn:= CreateRectRgn(0, 0, 0, 0);
  If Show then
     SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', Nil), 0, 'Button', Nil), 0, True)
  Else
    SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', Nil), 0, 'Button', Nil), Rgn, True);
End;

Procedure EnableStartButton(Enable:Boolean);
Begin
  EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', Nil),
                                       0,
                                       'Button',
                                       Nil),
                                       Enable);
End;


위의 함수드을 모두 False인자로 넘겨 보세요..


From 류..