'Code by Roy Strickland, submitted by Jarret Peterson
'This code can share and unshare the directory 'c:\dos'
'===================================
'start a new project and add three command buttons
'set forms AutoRedraw property to true
'ADD TO A MODULE IN YOUR PROJECT:
'====================================
Option
ExplicitPublic
Platform As Long 'Platform ID of OS. 1 or 2'Structure for Getversion
Public
Type OSVERSIONINFOdwOSVersionInfoSize
As LongdwMajorVersion
As LongdwMinorVersion
As LongdwBuildNumber
As LongdwPlatformId
As LongszCSDVersion
As String * 128 ' Maintenance string for PSS usageEnd
TypePublic
Const STYPE_DISKTREE As Long = 0Public
Const STYPE_PRINTQ As Long = 1Public
Const STYPE_DEVICE As Long = 2Public
Const STYPE_IPC As Long = 3'Access types
Public
Const ACCESS_READ As Long = &H1Public
Const ACCESS_WRITE As Long = &H2Public
Const ACCESS_CREATE As Long = &H4Public
Const ACCESS_EXEC As Long = &H8Public
Const ACCESS_DELETE As Long = &H10Public
Const ACCESS_ATRIB As Long = &H20Public
Const ACCESS_PERM As Long = &H40Public
Const ACCESS_ALL As Long = &H7FPublic
Const WNTYPE_DRIVE As Long = 1Public
Const SHI_USES_UNLIMITED As Long = -1<
Ответить