Mensajes

No se hacen tareas.

No es un problema de compatibilidad ni nada es simplemente un problema de restriccion de acceso, si tenes el permiso podes acceder al registro sin problemas.

Como obtenes permiso, una manera podria se utilizando un manifest para que tu aplicacion corra como Admin o con los permisos mas altos disponibles para esa cuenta, pero tiene sus desventajas, una seria el UAC en el caso de que este activado va a pedir permiso al usuario y la otra es que windows bloquea las aplicaciones que estan añadidas para iniciar con el sistema si estas requieren algun permiso especial.

Se me ocurren algunas maneras mas de hacerlo, pero bueno ahi te deje una opcion.

Holas =) estaba medio aburrido y me puse  hacer esta mini aplicacion que sirve para calcular el checksum, hash, digest o como les guste llamarlo de un archivo.

La aplicaciones muy simple de usar, soporta 4 algoritmos diferentes MD2, MD4, MD5 y SHA-1, puede comparar checksums, soporta Drag and Drop y es totalmente portatil.

Espero que les guste! =)

Download (Source + App): http://www.uploadsourcecode.com.ar/d/RZrSG6y45iuxZLZgkeIk2E3NIT2VkMDL

Filesize: 495 KB

Screenshot:

[AttachThreadInput Function]

Una aclaracion

AttachThreadInput Function

Parameters
idAttach [in]

The identifier of the thread to be attached to another thread. The thread to be attached cannot be a system thread.
idAttachTo [in]

The identifier of the thread to which idAttach will be attached. This thread cannot be a system thread.

A thread cannot attach to itself. Therefore, idAttachTo cannot equal idAttach.
fAttach [in]

If this parameter is TRUE, the two threads are attached. If the parameter is FALSE, the threads are detached.

Como ven no se puede attachar a todos los threads, asi que posiblemente en algunos casos no ande.

Aca ta!!! costo encontrarlo

Source: http://www.vbforums.com/showthread.php?p=1640021#post1640021

Código [Seleccionar] Expandir

Option Explicit

Private Declare Function AttachThreadInput Lib "user32" (ByVal idAttach As Long, _
                                                         ByVal idAttachTo As Long, _
                                                         ByVal fAttach As Long) _
                                                         As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetFocus Lib "user32" () As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, _
                                                                lpdwProcessId As Long) _
                                                                As Long
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long


Private Sub Timer1_Timer()
Dim hFore As Long, hFocus As Long

    hFocus = GetFocus
   
    If hFocus = 0 Then
        hFore = GetForegroundWindow()
        Call AttachThreadInput(GetWindowThreadProcessId(hFore, 0&), GetCurrentThreadId, True)
        hFocus = GetFocus
        Call AttachThreadInput(GetWindowThreadProcessId(hFore, 0&), GetCurrentThreadId, False)
    End If
   
    Me.Caption = hFocus
   
End Sub

Hola Leandro, sabes que me parece que no es lo que buscas... pero bueno traducilo no es mucho, cualquier cosa despues lo resolvemos

Si son muchos controles te conviene hacer un algoritmo generico y redimensionar todos los controles en base a condiciones, estas condiciones las podes almacenar en el tag de cada control ej: si el control se va a redimensionar en alto y/o ancho, si va a estar anclado en un una posicion o se va a mover, si va a tener tamaño maximo y/o minimo etc.

Sino busca que hay muchos ya hechos.

Usa el API SendMessage con esoso parametros

Private Const WM_CUT As Long = &H300
Private Const WM_COPY As Long = &H301
Private Const WM_PASTE As Long = &H302

Aca hay otra manera, un poco precaria pero funcional

Código [Seleccionar] Expandir


Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)

Private Sub Form_Load()
    Dim tr As RECT

    tr.Left = Screen.Width / 15
    tr.Top = Screen.Height / 15
    tr.Right = tr.Left + 1
    tr.Bottom = tr.Top + 1
    ClipCursor tr

End Sub

Private Sub Form_Unload(Cancel As Integer)
    ClipCursor ByVal 0&
End Sub