ABCdatos
Programas y tutoriales
en castellano
ABCdatos tu página de inicio Inicio       
Su navegador rechazó un objeto incrustado.
Su navegador no soporta objetos incrustados. Vea los últimos mensajes en el foro.

¿Dónde está instalado Windows? - Visual Basic

          
  • Descripción
  • Anotaciones
  • Opiniones

PUBLICIDAD
Este programa muestra cómo buscar desde una aplicación Visual Basic dónde se encuentra instalado Microsoft Windows.

1. Crea un nuevo proyecto en VB por defecto será Form1

2. Añade el siguiente código a Form1 en Declare statement de General Declarations

(nota: escribe en una sola línea de texto):

Private Declare Function Donde_esta_Windowsdirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

3. Añade un control Text Box al Form1

4. Añade un control Command Button al Form1

Private Sub Command1_Click()

Dim DirName As String

DirName = Donde_esta_Windows()

Text1.Text = DirName

End Sub

6. Crea una función y llámala Donde_esta_Windows añadirle el siguiente código

Function Donde_esta_Windows() As String

Dim Temp As String

Dim Ret As Long

Const MAX_LENGTH = 145

Temp = String$(MAX_LENGTH, 0)

Ret = Donde_esta_Windowsdirectory(Temp, MAX_LENGTH)

Temp = Left$(Temp, Ret)

If Temp <> "" And Right$(Temp, 1) <> "\" Then

Donde_esta_Windows = Temp & "\"

Else

Donde_esta_Windows = Temp

End If

End Function

Ejecuta el ejemplo pulsando F5
Limitaciones de la versión

Visual Basic

No hay opiniones de los usuarios. ¡Sé el primero en dar tu opinión! (No requiere registro)

Trucos del mismo autor Más trucos del mismo autor
Do Events
¿Cuántas veces has asignado a un Label un nuevo Caption y no lo ha mostrado?. Pues prueba poniendo DoEvents después de la asignación y verás como se muestra...
► sigue leyendo
Text Box
Este truco se trata de hacer una selección del contenido del textbox, sólo que se calca en él, ya sea o no en array. 'Para un control Private Sub Text1_GotFocus() Text1.SelStart...
► sigue leyendo
Redefinir instrucciones de VB
Si declaras una función con el mismo nombre que una ya existente, se usará esa función o instrucción en lugar de la que incluye el VB. Por ejemplo, se trata de una...
► sigue leyendo
Ejecutar con Start
Con Start es posible ejecutar aplicaciones desde la línea de comando y si se pueden ejecutar aplicaciones... ¿se podrán ejecutar accesos directos? Así es, y no sólo...
► sigue leyendo
Activar/desactivar el teclado númerico - Visual Basic
Este programa demuestra cómo se puede conectar o desconectar el teclado numérico (NUM LOCK) Pasos a seguir: 1. Crea un nuevo proyecto en visual basic 2. Añade el siguiente...
► sigue leyendo
Cerrar un formulario
Al cerrar un form, podemos saber si es nuestro código el que cierra la aplicación o bien se cierra por otra causa. Esta comprobación se hace en Form_QueryUnload y puede ser...
► sigue leyendo

Copyright © 1999-2023 ABCdatos.com. Todos los derechos reservados.
Aviso legal. Políticas de privacidad y cookies.
Contactar con ABCdatos.