> moguce uklopiti-ne znam, ali ja nisam uspeo. Dakle da li neko moze da mi kaze kako da promenim datum kreiranja fajla
> neposredno posle kreiranja. KORISTIM Delphi 5.
Može se uraditi pomoću SetFileTime API funkcije:
Code:
uses
JclDateTime;
procedure ChangeFileDateTime(const AFile: string;
ACreationTime, ALastAccessTime, ALastWriteTime: TDateTime);
var
fs: TFileStream;
f1, f2, f3: TFiletime;
begin
fs := TFilestream.Create(AFile, fmOpenWrite or fmShareExclusive);
try
f1 := LocalDatetimeToFiletime(ACreationTime);
f2 := LocalDatetimeToFiletime(ALastAccessTime);
f3 := LocalDatetimeToFiletime(ALastWriteTime);
if not SetFileTime(fs.handle, @f1, @f2, @f3) then
RaiseLastOSError;
finally
fs.free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ChangeFileDateTime('C:\Proba.txt', now, now, now);
end;
Potpis