apagar windows

[unko!]

encontre una forma de apagar windows con el sig 'code':

en Implementation

function ShutDownWindows(Flag: word): Boolean;
  //Función que permite apagar la computadora
  var
    TokenPriv: TTokenPrivileges;
    H: DWord;
    HToken: THandle;
  begin
    if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
 	   OpenProcessToken(GetCurrentProcess,
 		   TOKEN_ADJUST_PRIVILEGES,HToken);
 	   LookUpPrivilegeValue(NIL, 'SeShutdownPrivilege',
 		   TokenPriv.Privileges[0].Luid);
 	   TokenPriv.PrivilegeCount := 1;
 	   TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
 	   H := 0;
 	   AdjustTokenPrivileges(HToken, FALSE,
 		  TokenPriv, 0, PTokenPrivileges(NIL)^, H);
 	   CloseHandle(HToken);
 	 end;
    Result := ExitWindowsEx(Flag, 0);
 end;

y en un boton:

ShutDownWindows(EWX_POWEROFF);

ahora, el problema es el siguiente... mientras estoi programando si funciona este code, le doy a la flechita verda (para visualizar el programa) y si, efectivamente se apaga, pero al momento de compilarlo y ejecutar el exe no me funciona... ke puedo hacer?


thanx, salu2... PD---> como se llama la flecita verde' ??