9 lines
206 B
QBasic
9 lines
206 B
QBasic
Attribute VB_Name = "Module1"
|
|
'
|
|
'Get local computer name
|
|
'
|
|
Declare Function GetComputerNameA Lib "kernel32" (ByVal compname As String, maxlen As Long) As Boolean
|
|
|
|
Public strAdsChosenPath As String
|
|
|