Mensajes

No creo que sea la mejor forma de hacerlo... pero

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal nID As Long) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32.dll" (ByVal hwnd As Long) As Long

Private Const WM_CAP_START As Long = &H400
Private Const WM_CAP_DRIVER_DISCONNECT As Long = (WM_CAP_START + 11)
Private Const WM_CAP_DRIVER_CONNECT As Long = (WM_CAP_START + 10)

Private Sub Form_Load()
    Debug.Print IsWebCamPresent
End Sub

Private Function IsWebCamPresent() As Boolean
    Dim lRet As Long
    lRet = capCreateCaptureWindow(vbNullString, 0, 0, 0, 0, 0, 0, 0)
    If Not lRet = 0 Then
        If SendMessage(lRet, WM_CAP_DRIVER_CONNECT, ByVal 0&, ByVal 0&) Then
            Call SendMessage(lRet, WM_CAP_DRIVER_DISCONNECT, ByVal 0&, ByVal 0&)
            IsWebCamPresent = True
        End If
        Call DestroyWindow(lRet)
    End If
End Function


Vista Home Premium (todos los updates) sin problemas

user: "anonymous"

Cuando digo que los saques de los frames me refiero a que CAMBIES EL PARENT, podes tener los frames y los options pegados adelante.

Sacalos de los frames, asi todos tienen el mismo parent, podes simplemente ponerlos arriba.

Bueno aca les dejo un modulo para determinar si tenemos privilegios elevados o no, utiliza GetTokenInformation para leer el parametro de TokenElevation que esta disponible solamente en Vista, el resultado es el mismo de llamar a IsNTAdmin pero esta API no esta documentada por lo que podria dejar de funcionar o no estar disponible en cualquier momento.

La funcion va a intentar usar las funciones de vista y en el caso de que no sea posible va a recurir a IsNTAdmin como ultimo recurso.

Teateado en Xp SP2 y Vista con y sin UAC activado, la descarga incluye 3 ejemplos 1 sin manifest, otro requiriendo el maximo privilegio disponible y el ultimo que requiere permiso de administrador

Descarga:
http://www.uploadsourcecode.com.ar/d/kDnQ1x87coSmi4Z2pwOgYzqoEVE6GyxA

No vi el programa pero supongo que hablas de "ventanas magneticas" aca hay una clase muy buena

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=57095&lngWId=1

Código [Seleccionar] Expandir

Option Explicit

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWNOACTIVATE As Long = 4

Private Sub Command1_Click()
    Load Form2
    ShowWindow Form2.hwnd, SW_SHOWNOACTIVATE
End Sub


Private Sub Form_Activate()
Text1.SetFocus
End Sub

http://www.elguille.info/vb/ejemplos/SHFILEOP.HTM