Mensajes

No se porque usas SHFileOperation, podrias usar filecopy (VB), copyfile (API) o cualquier otra cosa.

Si queres usar  SHFileOperation tene en cuenta que la estructura de SHFILEOPSTRUCT que esta en el Api-Guide y que muchos usan esta mal fFlags  tiene que ser long.

Holas =), bueno nada nuevo, simplemente lo posteo para el que le interese y al que no bueno ya sabe puede ignorarlo categoricamente.

Que es? una clase para detectar el arrivo de nuevos dispositivos, en este caso se limita a los que tienen bus del tipo USB, la clase es un poco grande (unas 570 lineas) porque la idea es expandirla para soportar todos los tipos de mensajes procporcionados por el evento WM_DEVICECHANGE, es IDE safe y no tiene dependencias.

Testeada en:
  XP SP2

Con:
  -PNY Attache Flash Drive
  -Firefly External Hard Drive
  -Hagiwara UDRW  Flash Drive

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

esto es VB6

Podrias implementar IBindStatusCallback para que no se congele, pero no tiene mucho sentido.

Parece funcionar correctamente, me pregunto porque nadie la usa...

Hola, bueno estaba por ahi mirando codigos y me tope con aguna de estas funciones asi que las junte con algunas que conocia y usaba. Me gustaria que presenten otras maneras o simplemente comenten acerca de estas funciones para ver cual creen que es mejor y por que.

En mi opinion la numero 1 (IsEXE1) es la mejor de todas.

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Declare Function GetModuleHandle Lib "kernel32.dll" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long

Private Sub Form_Load()
    MsgBox IsEXE0
    MsgBox IsEXE1
    MsgBox IsEXE2
    MsgBox IsEXE3
End Sub

Private Function IsEXE0() As Boolean
    On Error GoTo IDE
    Debug.Print 1 / 0
    IsEXE0 = True
IDE:
End Function

Private Function IsEXE1() As Boolean
   Static bEXE As Boolean
   
   If Not bEXE Then
      bEXE = True
      Debug.Assert IsEXE1() Or True
      IsEXE1 = bEXE
   End If
   bEXE = False
End Function

Private Function IsEXE2() As Boolean
    IsEXE2 = Not (App.EXEName = App.Title)
End Function

Private Function IsEXE3() As Boolean
    If GetModuleHandle("vba6") = 0 Then
        IsEXE3 = True
    End If
End Function



Aca esta el que hice yo.

http://foro.elhacker.net/programacion_vb/png_splash_screen_gdi-t208836.0.html

Muy bueno, al final quedo bastante estable. Me gusta el resultado final =)

En realidad serian RENGOS, cada pixel se divide en 3 sub pixeles R,G,B que forman los colores asi que aveces es que estan chulengos =p

No siempre estan negros, hay casos en los que simplemente mustran un color herrado.