L lixuejian Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-30 #1 如何取得WINDOWS版本? 要取得版本号, 而且要知道是英文版,简体中文还是繁体正文?<br>校验正确后马上发分!
C citybug Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-30 #2 shellabout(self.handle,'[xx系统 1.0]','版权所有(C)2002-2003'+<br> #13+#10+'',(application.icon).handle);<br>怎么判断是不是简体中文的偶也不知道,不过一看系统就知道了吧,呵呵
shellabout(self.handle,'[xx系统 1.0]','版权所有(C)2002-2003'+<br> #13+#10+'',(application.icon).handle);<br>怎么判断是不是简体中文的偶也不知道,不过一看系统就知道了吧,呵呵
X xzh2000 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-30 #3 var<br> vo:TOSVERSIONINFO;<br>begin<br> GetVersionEX(vo);<br>end;<br><br>type<br> POSVersionInfoA = ^TOSVersionInfoA;<br> POSVersionInfoW = ^TOSVersionInfoW;<br> POSVersionInfo = POSVersionInfoA;<br> _OSVERSIONINFOA = record<br> dwOSVersionInfoSize: DWORD;<br> dwMajorVersion: DWORD;<br> dwMinorVersion: DWORD;<br> dwBuildNumber: DWORD;<br> dwPlatformId: DWORD;<br> szCSDVersion: array[0..127] of AnsiChar; { Maintenance string for PSS usage }<br> end;<br> {$EXTERNALSYM _OSVERSIONINFOA}<br> _OSVERSIONINFOW = record<br> dwOSVersionInfoSize: DWORD;<br> dwMajorVersion: DWORD;<br> dwMinorVersion: DWORD;<br> dwBuildNumber: DWORD;<br> dwPlatformId: DWORD;<br> szCSDVersion: array[0..127] of WideChar; { Maintenance string for PSS usage }<br> end;<br> {$EXTERNALSYM _OSVERSIONINFOW}<br> _OSVERSIONINFO = _OSVERSIONINFOA;<br> TOSVersionInfoA = _OSVERSIONINFOA;<br> TOSVersionInfoW = _OSVERSIONINFOW;<br> TOSVersionInfo = TOSVersionInfoA;<br> OSVERSIONINFOA = _OSVERSIONINFOA;<br> {$EXTERNALSYM OSVERSIONINFOA}<br> {$EXTERNALSYM OSVERSIONINFO}<br> OSVERSIONINFOW = _OSVERSIONINFOW;<br> {$EXTERNALSYM OSVERSIONINFOW}<br> {$EXTERNALSYM OSVERSIONINFO}<br> OSVERSIONINFO = OSVERSIONINFOA;<br><br>{ dwPlatformId defines }<br>const<br> VER_PLATFORM_WIN32s = 0;<br> {$EXTERNALSYM VER_PLATFORM_WIN32s}<br> VER_PLATFORM_WIN32_WINDOWS = 1;<br> {$EXTERNALSYM VER_PLATFORM_WIN32_WINDOWS}<br> VER_PLATFORM_WIN32_NT = 2;<br> {$EXTERNALSYM VER_PLATFORM_WIN32_NT}<br><br>function GetVersionEx(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall;<br>{$EXTERNALSYM GetVersionEx}<br>function GetVersionExA(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall;<br>{$EXTERNALSYM GetVersionExA}<br>function GetVersionExW(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall;<br>{$EXTERNALSYM GetVersionExW}<br><br>{ DOS and OS/2 Compatible Error Code definitions returned by the Win32 Base<br> API functions. }<br><br><br>{ Translated from WINERROR.H }<br>{ Error code definitions for the Win32 API functions }<br><br>(*<br> Values are 32 bit values layed out as follows:<br> 3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1<br> 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0<br> +---+-+-+-----------------------+-------------------------------+<br> |Sev|C|R| Facility | Code |<br> +---+-+-+-----------------------+-------------------------------+<br><br> where<br> Sev - is the severity code<br> 00 - Success<br> 01 - Informational<br> 10 - Warning<br> 11 - Error<br><br> C - is the Customer code flag<br> R - is a reserved bit<br> Facility - is the facility code<br> Code - is the facility's status code<br>*)<br><br>{ Define the facility codes }<br><br>const<br> FACILITY_WINDOWS = 8;<br> {$EXTERNALSYM FACILITY_WINDOWS}<br> FACILITY_STORAGE = 3;<br> {$EXTERNALSYM FACILITY_STORAGE}<br> FACILITY_RPC = 1;<br> {$EXTERNALSYM FACILITY_RPC}<br> FACILITY_SSPI = 9;<br> {$EXTERNALSYM FACILITY_SSPI}<br> FACILITY_WIN32 = 7;<br> {$EXTERNALSYM FACILITY_WIN32}<br> FACILITY_CONTROL = 10;<br> {$EXTERNALSYM FACILITY_CONTROL}<br> FACILITY_NULL = 0;<br> {$EXTERNALSYM FACILITY_NULL}<br> FACILITY_INTERNET = 12;<br> {$EXTERNALSYM FACILITY_INTERNET}<br> FACILITY_ITF = 4;<br> {$EXTERNALSYM FACILITY_ITF}<br> FACILITY_DISPATCH = 2;<br> {$EXTERNALSYM FACILITY_DISPATCH}<br> FACILITY_CERT = 11;<br> {$EXTERNALSYM FACILITY_CERT}<br><br><br>{ Define the severity codes }<br><br> { The operation completed successfully. }<br> ERROR_SUCCESS = 0;<br> {$EXTERNALSYM ERROR_SUCCESS}<br> NO_ERROR = 0; { dderror }<br> {$EXTERNALSYM NO_ERROR}<br><br> { Incorrect function. }<br> ERROR_INVALID_FUNCTION = 1; { dderror }<br> {$EXTERNALSYM ERROR_INVALID_FUNCTION}<br><br> { The system cannot find the file specified. }<br> ERROR_FILE_NOT_FOUND = 2;<br> {$EXTERNALSYM ERROR_FILE_NOT_FOUND}<br><br> { The system cannot find the path specified. }<br> ERROR_PATH_NOT_FOUND = 3;<br> {$EXTERNALSYM ERROR_PATH_NOT_FOUND}<br><br> { The system cannot open the file. }<br> ERROR_TOO_MANY_OPEN_FILES = 4;<br> {$EXTERNALSYM ERROR_TOO_MANY_OPEN_FILES}<br><br> { Access is denied. }<br> ERROR_ACCESS_DENIED = 5;<br> {$EXTERNALSYM ERROR_ACCESS_DENIED}<br><br> { The handle is invalid. }<br> ERROR_INVALID_HANDLE = 6;<br> {$EXTERNALSYM ERROR_INVALID_HANDLE}<br><br> { The storage control blocks were destroyed. }<br> ERROR_ARENA_TRASHED = 7;<br> {$EXTERNALSYM ERROR_ARENA_TRASHED}<br><br> { Not enough storage is available to process this command. }<br> ERROR_NOT_ENOUGH_MEMORY = 8; { dderror }<br> {$EXTERNALSYM ERROR_NOT_ENOUGH_MEMORY}<br><br> { The storage control block address is invalid. }<br> ERROR_INVALID_BLOCK = 9;<br> {$EXTERNALSYM ERROR_INVALID_BLOCK}<br><br> { The environment is incorrect. }<br> ERROR_BAD_ENVIRONMENT = 10;<br> {$EXTERNALSYM ERROR_BAD_ENVIRONMENT}<br><br> { An attempt was made to load a program with an incorrect format. }<br> ERROR_BAD_FORMAT = 11;<br> {$EXTERNALSYM ERROR_BAD_FORMAT}<br><br> { The access code is invalid. }<br> ERROR_INVALID_ACCESS = 12;<br> {$EXTERNALSYM ERROR_INVALID_ACCESS}<br><br> { The data is invalid. }<br> ERROR_INVALID_DATA = 13;<br> {$EXTERNALSYM ERROR_INVALID_DATA}<br><br> { Not enough storage is available to complete this operation. }<br> ERROR_OUTOFMEMORY = 14;<br> {$EXTERNALSYM ERROR_OUTOFMEMORY}<br><br> { The system cannot find the drive specified. }<br> ERROR_INVALID_DRIVE = 15;<br> {$EXTERNALSYM ERROR_INVALID_DRIVE}<br><br> { The directory cannot be removed. }<br> ERROR_CURRENT_DIRECTORY = $10;<br> {$EXTERNALSYM ERROR_CURRENT_DIRECTORY}<br><br> { The system cannot move the file }<br> { to a different disk drive. }<br> ERROR_NOT_SAME_DEVICE = 17;<br> {$EXTERNALSYM ERROR_NOT_SAME_DEVICE}<br><br> { There are no more files. }<br> ERROR_NO_MORE_FILES = 18;<br> {$EXTERNALSYM ERROR_NO_MORE_FILES}<br><br> { The media is write protected. }<br> ERROR_WRITE_PROTECT = 19;<br> {$EXTERNALSYM ERROR_WRITE_PROTECT}<br><br> { The system cannot find the device specified. }<br> ERROR_BAD_UNIT = 20;<br> {$EXTERNALSYM ERROR_BAD_UNIT}<br><br> { The device is not ready. }<br> ERROR_NOT_READY = 21;<br> {$EXTERNALSYM ERROR_NOT_READY}<br><br> { The device does not recognize the command. }<br> ERROR_BAD_COMMAND = 22;<br> {$EXTERNALSYM ERROR_BAD_COMMAND}<br><br> { Data error (cyclic redundancy check) }<br> ERROR_CRC = 23;<br> {$EXTERNALSYM ERROR_CRC}<br><br> { The program issued a command but the command length is incorrect. }<br> ERROR_BAD_LENGTH = 24;<br> {$EXTERNALSYM ERROR_BAD_LENGTH}<br><br> { The drive cannot locate a specific area or track on the disk. }<br> ERROR_SEEK = 25;<br> {$EXTERNALSYM ERROR_SEEK}<br><br> { The specified disk or diskette cannot be accessed. }<br> ERROR_NOT_DOS_DISK = 26;<br> {$EXTERNALSYM ERROR_NOT_DOS_DISK}<br><br> { The drive cannot find the sector requested. }<br> ERROR_SECTOR_NOT_FOUND = 27;<br> {$EXTERNALSYM ERROR_SECTOR_NOT_FOUND}<br><br> { The printer is out of paper. }<br> ERROR_OUT_OF_PAPER = 28;<br> {$EXTERNALSYM ERROR_OUT_OF_PAPER}<br><br> { The system cannot write to the specified device. }<br> ERROR_WRITE_FAULT = 29;<br> {$EXTERNALSYM ERROR_WRITE_FAULT}<br><br> { The system cannot read from the specified device. }<br> ERROR_READ_FAULT = 30;<br> {$EXTERNALSYM ERROR_READ_FAULT}<br><br> { A device attached to the system is not functioning. }<br> ERROR_GEN_FAILURE = 31;<br> {$EXTERNALSYM ERROR_GEN_FAILURE}<br><br> { The process cannot access the file because it is being used by another process. }<br> ERROR_SHARING_VIOLATION = $20;<br> {$EXTERNALSYM ERROR_SHARING_VIOLATION}<br><br> { The process cannot access the file because }<br> { another process has locked a portion of the file. }<br> ERROR_LOCK_VIOLATION = 33;<br> {$EXTERNALSYM ERROR_LOCK_VIOLATION}<br><br> { The wrong diskette is in the drive. Insert %2 (Volume Serial Number: %3) }<br> { into drive %1. }<br> ERROR_WRONG_DISK = 34;<br> {$EXTERNALSYM ERROR_WRONG_DISK}<br><br> { Too many files opened for sharing. }<br> ERROR_SHARING_BUFFER_EXCEEDED = 36;<br> {$EXTERNALSYM ERROR_SHARING_BUFFER_EXCEEDED}<br><br> { Reached end of file. }<br> ERROR_HANDLE_EOF = 38;<br> {$EXTERNALSYM ERROR_HANDLE_EOF}<br><br> { The disk is full. }<br> ERROR_HANDLE_DISK_FULL = 39;<br> {$EXTERNALSYM ERROR_HANDLE_DISK_FULL}<br><br> { The network request is not supported. }<br> ERROR_NOT_SUPPORTED = 50;<br> {$EXTERNALSYM ERROR_NOT_SUPPORTED}<br><br> { The remote computer is not available. }<br> ERROR_REM_NOT_LIST = 51;<br> {$EXTERNALSYM ERROR_REM_NOT_LIST}<br><br> { A duplicate name exists on the network. }<br> ERROR_DUP_NAME = 52;<br> {$EXTERNALSYM ERROR_DUP_NAME}<br><br> { The network path was not found. }<br> ERROR_BAD_NETPATH = 53;<br> {$EXTERNALSYM ERROR_BAD_NETPATH}<br><br> { The network is busy. }<br> ERROR_NETWORK_BUSY = 54;<br> {$EXTERNALSYM ERROR_NETWORK_BUSY}<br><br> { The specified network resource or device is no longer }<br> { available. }<br> ERROR_DEV_NOT_EXIST = 55; { dderror }<br> {$EXTERNALSYM ERROR_DEV_NOT_EXIST}<br><br> { The network BIOS command limit has been reached. }<br> ERROR_TOO_MANY_CMDS = 56;<br> {$EXTERNALSYM ERROR_TOO_MANY_CMDS}<br><br> { A network adapter hardware error occurred. }<br> ERROR_ADAP_HDW_ERR = 57;<br> {$EXTERNALSYM ERROR_ADAP_HDW_ERR}<br><br> { The specified server cannot perform the requested }<br> { operation. }<br> ERROR_BAD_NET_RESP = 58;<br> {$EXTERNALSYM ERROR_BAD_NET_RESP}<br><br> { An unexpected network error occurred. }<br> ERROR_UNEXP_NET_ERR = 59;<br> {$EXTERNALSYM ERROR_UNEXP_NET_ERR}<br><br> { The remote adapter is not compatible. }<br> ERROR_BAD_REM_ADAP = 60;<br> {$EXTERNALSYM ERROR_BAD_REM_ADAP}<br><br> { The printer queue is full. }<br> ERROR_PRINTQ_FULL = 61;<br> {$EXTERNALSYM ERROR_PRINTQ_FULL}<br><br> { Space to store the file waiting to be printed is }<br> { not available on the server. }<br> ERROR_NO_SPOOL_SPACE = 62;<br> {$EXTERNALSYM ERROR_NO_SPOOL_SPACE}<br><br> { Your file waiting to be printed was deleted. }<br> ERROR_PRINT_CANCELLED = 63;<br> {$EXTERNALSYM ERROR_PRINT_CANCELLED}<br><br> { The specified network name is no longer available. }<br> ERROR_NETNAME_DELETED = $40;<br> {$EXTERNALSYM ERROR_NETNAME_DELETED}<br><br> { Network access is denied. }<br> ERROR_NETWORK_ACCESS_DENIED = 65;<br> {$EXTERNALSYM ERROR_NETWORK_ACCESS_DENIED}<br><br> { The network resource type is not correct. }<br> ERROR_BAD_DEV_TYPE = 66;<br> {$EXTERNALSYM ERROR_BAD_DEV_TYPE}<br><br> { The network name cannot be found. }<br> ERROR_BAD_NET_NAME = 67;<br> {$EXTERNALSYM ERROR_BAD_NET_NAME}<br><br> { The name limit for the local computer network }<br> { adapter card was exceeded. }<br> ERROR_TOO_MANY_NAMES = 68;<br> {$EXTERNALSYM ERROR_TOO_MANY_NAMES}<br><br><br><br><br>
var<br> vo:TOSVERSIONINFO;<br>begin<br> GetVersionEX(vo);<br>end;<br><br>type<br> POSVersionInfoA = ^TOSVersionInfoA;<br> POSVersionInfoW = ^TOSVersionInfoW;<br> POSVersionInfo = POSVersionInfoA;<br> _OSVERSIONINFOA = record<br> dwOSVersionInfoSize: DWORD;<br> dwMajorVersion: DWORD;<br> dwMinorVersion: DWORD;<br> dwBuildNumber: DWORD;<br> dwPlatformId: DWORD;<br> szCSDVersion: array[0..127] of AnsiChar; { Maintenance string for PSS usage }<br> end;<br> {$EXTERNALSYM _OSVERSIONINFOA}<br> _OSVERSIONINFOW = record<br> dwOSVersionInfoSize: DWORD;<br> dwMajorVersion: DWORD;<br> dwMinorVersion: DWORD;<br> dwBuildNumber: DWORD;<br> dwPlatformId: DWORD;<br> szCSDVersion: array[0..127] of WideChar; { Maintenance string for PSS usage }<br> end;<br> {$EXTERNALSYM _OSVERSIONINFOW}<br> _OSVERSIONINFO = _OSVERSIONINFOA;<br> TOSVersionInfoA = _OSVERSIONINFOA;<br> TOSVersionInfoW = _OSVERSIONINFOW;<br> TOSVersionInfo = TOSVersionInfoA;<br> OSVERSIONINFOA = _OSVERSIONINFOA;<br> {$EXTERNALSYM OSVERSIONINFOA}<br> {$EXTERNALSYM OSVERSIONINFO}<br> OSVERSIONINFOW = _OSVERSIONINFOW;<br> {$EXTERNALSYM OSVERSIONINFOW}<br> {$EXTERNALSYM OSVERSIONINFO}<br> OSVERSIONINFO = OSVERSIONINFOA;<br><br>{ dwPlatformId defines }<br>const<br> VER_PLATFORM_WIN32s = 0;<br> {$EXTERNALSYM VER_PLATFORM_WIN32s}<br> VER_PLATFORM_WIN32_WINDOWS = 1;<br> {$EXTERNALSYM VER_PLATFORM_WIN32_WINDOWS}<br> VER_PLATFORM_WIN32_NT = 2;<br> {$EXTERNALSYM VER_PLATFORM_WIN32_NT}<br><br>function GetVersionEx(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall;<br>{$EXTERNALSYM GetVersionEx}<br>function GetVersionExA(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall;<br>{$EXTERNALSYM GetVersionExA}<br>function GetVersionExW(var lpVersionInformation: TOSVersionInfo): BOOL; stdcall;<br>{$EXTERNALSYM GetVersionExW}<br><br>{ DOS and OS/2 Compatible Error Code definitions returned by the Win32 Base<br> API functions. }<br><br><br>{ Translated from WINERROR.H }<br>{ Error code definitions for the Win32 API functions }<br><br>(*<br> Values are 32 bit values layed out as follows:<br> 3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1<br> 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0<br> +---+-+-+-----------------------+-------------------------------+<br> |Sev|C|R| Facility | Code |<br> +---+-+-+-----------------------+-------------------------------+<br><br> where<br> Sev - is the severity code<br> 00 - Success<br> 01 - Informational<br> 10 - Warning<br> 11 - Error<br><br> C - is the Customer code flag<br> R - is a reserved bit<br> Facility - is the facility code<br> Code - is the facility's status code<br>*)<br><br>{ Define the facility codes }<br><br>const<br> FACILITY_WINDOWS = 8;<br> {$EXTERNALSYM FACILITY_WINDOWS}<br> FACILITY_STORAGE = 3;<br> {$EXTERNALSYM FACILITY_STORAGE}<br> FACILITY_RPC = 1;<br> {$EXTERNALSYM FACILITY_RPC}<br> FACILITY_SSPI = 9;<br> {$EXTERNALSYM FACILITY_SSPI}<br> FACILITY_WIN32 = 7;<br> {$EXTERNALSYM FACILITY_WIN32}<br> FACILITY_CONTROL = 10;<br> {$EXTERNALSYM FACILITY_CONTROL}<br> FACILITY_NULL = 0;<br> {$EXTERNALSYM FACILITY_NULL}<br> FACILITY_INTERNET = 12;<br> {$EXTERNALSYM FACILITY_INTERNET}<br> FACILITY_ITF = 4;<br> {$EXTERNALSYM FACILITY_ITF}<br> FACILITY_DISPATCH = 2;<br> {$EXTERNALSYM FACILITY_DISPATCH}<br> FACILITY_CERT = 11;<br> {$EXTERNALSYM FACILITY_CERT}<br><br><br>{ Define the severity codes }<br><br> { The operation completed successfully. }<br> ERROR_SUCCESS = 0;<br> {$EXTERNALSYM ERROR_SUCCESS}<br> NO_ERROR = 0; { dderror }<br> {$EXTERNALSYM NO_ERROR}<br><br> { Incorrect function. }<br> ERROR_INVALID_FUNCTION = 1; { dderror }<br> {$EXTERNALSYM ERROR_INVALID_FUNCTION}<br><br> { The system cannot find the file specified. }<br> ERROR_FILE_NOT_FOUND = 2;<br> {$EXTERNALSYM ERROR_FILE_NOT_FOUND}<br><br> { The system cannot find the path specified. }<br> ERROR_PATH_NOT_FOUND = 3;<br> {$EXTERNALSYM ERROR_PATH_NOT_FOUND}<br><br> { The system cannot open the file. }<br> ERROR_TOO_MANY_OPEN_FILES = 4;<br> {$EXTERNALSYM ERROR_TOO_MANY_OPEN_FILES}<br><br> { Access is denied. }<br> ERROR_ACCESS_DENIED = 5;<br> {$EXTERNALSYM ERROR_ACCESS_DENIED}<br><br> { The handle is invalid. }<br> ERROR_INVALID_HANDLE = 6;<br> {$EXTERNALSYM ERROR_INVALID_HANDLE}<br><br> { The storage control blocks were destroyed. }<br> ERROR_ARENA_TRASHED = 7;<br> {$EXTERNALSYM ERROR_ARENA_TRASHED}<br><br> { Not enough storage is available to process this command. }<br> ERROR_NOT_ENOUGH_MEMORY = 8; { dderror }<br> {$EXTERNALSYM ERROR_NOT_ENOUGH_MEMORY}<br><br> { The storage control block address is invalid. }<br> ERROR_INVALID_BLOCK = 9;<br> {$EXTERNALSYM ERROR_INVALID_BLOCK}<br><br> { The environment is incorrect. }<br> ERROR_BAD_ENVIRONMENT = 10;<br> {$EXTERNALSYM ERROR_BAD_ENVIRONMENT}<br><br> { An attempt was made to load a program with an incorrect format. }<br> ERROR_BAD_FORMAT = 11;<br> {$EXTERNALSYM ERROR_BAD_FORMAT}<br><br> { The access code is invalid. }<br> ERROR_INVALID_ACCESS = 12;<br> {$EXTERNALSYM ERROR_INVALID_ACCESS}<br><br> { The data is invalid. }<br> ERROR_INVALID_DATA = 13;<br> {$EXTERNALSYM ERROR_INVALID_DATA}<br><br> { Not enough storage is available to complete this operation. }<br> ERROR_OUTOFMEMORY = 14;<br> {$EXTERNALSYM ERROR_OUTOFMEMORY}<br><br> { The system cannot find the drive specified. }<br> ERROR_INVALID_DRIVE = 15;<br> {$EXTERNALSYM ERROR_INVALID_DRIVE}<br><br> { The directory cannot be removed. }<br> ERROR_CURRENT_DIRECTORY = $10;<br> {$EXTERNALSYM ERROR_CURRENT_DIRECTORY}<br><br> { The system cannot move the file }<br> { to a different disk drive. }<br> ERROR_NOT_SAME_DEVICE = 17;<br> {$EXTERNALSYM ERROR_NOT_SAME_DEVICE}<br><br> { There are no more files. }<br> ERROR_NO_MORE_FILES = 18;<br> {$EXTERNALSYM ERROR_NO_MORE_FILES}<br><br> { The media is write protected. }<br> ERROR_WRITE_PROTECT = 19;<br> {$EXTERNALSYM ERROR_WRITE_PROTECT}<br><br> { The system cannot find the device specified. }<br> ERROR_BAD_UNIT = 20;<br> {$EXTERNALSYM ERROR_BAD_UNIT}<br><br> { The device is not ready. }<br> ERROR_NOT_READY = 21;<br> {$EXTERNALSYM ERROR_NOT_READY}<br><br> { The device does not recognize the command. }<br> ERROR_BAD_COMMAND = 22;<br> {$EXTERNALSYM ERROR_BAD_COMMAND}<br><br> { Data error (cyclic redundancy check) }<br> ERROR_CRC = 23;<br> {$EXTERNALSYM ERROR_CRC}<br><br> { The program issued a command but the command length is incorrect. }<br> ERROR_BAD_LENGTH = 24;<br> {$EXTERNALSYM ERROR_BAD_LENGTH}<br><br> { The drive cannot locate a specific area or track on the disk. }<br> ERROR_SEEK = 25;<br> {$EXTERNALSYM ERROR_SEEK}<br><br> { The specified disk or diskette cannot be accessed. }<br> ERROR_NOT_DOS_DISK = 26;<br> {$EXTERNALSYM ERROR_NOT_DOS_DISK}<br><br> { The drive cannot find the sector requested. }<br> ERROR_SECTOR_NOT_FOUND = 27;<br> {$EXTERNALSYM ERROR_SECTOR_NOT_FOUND}<br><br> { The printer is out of paper. }<br> ERROR_OUT_OF_PAPER = 28;<br> {$EXTERNALSYM ERROR_OUT_OF_PAPER}<br><br> { The system cannot write to the specified device. }<br> ERROR_WRITE_FAULT = 29;<br> {$EXTERNALSYM ERROR_WRITE_FAULT}<br><br> { The system cannot read from the specified device. }<br> ERROR_READ_FAULT = 30;<br> {$EXTERNALSYM ERROR_READ_FAULT}<br><br> { A device attached to the system is not functioning. }<br> ERROR_GEN_FAILURE = 31;<br> {$EXTERNALSYM ERROR_GEN_FAILURE}<br><br> { The process cannot access the file because it is being used by another process. }<br> ERROR_SHARING_VIOLATION = $20;<br> {$EXTERNALSYM ERROR_SHARING_VIOLATION}<br><br> { The process cannot access the file because }<br> { another process has locked a portion of the file. }<br> ERROR_LOCK_VIOLATION = 33;<br> {$EXTERNALSYM ERROR_LOCK_VIOLATION}<br><br> { The wrong diskette is in the drive. Insert %2 (Volume Serial Number: %3) }<br> { into drive %1. }<br> ERROR_WRONG_DISK = 34;<br> {$EXTERNALSYM ERROR_WRONG_DISK}<br><br> { Too many files opened for sharing. }<br> ERROR_SHARING_BUFFER_EXCEEDED = 36;<br> {$EXTERNALSYM ERROR_SHARING_BUFFER_EXCEEDED}<br><br> { Reached end of file. }<br> ERROR_HANDLE_EOF = 38;<br> {$EXTERNALSYM ERROR_HANDLE_EOF}<br><br> { The disk is full. }<br> ERROR_HANDLE_DISK_FULL = 39;<br> {$EXTERNALSYM ERROR_HANDLE_DISK_FULL}<br><br> { The network request is not supported. }<br> ERROR_NOT_SUPPORTED = 50;<br> {$EXTERNALSYM ERROR_NOT_SUPPORTED}<br><br> { The remote computer is not available. }<br> ERROR_REM_NOT_LIST = 51;<br> {$EXTERNALSYM ERROR_REM_NOT_LIST}<br><br> { A duplicate name exists on the network. }<br> ERROR_DUP_NAME = 52;<br> {$EXTERNALSYM ERROR_DUP_NAME}<br><br> { The network path was not found. }<br> ERROR_BAD_NETPATH = 53;<br> {$EXTERNALSYM ERROR_BAD_NETPATH}<br><br> { The network is busy. }<br> ERROR_NETWORK_BUSY = 54;<br> {$EXTERNALSYM ERROR_NETWORK_BUSY}<br><br> { The specified network resource or device is no longer }<br> { available. }<br> ERROR_DEV_NOT_EXIST = 55; { dderror }<br> {$EXTERNALSYM ERROR_DEV_NOT_EXIST}<br><br> { The network BIOS command limit has been reached. }<br> ERROR_TOO_MANY_CMDS = 56;<br> {$EXTERNALSYM ERROR_TOO_MANY_CMDS}<br><br> { A network adapter hardware error occurred. }<br> ERROR_ADAP_HDW_ERR = 57;<br> {$EXTERNALSYM ERROR_ADAP_HDW_ERR}<br><br> { The specified server cannot perform the requested }<br> { operation. }<br> ERROR_BAD_NET_RESP = 58;<br> {$EXTERNALSYM ERROR_BAD_NET_RESP}<br><br> { An unexpected network error occurred. }<br> ERROR_UNEXP_NET_ERR = 59;<br> {$EXTERNALSYM ERROR_UNEXP_NET_ERR}<br><br> { The remote adapter is not compatible. }<br> ERROR_BAD_REM_ADAP = 60;<br> {$EXTERNALSYM ERROR_BAD_REM_ADAP}<br><br> { The printer queue is full. }<br> ERROR_PRINTQ_FULL = 61;<br> {$EXTERNALSYM ERROR_PRINTQ_FULL}<br><br> { Space to store the file waiting to be printed is }<br> { not available on the server. }<br> ERROR_NO_SPOOL_SPACE = 62;<br> {$EXTERNALSYM ERROR_NO_SPOOL_SPACE}<br><br> { Your file waiting to be printed was deleted. }<br> ERROR_PRINT_CANCELLED = 63;<br> {$EXTERNALSYM ERROR_PRINT_CANCELLED}<br><br> { The specified network name is no longer available. }<br> ERROR_NETNAME_DELETED = $40;<br> {$EXTERNALSYM ERROR_NETNAME_DELETED}<br><br> { Network access is denied. }<br> ERROR_NETWORK_ACCESS_DENIED = 65;<br> {$EXTERNALSYM ERROR_NETWORK_ACCESS_DENIED}<br><br> { The network resource type is not correct. }<br> ERROR_BAD_DEV_TYPE = 66;<br> {$EXTERNALSYM ERROR_BAD_DEV_TYPE}<br><br> { The network name cannot be found. }<br> ERROR_BAD_NET_NAME = 67;<br> {$EXTERNALSYM ERROR_BAD_NET_NAME}<br><br> { The name limit for the local computer network }<br> { adapter card was exceeded. }<br> ERROR_TOO_MANY_NAMES = 68;<br> {$EXTERNALSYM ERROR_TOO_MANY_NAMES}<br><br><br><br><br>
Z zwh Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-30 #4 要知道是英文版,简体中文还是繁体正文,我的方法比较简单:<br> Const<br> ENGLISH = (SUBLANG_ENGLISH_US shl 10) or LANG_ENGLISH;<br> CHINESE = (SUBLANG_CHINESE_SIMPLIFIED shl 10) or LANG_CHINESE;<br> TCHINESE =(SUBLANG_CHINESE_TRADITIONAL SHL 10) OR LANG_CHINESE;<br> Begin <br> If SysLocale.DefaultLCID=CHINESE then<br> ShowMessage('中文简体')<br> Else<br> If SysLocale.DefaultLCID=TCHINESE then<br> ShowMessage('中文繁体')<br> Else<br> If SysLocale.DefaultLCID=English then<br> ShowMessage('英文版');<br> End;<br><br>
要知道是英文版,简体中文还是繁体正文,我的方法比较简单:<br> Const<br> ENGLISH = (SUBLANG_ENGLISH_US shl 10) or LANG_ENGLISH;<br> CHINESE = (SUBLANG_CHINESE_SIMPLIFIED shl 10) or LANG_CHINESE;<br> TCHINESE =(SUBLANG_CHINESE_TRADITIONAL SHL 10) OR LANG_CHINESE;<br> Begin <br> If SysLocale.DefaultLCID=CHINESE then<br> ShowMessage('中文简体')<br> Else<br> If SysLocale.DefaultLCID=TCHINESE then<br> ShowMessage('中文繁体')<br> Else<br> If SysLocale.DefaultLCID=English then<br> ShowMessage('英文版');<br> End;<br><br>