25
Январь
2009
Как узнать различную информацию о компьютере?
Как узнать различную информацию о компьютере?
Есть функция Environ, с помощью которой и можно собрать информацию о своей системе. В текстовом поле появится вся возможная информация.
'Свойство TextBox Multiline установите в True 'ScrollBar установите в 3 - Both Option Explicit Private Sub Form_Load() Me.WindowState = 2 Text1.Text = "" Info End Sub Public Sub Info() Dim i As Byte For i = 1 To 32 If i < 32 Then Text1.Text = Text1.Text & Environ(i) & vbCrLf & vbCrLf Else Text1.Text = Text1.Text & Environ(i) End If Next End Sub Private Sub Form_Resize() Text1.Height = Form1.ScaleHeight Text1.Width = Form1.ScaleWidth End Sub