Unit LongName

Classes

Functions

Types

longfile
pFILETIME
PROCESS_INFORMATION
pWIN32_FIND_DATA
tFILETIME
tStartupInfo
tSYSTEMTIME
WIN32_FIND_DATA

Constants

ACCESS_SYSTEM_SECURITY
CREATE_ALWAYS
CREATE_NEW
FILE_ATTRIBUTE_ARCHIVE
FILE_ATTRIBUTE_ATOMICWRITE
FILE_ATTRIBUTE_DIRECTORY
FILE_ATTRIBUTE_HIDDEN
FILE_ATTRIBUTE_NORMAL
FILE_ATTRIBUTE_READONLY
FILE_ATTRIBUTE_SYSTEM
FILE_ATTRIBUTE_TEMPORARY
FILE_ATTRIBUTE_XACTIONWRITE
FILE_CASE_PRESERVED_NAMES
FILE_CASE_SENSITIVE_SEARCH
FILE_FILE_COMPRESSION
FILE_FLAG_BACKUP_SEMANTICS
FILE_FLAG_DELETE_ON_CLOSE
FILE_FLAG_NO_BUFFERING
FILE_FLAG_OVERLAPPED
FILE_FLAG_POSIX_SEMANTICS
FILE_FLAG_RANDOM_ACCESS
FILE_FLAG_SEQUENTIAL_SCAN
FILE_FLAG_WRITE_THROUGH
FILE_NOTIFY_CHANGE_ATTRIBUTES
FILE_NOTIFY_CHANGE_DIR_NAME
FILE_NOTIFY_CHANGE_FILE_NAME
FILE_NOTIFY_CHANGE_LAST_WRITE
FILE_NOTIFY_CHANGE_SECURITY
FILE_NOTIFY_CHANGE_SIZE
FILE_PERSISTENT_ACLS
FILE_SHARE_READ
FILE_SHARE_WRITE
FILE_UNICODE_ON_DISK
FILE_VOLUME_IS_COMPRESSED
GENERIC_ALL
GENERIC_EXECUTE
GENERIC_READ
GENERIC_WRITE
INVALID_HANDLE_VALUE
MAXIMUM_ALLOWED
MAX_PATH
OPEN_ALWAYS
OPEN_EXISTING
READ_CONTROL
SPECIFIC_RIGHTS_ALL
STANDARD_RIGHTS_ALL
STANDARD_RIGHTS_EXECUTE
STANDARD_RIGHTS_READ
STANDARD_RIGHTS_REQUIRED
STANDARD_RIGHTS_WRITE
SYNCHRONIZE
TRUNCATE_EXISTING
WRITE_DAC
WRITE_OWNER
_DELETE

Variables

id_W32CloseHandle
id_W32CreateDirectory
id_W32CreateFile
id_W32CreateProcess
id_W32Deletefile
id_W32DosDateTimeToFileTime
id_W32FileTimeToDosDateTime
id_W32FileTimeToLocalFileTime
id_W32FileTimeToSystemTime
id_W32FindClose
id_W32FindFirstFile
id_W32FindNextFile
id_W32FlushFileBuffers
id_W32GetCurrentDirectory
id_W32GetFileAttributes
id_W32GetFileTime
id_W32GetLastError
id_W32LocalFileTimeToFileTime
id_W32MoveFile
id_W32ReadFile
id_W32RemoveDirectory
id_W32SetCurrentDirectory
id_W32SetFileAttributes
id_W32SetFilePointer
id_W32SetFileTime
id_W32ShellExecute
id_W32SystemTimeToFileTime
id_W32WaitForSingleObject
id_W32WriteFile
W32CloseHandle
W32CreateDirectory
W32CreateFile
W32CreateProcess
W32Deletefile
W32DosDateTimeToFileTime
W32FileTimeToDosDateTime
W32FileTimeToLocalFileTime
W32FileTimeToSystemTime
W32FindClose
W32FindFirstFile
W32FindNextFile
W32FlushFileBuffers
W32GetCurrentDirectory
W32GetFileAttributes
W32GetFileTime
W32GetLastError
W32LocalFileTimeToFileTime
W32MoveFile
W32ReadFile
W32RemoveDirectory
W32SetCurrentDirectory
W32SetFileAttributes
W32SetFilePointer
W32SetFileTime
W32ShellExecute
W32SystemTimeToFileTime
W32WaitForSingleObject
W32WriteFile


Functions


Types


longfile=longint

pFILETIME = ^tFILETIME

PROCESS_INFORMATION = record
hProcess : longint;
hThread : longint;
dwProcessId : longint;
dwThreadId : longint;
end;

pWIN32_FIND_DATA=^WIN32_FIND_DATA

