Nastavení času souboru

function SetOldFileTime(fName:string):boolean;
var
FSNameBuffer: array [0..255] of char;
fHandle : cardinal;
lpFindFileData: _win32_Find_Dataa;
begin
Result := False;
try
//Mazíní bufferu
FillChar(FSNameBuffer,SizeOf(FSNameBuffer),#0);
// Překopíruje String název do PCHar resp. Array of char
StrPCopy (FSNameBuffer,fName);
// kontrola existence souboru,
// v proměnné lpFindFileData najdete podrobné informace o nastavení atributů a časů
fHandle := FindFirstFile (FSNameBuffer,lpFindFileData);
if fHandle <> INVALID_HANDLE_VALUE then
begin
// uzavření hledání pri FindFirst
Windows.FindClose(fHandle);
// Otevření souboru pro zápis
fHandle:= CreateFile (FSNameBuffer, GENERIC_WRITE, 0, nil, OPEN_ALWAYS,
FILE_ATTRIBUTE_NORMAL or FILE_ATTRIBUTE_ARCHIVE, 0);
// vlastní nastavení času a pokud se to povedlo Result := True
if SETFileTime (fHandle, @lpFindFileData.ftCreationTime , @lpFindFileData.ftCreationTime,
@lpFindFileData.ftCreationTime) then Result := True;
// uzavření souboru
CloseHandle (fHandle);
end;
except
Result := False;
end;
end;