Unit PLongname

Classes

Functions

Types

longfile
pFILETIME
PROCESS_INFORMATION
pWIN32_FIND_DATA
tFILETIME
tStartupInfo
tSYSTEMTIME
WIN32_FIND_DATA

Constants

Variables

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


Functions


Types


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:

Constants


Variables

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