;///////////////////////////////////////////////////////////////////////////////
;///// Проверка кто Вы : Админ ? 2009 //////////
;///////////////////////////////////////////////////////////////////////////////
   
If OpenLibrary(0,"shell32.dll")
  *MAlloc = GetFunction(0, "IsUserAnAdmin")
  If CallCFunctionFast(*MAlloc) = 1
  MessageRequester("Info","Вы администратор", #MB_ICONINFORMATION)
  Else
  MessageRequester("Info","Вы не администратор",#MB_ICONINFORMATION)
  EndIf
CloseLibrary(0)
EndIf