Unit File32 |
* Enhanced 32-bit FileListBox (Freeware) * * * Author: Paul K.F. Leung * Date: 16th Dec, 95 * Email: cs_paul@ug.cs.ust.hk
Classes |
Functions |
Register -
Types |
fd
pfd
TFileType
TFileTypeSet
ttime
Constants |
Variables |
i
id_W32FindClose
id_W32FindFirstFile
id_W32FindNextFile
localtime
lr
ok
W32FindClose
W32FindFirstFile
W32FindNextFile
Functions |
Types |
fd = record
dwFileAttributes : longint;
ftCreationTime : ttime;
ftLastAccessTime : ttime;
ftLastWriteTime : ttime;
nFileSizeHigh : longint;
nFileSizeLow : longint;
dwReserved0 : longint;
dwReserved1 : longint;
cFileName : array[0..259] of char;
cAlternateFileName : array[0..13] of char;
end;
pfd = ^fd
TFileType = ( ftHidden , ftSystem, ftArchive, ftReadOnly );
TFileTypeSet = set of TFileType
ttime = array[0..1] of longint;
Constants |
Variables |