Api Guide:

Para saber si esta permitido el hibernado, apagado y/o suspendido:

Private Declare Function IsPwrShutdownAllowed Lib "Powrprof.dll" () As Long
Private Declare Function IsPwrSuspendAllowed Lib "Powrprof.dll" () As Long
Private Declare Function IsPwrHibernateAllowed Lib "Powrprof.dll" () As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@allapi.net
    Debug.Print "Shutdown Allowed: " + CStr(CBool(IsPwrShutdownAllowed))
    Debug.Print "Suspend Allowed: " + CStr(CBool(IsPwrSuspendAllowed))
    Debug.Print "Hibernate Allowed: " + CStr(CBool(IsPwrHibernateAllowed))
End Sub
 

Windows 98 o posterior.



Mas codigo de Api Guide:

Private Const ANYSIZE_ARRAY = 1
Private Const TOKEN_ADJUST_PRIVILEGES = &H20
Private Const TOKEN_QUERY = &H8
Private Const SE_PRIVILEGE_ENABLED = &H2
Private Type LUID
    LowPart As Long
    HighPart As Long
End Type
Private Type LUID_AND_ATTRIBUTES
    pLuid As LUID
    Attributes As Long
End Type
Private Type TOKEN_PRIVILEGES
    PrivilegeCount As Long
    Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES
End Type
Private Declare Function SetSystemPowerState Lib "kernel32" (ByVal fSuspend As Long, ByVal fForce As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
'set the shut down privilege for the current application
Private Sub EnableShutDown()
    Dim hProc As Long
    Dim hToken As Long
    Dim mLUID As LUID
    Dim mPriv As TOKEN_PRIVILEGES
    Dim mNewPriv As TOKEN_PRIVILEGES
    hProc = GetCurrentProcess()
    OpenProcessToken hProc, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, hToken
    LookupPrivilegeValue "", "SeShutdownPrivilege", mLUID
    mPriv.PrivilegeCount = 1
    mPriv.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
    mPriv.Privileges(0).pLuid = mLUID
    ' enable shutdown privilege for the current application
    AdjustTokenPrivileges hToken, False, mPriv, 4 + (12 * mPriv.PrivilegeCount), mNewPriv, 4 + (12 * mNewPriv.PrivilegeCount)
End Sub
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'enable the shutdown privilege
    EnableShutDown
    'on Windows2000: hibernate
    'on Windows9x/ME: suspend
    SetSystemPowerState False, False
End Sub
 

para mas info consulta en la Api Guide:
GetPwrCapabilities
IsPwrHibernateAllowed
IsPwrShutdownAllowed
IsPwrSuspendAllowed
SetSuspendedState
SetSystemPowerState

señoers, VB no compila, sin que lo hace el C2.exe y LINK.exe hasta donde se, si se copian en u directorio esos archivos y sus dpendencias, y se los usa de forma correcta (tal cual los llama el VB) se pude compilar. claro que para eso habria que hacer algo d ingenieria inversa sustituyendo dichos archivos por unos propios que a su vez llamen a los originales y almacenen los parametros recibidos por command$

no obstante, lo qeu el amigo quiere hacer es "serializar" una aplicacion apra distribuirla (tenemos un pequeño bill gates por aqui )... pued hacerlo agregando al final del exe el serial y si no queire que "lo descubran" un poco de "texto basura al azar" antes y despues del serial seria perfecto. A pesar de todo, igualmente el sserial dberia ser un hash para asegurar que no pueda ser crackeado facilmente.

as que, contestando a serializar una apliacacion: si, se pude
compilar un soft: si, usando ciertas partes del vb (el linkeador y compilador) se puede.

gente, relacionado con el tema que se trato en este therad, tengo dos inquietudes:

1: se puede hacer esto mismo con archivos de audio?
2: hay alguna forma de codificar los archivos contenidos en "el archivo padre" para qu no puedan ser extraidos y visualizados tan facilmente por "mirones".... sobrtodo me interesa que sea rapida la decodificacion a la hora de utilizar los graficos.

colega, el monopolio de windows llega hasta los benchmarks

si no es en windows, no figuraràs en el rank.

recuerda que puedes bajarlas del mirror que he creado. la unica que no esta correcta es la numero 6 y por falta de tiempo y ganas no la he corregido.

dios, que humillacion para mi athlon 64 x2 4200+ 

dado que solo necesito cargar JPG y BMP este ejemplo es perfecto para mi, con algunos ajustes me servirá, gracias.

duda: como hago un "array de array" (en php es $var[ x ][ y ]).... no se si me explico.
deseo hacer Archivos(id_archivo)(bytes)

EDIT: ¿Será más lento este metodo (cargar los archivos desde variables en memoria) que "desempaquetarlos", escribirlos en disco y leerlos?

agradezco tu respuesta, pero eso ya lo tngo, lo qeu yo busco es una funcion equivalent a LoadPicture (que carga una imagen desde un archivo), pro que lo haga desde la variable que y le indico.

por otro lado, lo q dices de recorrer byte a byte.... tngo la misma duda, segun me han dicho se hace de forma eficient y sin comerse todo el micro con Colecciones creo, si no me equivoco, pero jamas logre hacerlo.

desde el punto de vista deficiencia, seriamejr un form sin borde  y ya XD

lo de los PNG es muy muy lindo, y si se pudiera hacer loq eu digo, quedria wapisimo, pero tienes razón, quitaria rendimiento.

me conformare con el splash.

yo tngo un splash en PNG que dice "Cargando" (elemental watson  ) y "..." (tres o cuatro puntos" que son "animados" por un timer para mostrarle al usuario que la App nose ha colgado cargando y un label que hace como photoshop (muestra "Cargando fuentes", es un ejemplo, mi app no carga fuentes.)


tengo la necesidad de mostrar controles o saber como insertar texto o imagenes sobre el form.

PD: ahhh.. si pudiera hacerce una aparicion con transparencia (digamos "fade-in" d form) seria excelente.