Ocultar una X ventana!!!

[Pitoniso]

Hola tengo un codigo con el cual logro ocultar una X ventana, ahora que sucede que la dicha ventana puede demorarse en mostrarse por X motivos, si yo quisiera que mi Soft al dectetarla la ocultara podria hacerlo con un Timer verdad...

Alguna otra idea...

[jrhomer]

Perdona, pero no entiendo lo que quieres hacer.

[SheKeL_C$]

creo q es esto lo q pides...

Código [Seleccionar] Expandir

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0

Private Sub Form_Load()
Dim hWnd        As Long
hWnd = FindWindow(vbNullString, "Mi PC")
If hWnd <> 0 Then
    'ShowWindow hWnd, SW_SHOWHIDE  'esto lo oculta
    'ShowWindow hWnd, SW_SHOWNORMAL ' y esto lo muestra
End If
End Sub


[Pitoniso]

creo q es esto lo q pides...

Código [Seleccionar] Expandir

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0

Private Sub Form_Load()
Dim hWnd        As Long
hWnd = FindWindow(vbNullString, "Mi PC")
If hWnd <> 0 Then
    'ShowWindow hWnd, SW_SHOWHIDE  'esto lo oculta
    'ShowWindow hWnd, SW_SHOWNORMAL ' y esto lo muestra
End If
End Sub


Bueno lo meti en el ciclo de un Timer e inmediantamente que mande a llamar al Soft se oculto espero que no me de mas problemas..aunque sigo con la duda aqui hacemos la busqueda por el nombre de la ventana no seria mas como por el Proceso, o sea saber si un X proceso tiene alguna ventana abierta, yo lo tenia realizado asi buscando la ventana..solo quiero saber si es posible..