仿MS的ApiLoad

' ------------------------------------------------------------------------ ' ' WIN32API.TXT -- Win32 API Declarations for Visual Basic ' ' Copyright (C) 1994-98 Microsoft Corporation ' ' This file is required for the Visual Basic 6.0 version of the APILoader. ' Older versions of this file will not work correctly with the version ' 6.0 APILoader. This file is backwards compatible with previous releases ' of the APILoader with the exception that Constants are no longer declared ' as Global or Public in this file. ' ' This file contains only the Const, Type, ' and Declare statements for Win32 APIs. ' ' You have a royalty-free right to use, modify, reproduce and distribute ' this file (and/or any modified version) in any way you find useful, ' provided that you agree that Microsoft has no warranty, obligation or ' liability for its contents. Refer to the Microsoft Windows Programmer's ' Reference for further information. ' ' ------------------------------------------------------------------------ ' Type definitions for Windows' basic types. Const ANYSIZE_ARRAY = 1 Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Type RECTL Left As Long Top As Long Right As Long Bottom As Long End Type Type POINTAPI x As Long y As Long End Type Type POINTL x As Long y As Long End Type Type Size cx As Long cy As Long End Type Type POINTS x As Integer y As Integer End Type Type MSG hwnd As Long message As Long wParam As Long lParam As Long time As Long pt As POINTAPI End Type Const DELETE = &H10000 Const READ_CONTROL = &H20000 Const WRITE_DAC = &H40000 Const WRITE_OWNER = &H80000 Const SYNCHRONIZE = &H100000 Const STANDARD_RIGHTS_READ = (READ_CONTROL) Const STANDARD_RIGHTS_WRITE = (READ_CONTROL) Const STANDARD_RIGHTS_EXECUTE = (READ_CONTROL) Const STANDARD_RIGHTS_REQUIRED = &HF0000 Const STANDARD_RIGHTS_ALL = &H1F0000 Const SPECIFIC_RIGHTS_ALL = &HFFFF Type SID_IDENTIFIER_AUTHORITY Value(6) As Byte End Type Const SID_REVISION = (1) ' Current revision level Const SID_MAX_SUB_AUTHORITIES = (15) Const SID_RECOMMENDED_SUB_AUTHORITIES = (1) ' Will change to around 6 in a future release. Const SidTypeUser = 1 Const SidTypeGroup = 2 Const SidTypeDomain = 3 Const SidTypeAlias = 4 Const SidTypeWellKnownGroup = 5 Const SidTypeDeletedAccount = 6 Const SidTypeInvalid = 7 Const SidTypeUnknown = 8 Type SID_AND_ATTRIBUTES Sid As Long Attributes As Long End Type ' /////////////////////////////////////////////////////////////////////////// ' // ' Universal well-known SIDs // ' // ' Null SID S-1-0-0 // ' World S-1-1-0 // ' Local S-1-2-0 // ' Creator Owner ID S-1-3-0 // ' Creator Group ID S-1-3-1 // ' // ' (Non-unique IDs) S-1-4 // ' // ' /////////////////////////////////////////////////////////////////////////// Const SECURITY_NULL_RID = &H0 Const SECURITY_WORLD_RID = &H0 Const SECURITY_LOCAL_RID = &H0 Const SECURITY_CREATOR_OWNER_RID = &H0 Const SECURITY_CREATOR_GROUP_RID = &H1 ' /////////////////////////////////////////////////////////////////////////// ' // ' NT well-known SIDs // ' // ' NT Authority S-1-5 // ' Dialup S-1-5-1 // ' // ' Network S-1-5-2 // ' Batch S-1-5-3 // ' Interactive S-1-5-4 // ' Service S-1-5-6 // ' AnonymousLogon S-1-5-7 (aka null logon session) // ' // ' (Logon IDs) S-1-5-5-X-Y // ' // ' (NT non-unique IDs) S-1-5-0x15-... // ' // ' (Built-in domain) s-1-5-0x20 // ' // ' /////////////////////////////////////////////////////////////////////////// Const SECURITY_DIALUP_RID = &H1 Const SECURITY_NETWORK_RID = &H2 Const SECURITY_BATCH_RID = &H3 Const SECURITY_INTERACTIVE_RID = &H4 Const SECURITY_SERVICE_RID = &H6 Const SECURITY_ANONYMOUS_LOGON_RID = &H7 Const SECURITY_LOGON_IDS_RID = &H5 Const SECURITY_LOCAL_SYSTEM_RID = &H12 Const SECURITY_NT_NON_UNIQUE = &H15 Const SECURITY_BUILTIN_DOMAIN_RID = &H20 ' /////////////////////////////////////////////////////////////////////////// ' // ' well-known domain relative sub-authority values (RIDs)... // ' // ' /////////////////////////////////////////////////////////////////////////// Const DOMAIN_USER_RID_ADMIN = &H1F4 Const DOMAIN_USER_RID_GUEST = &H1F5 Const DOMAIN_GROUP_RID_ADMINS = &H200 Const DOMAIN_GROUP_RID_USERS = &H201 Const DOMAIN_GROUP_RID_GUESTS = &H202 Const DOMAIN_ALIAS_RID_ADMINS = &H220 Const DOMAIN_ALIAS_RID_USERS = &H221 Const DOMAIN_ALIAS_RID_GUESTS = &H222 Const DOMAIN_ALIAS_RID_POWER_USERS = &H223 Const DOMAIN_ALIAS_RID_ACCOUNT_OPS = &H224 Const DOMAIN_ALIAS_RID_SYSTEM_OPS = &H225 Const DOMAIN_ALIAS_RID_PRINT_OPS = &H226 Const DOMAIN_ALIAS_RID_BACKUP_OPS = &H227 Const DOMAIN_ALIAS_RID_REPLICATOR = &H228 ' Allocate the System Luid. The first 1000 LUIDs are reserved. ' Use #999 here0x3E7 = 999) ' end_ntifs ' ////////////////////////////////////////////////////////////////////// ' // ' User and Group related SID attributes // ' // ' ////////////////////////////////////////////////////////////////////// ' Group attributes Const SE_GROUP_MANDATORY = &H1 Const SE_GROUP_ENABLED_BY_DEFAULT = &H2 Const SE_GROUP_ENABLED = &H4 Const SE_GROUP_OWNER = &H8 Const SE_GROUP_LOGON_ID = &HC0000000 ' User attributes ' (None yet defined.) ' ---------------- ' Kernel Section ' ---------------- Const FILE_BEGIN = 0 Const FILE_CURRENT = 1 Const FILE_END = 2 Const FILE_FLAG_WRITE_THROUGH = &H80000000 Const FILE_FLAG_OVERLAPPED = &H40000000 Const FILE_FLAG_NO_BUFFERING = &H20000000 Const FILE_FLAG_RANDOM_ACCESS = &H10000000 Const FILE_FLAG_SEQUENTIAL_SCAN = &H8000000 Const FILE_FLAG_DELETE_ON_CLOSE = &H40000