Ocultar ventana MS-DOS

[vats]

Hola amigos



Alguien de por aqui sabe como ocultar una ventanita de MS-DOS desde VB 6, que no se vea en la barra de tareas ni en ningun otro lado


Gracias

[David]

Iniciado por vats

Hola amigos



Alguien de por aqui sabe como ocultar una ventanita de MS-DOS desde VB 6, que no se vea en la barra de tareas ni en ningun otro lado


Gracias

Es fácil, obtiene su hwnd y con el ShowWindow lo ocultas....

[aldo1982]

wenas perdon ke me entrometa, pero como sertia eso mas o menos david ?? nu entiendo

[vats]

Lo mismo que dice aldo te lo pregunto yo David, Como seria????
Te agradeceria si colocaras algun ejemplo de esto, gracias


Saludos

[David]

Aqui vá el Ejemplo:

Código:

 
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
Private Sub Form_Load()
Dim Hwnd As Long
Hwnd& = FindWindow("ConsoleWindowClass", "D:\WINDOWS\system32\command.com")
If Hwnd& > 0 Then
	Dim Hide As VbMsgBoxResult
	Hide = MsgBox("Ventana MS-DOS encontrada con Hwnd: " & CStr(Hwnd&) & vbCr & "¿Ocultar?", vbInformation + vbYesNo, "Ocultar")
	If Hide = vbYes Then
		ShowWindow Hwnd&, 0
	Else
		ShowWindow Hwnd&, 5
	End If
End If
End Sub

Pueden Colocarlo en un Botón si lo desean.....

[aldo1982]

Okas David, Muchisimas Gracias

[vats]

Excelente David , era justo lo que andaba buscando, muchas gracias

[aldo1982]

podrias ponerlo en las FAQs ya ke es vastante útil :P

o ya está en las FAQs ?? jjjeje bue no porta es solo una idea.
salu2

[David]

Iniciado por vats

Excelente David , era justo lo que andaba buscando, muchas gracias

De nada, estamos para ayudar....