tFILETIME = record
dwLowDateTime : longint;
dwHighDateTime : longint;
end;

tStartupInfo = record
cb : longint;
lpReserved : pchar;
lpDesktop : pchar;
lpTitle : pchar;
dwX : longint;
dwY : longint;
dwXSize : longint;
dwYSize : longint;
dwXCountChars : longint;
dwYCountChars : longint;
dwFillAttribute : longint;
dwFlags : longint;
wShowWindow : word;
cbReserved2 : word;
lpReserved2 : ^byte;
hStdInput : longint;
hStdOutput : longint;
hStdError : longint;
end;

tSYSTEMTIME = record
Year : word;
Month : word;
DayOfWeek : word;
Day : word;
Hour : word;
Min : word;
Sec : word;
Milliseconds : word;
end;

WIN32_FIND_DATA = record
dwFileAttributes : longint;
ftCreationTime : TFileTime;
ftLastAccessTime : TFileTime;
ftLastWriteTime : TFileTime;
nFileSizeHigh : longint;
nFileSizeLow : longint;
dwReserved0 : longint;
dwReserved1 : longint;
cFileName : array[0..MAX_PATH - 1] of Char;
cAlternateFileName : array[0..13] of Char;
end;
WIN32_FIND_DATA structure:

Constants

ACCESS_SYSTEM_SECURITY = $01000000

CREATE_ALWAYS = 2

CREATE_NEW = 1

FILE_ATTRIBUTE_ARCHIVE = $00000020

FILE_ATTRIBUTE_ATOMICWRITE = $00000200

FILE_ATTRIBUTE_DIRECTORY = $00000010

FILE_ATTRIBUTE_HIDDEN = $00000002

FILE_ATTRIBUTE_NORMAL = $00000080

FILE_ATTRIBUTE_READONLY = $00000001

FILE_ATTRIBUTE_SYSTEM = $00000004

FILE_ATTRIBUTE_TEMPORARY = $00000100

FILE_ATTRIBUTE_XACTIONWRITE = $00000400

FILE_CASE_PRESERVED_NAMES = 2

FILE_CASE_SENSITIVE_SEARCH = 1

FILE_FILE_COMPRESSION = $10

FILE_FLAG_BACKUP_SEMANTICS = $2000000

FILE_FLAG_DELETE_ON_CLOSE = $4000000

FILE_FLAG_NO_BUFFERING = $20000000

FILE_FLAG_OVERLAPPED = $40000000

FILE_FLAG_POSIX_SEMANTICS = $1000000

FILE_FLAG_RANDOM_ACCESS = $10000000

FILE_FLAG_SEQUENTIAL_SCAN = $8000000

FILE_FLAG_WRITE_THROUGH = $80000000

