[SNIPPET]Alternativa App.TaskVisible

[Karcrack]

Código (vb) [Seleccionar] Expandir

'USER32
Private Declare Function ShowWindow Lib "USER32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindowA Lib "USER32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const SW_HIDE   As Long = 0
Private Const SW_NORMAL As Long = 1
Private Const CLASSNAME As String = "ThunderRT6Main"

Public Sub AppTaskVisible(ByVal bVisible As Boolean)
   Dim lHwnd           As Long
   
   lHwnd = FindWindowA(CLASSNAME, App.Title)
   If lHwnd Then
       Call ShowWindow(lHwnd, IIf((bVisible = True), SW_NORMAL, SW_HIDE))
   End If
End Sub
Bueno, la gente se queja de que App.TaskVisible es detectada... asi que aqui esta, el sustituto

Lo he probado en W$ XP SP3, a ver si alguien puede probarlo en otro W$

Olvidaba decir que hay que probarlo compilado!

Saludos

[agus0]

Disculpa, ya me estoy llendo.

Pero en Windows 7 NO anda

[Sm0kes]

jeje el d arriba tiene razon kuando apenas lo posteaste lo probe y pensek era xk tenia Win 7 64bits....    pero kon tan solo postearlo y tener una idea d komo c hace es una buena ayuda y gracias  x eso

[Karcrack]

Pero en W7 funciona el App.TaskVisible de VB?

[Sm0kes]

Lo he probado en W$ XP SP3, a ver si alguien puede probarlo en otro W$

Noo pero kerias ver k tal iva en otro SO no?

[Karcrack]

Cuando consiga un W$ 7 lo intentare a ver que tengo que hacer para ocultarlo

[LeandroA]

W7 trabaja distinto ya que lista las ventanas por individual. para ese caso hay dos opciones, Me.caption = "" o en tiempo de diseño ShowinTaskBar =false (esto por cada formulario que este visible)


para XP tambien es valido App.Title = ""  pero no se si los antivirus detectan a esto como una amenaza.


Saludos.