longfile
pFILETIME
PROCESS_INFORMATION
pWIN32_FIND_DATA
tFILETIME
tStartupInfo
tSYSTEMTIME
WIN32_FIND_DATA
id_W32CloseHandle
id_W32CreateDirectory
id_W32CreateFile
id_W32CreateProcess
id_W32Deletefile
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
W32FileTimeToLocalFileTime
W32FileTimeToSystemTime
W32FindClose
W32FindFirstFile
W32FindNextFile
W32FlushFileBuffers
W32GetCurrentDirectory
W32GetFileAttributes
W32GetFileTime
W32GetLastError
W32LocalFileTimeToFileTime
W32MoveFile
W32ReadFile
W32RemoveDirectory
W32SetCurrentDirectory
W32SetFileAttributes
W32SetFilePointer
W32SetFileTime
W32ShellExecute
W32SystemTimeToFileTime
W32WaitForSingleObject
W32WriteFile
longfile=longint
Functions to use long filenames
Renamed from LongName.pas 6/12/1998 Paul Rice to avoid conflicts with others' work.} {All functions start with "W32" to distinguish them from 16 bit functions} {To call a function, use it like a normal function, with one exception:
the last parameter must be the id value for that function. Example:
longhandle:=W32FindFirstFile('c:\*.*',finddata,id_W32FindFirstFile);} {VERY IMPORTANT: All these functions work fine on Windows 95, but NOT all work on
Windows NT:
- W32SetCurrentDirectory returns true, but does NOT actually change the current directory
all other functions seem to work fine, but test your application on NT before saying that
it runs fine!
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 : array[0..1] of longint;
ftLastAccessTime : array[0..1] of longint;
ftLastWriteTime : array[0..1] of longint;
nFileSizeHigh : longint;
nFileSizeLow : longint;
dwReserved0 : longint;
dwReserved1 : longint;
cFileName : array[0..259] of char;
cAlternateFileName : array[0..13] of char;
end;
WIN32_FIND_DATA structure:
id_W32CloseHandle : longint
id_W32CreateDirectory : longint
id_W32CreateFile : longint
id_W32CreateProcess : longint
id_W32Deletefile : longint
id_W32FileTimeToLocalFileTime : longint
id_W32FileTimeToSystemTime : longint
id_W32FindClose : longint
id_W32FindFirstFile : longint
id_W32FindNextFile : longint
id_W32FlushFileBuffers : longint
id_W32GetCurrentDirectory : longint
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
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