Unit File32

* Enhanced 32-bit FileListBox (Freeware) * * * Author: Paul K.F. Leung * Date: 16th Dec, 95 * Email: cs_paul@ug.cs.ust.hk

Classes

TFile32ListBox -

Functions

Register -

Types

fd
pfd
TFileType
TFileTypeSet
ttime

Constants

DefaultDir
DefaultMask

Variables

i
id_W32FindClose
id_W32FindFirstFile
id_W32FindNextFile
localtime
lr
ok
W32FindClose
W32FindFirstFile
W32FindNextFile


Functions


procedure Register;


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

DefaultDir = 'c:\'

DefaultMask = '*.*'


Variables

i : integer

id_W32FindClose : LongInt

id_W32FindFirstFile : LongInt

Declaration of a unique identifier for each 32 bit function

id_W32FindNextFile : LongInt

localtime : ttime

lr : fd

ok : longbool

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

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

Declaration of the 32 bit functions

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