- El tiempo qe lleva la pc encendidaPrivate Declare Function GetTickCount Lib "Kernel32.dll" () As Long
x = CStr(Round((GetTickCount / 1000 / 60))) & " Minutos"
- La fecha de la primera ejecucion del programaA menos que la guardes en archivo/registro no se sabe, windows no guarda esa informacion, al menos que yo sepa.
-El windows (XP, 98, me...) de un modo fiable (supongo qe sera desde el registroYo prefiero usar API's, si queres "intentar" con el registro nuestro amigo Google.com esta disponible.Declaraciones:Public Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Modo simple y corto:Public Function GetWindowsVersion() As String
Dim OSInfo As OSVERSIONINFO
Dim Ret As Integer
OSInfo.dwOSVersionInfoSize = 148
OSInfo.szCSDVersion = Space$(128)
Ret = GetVersionExA(OSInfo)
With OSInfo
Select Case .dwPlatformId
Case 1
If .dwMinorVersion < 10 Then
GetWindowsVersion = "Windows 95"
ElseIf .dwMinorVersion = 10 Then
GetWindowsVersion = "Windows 98"
Else
GetWindowsVersion = "Windows ME"
End If
Case 2
If .dwMajorVersion = 3 Then
GetWindowsVersion = "Windows NT"
ElseIf .dwMajorVersion = 5 Then
GetWindowsVersion = "Windows 2000/XP"
End If
End If
Case Else
GetWindowsVersion = "Desconocida"
End Select
End With
End Function
Modo mas largo y detallado:Public Function GetWindowsVersion() As String
Dim OSInfo As OSVERSIONINFO
Dim Ret As Integer
OSInfo.dwOSVersionInfoSize = 148
OSInfo.szCSDVersion = Space$(128)
Ret = GetVersionExA(OSInfo)
With OSInfo
Select Case .dwPlatformId
Case 1
If .dwMinorVersion < 10 Then
If .dwBuildNumber = 950 Then
GetWindowsVersion = "Windows 95"
ElseIf .dwBuildNumber > 950 Or .dwBuildNumber <= 1080 Then
GetWindowsVersion = "Windows 95 SP1"
Else
GetWindowsVersion = "Windows 95 OSR2"
End If
ElseIf .dwMinorVersion = 10 Then
If .dwBuildNumber = 1998 Then
GetWindowsVersion = "Windows 98"
ElseIf .dwBuildNumber > 1998 Or .dwBuildNumber < 2183 Then
GetWindowsVersion = "Windows 98 SP1"
ElseIf .dwBuildNumber >= 2183 Then
GetWindowsVersion = "Windows 98 SE"
End If
Else
GetWindowsVersion = "Windows ME"
End If
Case 2
If .dwMajorVersion = 3 Then
GetWindowsVersion = "Windows NT 3.51"
ElseIf .dwMajorVersion = 4 Then
GetWindowsVersion = "Windows NT 4.0"
ElseIf .dwMajorVersion = 5 Then
If .dwMinorVersion = 0 Then
GetWindowsVersion = "Windows 2000"
Else
GetWindowsVersion = "Windows XP"
End If
End If
Case Else
GetWindowsVersion = "Desconocida"
End Select
End With
End Function
-Es posible mover un formulario qe tenga la propiedad borderStyle a 0 (none)?Claro que si, en el caso que uses un Label utilizando la propiedad Label1_click podes mover el Form dependiendo donde este el mouse utilizando GetMousePos X Y.
Disculpa que no postee codigo sobre las ultimas preguntas, es que estoy desde Linux y tengo problemas con mi VMware.