48 lines
752 B
QBasic
48 lines
752 B
QBasic
|
Attribute VB_Name = "dwTypes"
|
||
|
|
' Desaware API Class library
|
||
|
|
' Copyright (c) 1995-1997 by Desaware Inc.
|
||
|
|
' All rights reserved
|
||
|
|
|
||
|
|
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
#If Win32 Then
|
||
|
|
Public Type RECT
|
||
|
|
left As Long
|
||
|
|
top As Long
|
||
|
|
right As Long
|
||
|
|
bottom As Long
|
||
|
|
End Type
|
||
|
|
|
||
|
|
#Else
|
||
|
|
Public Type RECT
|
||
|
|
left As Integer
|
||
|
|
top As Integer
|
||
|
|
right As Integer
|
||
|
|
bottom As Integer
|
||
|
|
End Type
|
||
|
|
|
||
|
|
#End If 'WIN32 Types
|
||
|
|
|
||
|
|
|
||
|
|
#If Win32 Then
|
||
|
|
|
||
|
|
Type ACL
|
||
|
|
AclRevision As Byte
|
||
|
|
Sbz1 As Byte
|
||
|
|
AclSize As Integer
|
||
|
|
AceCount As Integer
|
||
|
|
Sbz2 As Integer
|
||
|
|
End Type
|
||
|
|
|
||
|
|
Type SECURITY_DESCRIPTOR
|
||
|
|
Revision As Byte
|
||
|
|
Sbz1 As Byte
|
||
|
|
Control As Long
|
||
|
|
Owner As Long
|
||
|
|
Group As Long
|
||
|
|
Sacl As ACL
|
||
|
|
Dacl As ACL
|
||
|
|
End Type
|
||
|
|
#End If
|