File creation flags must start at the high end since they } { are combined with the attributes

FILE_NOTIFY_CHANGE_ATTRIBUTES = $00000004

FILE_NOTIFY_CHANGE_DIR_NAME = $00000002

FILE_NOTIFY_CHANGE_FILE_NAME = $00000001

FILE_NOTIFY_CHANGE_LAST_WRITE = $00000010

FILE_NOTIFY_CHANGE_SECURITY = $00000100

FILE_NOTIFY_CHANGE_SIZE = $00000008

FILE_PERSISTENT_ACLS = 8

FILE_SHARE_READ = $00000001

Copied from Delphi 2 Windows.pas

FILE_SHARE_WRITE = $00000002

FILE_UNICODE_ON_DISK = 4

FILE_VOLUME_IS_COMPRESSED = $8000

GENERIC_ALL = $10000000

GENERIC_EXECUTE = $20000000

GENERIC_READ = $80000000

GENERIC_WRITE = $40000000

INVALID_HANDLE_VALUE = -1

MAXIMUM_ALLOWED = $02000000

MAX_PATH = 260

Copied from Delphi 2 Windows.pas

OPEN_ALWAYS = 4

OPEN_EXISTING = 3

READ_CONTROL = $00020000

Renamed from DELETE

SPECIFIC_RIGHTS_ALL = $0000FFFF

STANDARD_RIGHTS_ALL = $001F0000

STANDARD_RIGHTS_EXECUTE = READ_CONTROL

STANDARD_RIGHTS_READ = READ_CONTROL

STANDARD_RIGHTS_REQUIRED = $000F0000

STANDARD_RIGHTS_WRITE = READ_CONTROL

SYNCHRONIZE = $00100000

TRUNCATE_EXISTING = 5

WRITE_DAC = $00040000

WRITE_OWNER = $00080000

_DELETE = $00010000

The following are masks for the predefined standard access types; copied from Delphi 2 Windows.Pas

Variables

id_W32CloseHandle : longint

id_W32CreateDirectory : longint

id_W32CreateFile : longint

id_W32CreateProcess : longint

id_W32Deletefile : longint

id_W32DosDateTimeToFileTime : longint

Added 13Aug97 - BAL

id_W32FileTimeToDosDateTime : longint

id_W32FileTimeToLocalFileTime : longint

id_W32FileTimeToSystemTime : longint

id_W32FindClose : longint

id_W32FindFirstFile : longint

id_W32FindNextFile : longint

id_W32FlushFileBuffers : longint

id_W32GetCurrentDirectory : longint

Added 13Aug97 - BAL

id_W32GetFileAttributes : longint

id_W32GetFileTime : longint

id_W32GetLastError : longint

id_W32LocalFileTimeToFileTime : longint

id_W32MoveFile : longint

id_W32ReadFile : longint

id_W32RemoveDirectory : longint

id_W32SetCurrentDirectory : longint

id_W32SetFileAttributes : longint

id_W32SetFilePointer : longint

id_W32SetFileTime : longint

id_W32ShellExecute : longint

id_W32SystemTimeToFileTime : longint

id_W32WaitForSingleObject : longint

id_W32WriteFile : longint

W32CloseHandle : function(hfile,id: longint): longbool

W32CreateDirectory : function(path: pchar; security: pointer; id: longint): longbool

W32CreateFile : function(lpszName: pchar; fdwAccess, fdwShareMode: longint; lpsa: pointer; fdwCreate, fdwAttrsAndFlags, hTemplateFile,id: longint): longint

W32CreateProcess : function(lpszImageName,lpszCommandLine: pchar; lpsaProcess,lpsaThread: pointer; fInheritHandles: longbool; fdwCreate: longint; lpvEnvironment: pointer; lpszCurDir: pchar; var lpsiStartInfo: tstartupinfo; var lppiProcInfo: PROCESS_INFORMATION; id: longint): longbool

W32Deletefile : function(path: pchar; id: longint): longbool

W32DosDateTimeToFileTime : function(wFatDate, wFatTime: Word; lpFileTime: pFILETIME; id: longint): longbool

W32FileTimeToDosDateTime : function(var lpfiletime: tFILETIME; var lpFatDate, lpFatTime: word; id: longint): longbool

Next 2 added 13Aug97 - BAL

W32FileTimeToLocalFileTime : function(var lpft, lpftlocal: tFILETIME; id: longint): longbool

W32FileTimeToSystemTime : function(var lpft: tFILETIME; var lpst: tsystemtime; id: longint): longbool

W32FindClose : function(hFindFile: longint; id: longint): Longbool

W32FindFirstFile : function(lpszSearchFile: pchar; var lpffd: WIN32_FIND_DATA; id: longint): longint

W32FindNextFile : function(hFindFile: longint; var lpffd: WIN32_FIND_DATA; id: longint): longbool

W32FlushFileBuffers : function(hfile,id: longint): longbool

W32GetCurrentDirectory : function(cchCurDir: longint; lpszCurDir: pchar; id: longint): longint

W32GetFileAttributes : function(path: pchar; id: longint): longint

W32GetFileTime : function(hFile: longint; lpftCreation,lpftLastAccess,lpftLastWrite: pfiletime; id: longint): longbool

W32GetLastError : function(id: longint): longint

W32LocalFileTimeToFileTime : function(var lpftlocal, lpft: tFILETIME; id: longint): longbool

W32MoveFile : function(lpszExisting, lpszNew: pchar; id: longint): longbool

W32ReadFile : function(hFile: longint; var lpBuffer; nNumberOfBytesToRead: longint; var lpNumberOfBytesRead: longint; lpOverlapped: pointer; id: longint): longbool

W32RemoveDirectory : function(path: pchar; id: longint): longbool

W32SetCurrentDirectory : function(lpszCurDir: pchar; id: longint): longbool

W32SetFileAttributes : function(path: pchar; attr,id: longint): longbool

W32SetFilePointer : function(hFile,lDistanceToMove: longint; lpDistanceToMoveHigh: pointer; dwMoveMethod,id: longint): longint

W32SetFileTime : function(hFile: longint; lpftCreation,lpftLastAccess,lpftLastWrite: pfiletime; id: longint): longbool

W32ShellExecute : function(hwnd: longint; lpszOp,lpszFile,lpszParams,lpszDir: pchar; wShowCmd,id: longint): longint

W32SystemTimeToFileTime : function(var lpst: tsystemtime; var lpft: tFILETIME; id: longint): longbool

W32WaitForSingleObject : function(hObject,dwTimeout,id: longint): longint

W32WriteFile : function(hFile: longint; var lpBuffer; nNumberOfBytesToWrite: longint; var lpNumberOfBytesWritten: longint; lpOverlapped: pointer; id: longint): longbool