Unit TouchF

******************************************************************* * Dekleris Bill, April 1998. * * e-mail address : quasar@hol.gr * ******************************************************************* * This is a small utility which can be used * * to set file date and time stamps. * * --------------------------------------------------------------- * * You may freely use both this utility and the source code. * * If you eventually USE this utility, * * please notify me by e-mail ( quasar@hol.gr ) * * (this is NO obligation of yours, * * I need it solely for statistical purposes!) * * --------------------------------------------------------------- * * If you make any modifications or build another program based * * on this utility, please let me know, I might be interested ... * *******************************************************************

Classes

TForm1 -

Functions

SetFileDate - Public declarations

Types

TCoords

Constants

IniFile_C

Variables

Form1


Functions


procedure SetFileDate(sFileName, sDate: string);

Public declarations

Types


TCoords = record
X : Integer;
Y : Integer;
W : Integer;
H : Integer;
State : TWindowState;
end;

Constants

IniFile_C = '.\touch.ini'


Variables

Form1 : TForm1