[ milanescape @ 27.01.2007. 14:06 ] @
Ovo sam nasao u temi "Kako promeniti vreme upisa fajla na zeljeno mesto"-medjutim ja koristim Delphi 5, a sve sto sam nasao odnosi se na PHP. Mozda je to i moguce uklopiti-NEZNAM, ali ja nisam uspeo. Dakle da li neko moze da mi kaze kako da promenim datum kreiranja fajla neposredno posle kreiranja. KORISTIM Delphi 5.
Unapred hvala
[ savkic @ 27.01.2007. 14:36 ] @
> 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;

[ milanescape @ 28.01.2007. 00:17 ] @
Hvala Igore
OK je
[ milanescape @ 28.01.2007. 00:42 ] @
Nece
Ne prihvata JclDateTime u listi uses
a posle toga ne prepoznaje

LocalDatetimeToFiletime(ACreationTime);
LocalDatetimeToFiletime(ALastAccessTime);
LocalDatetimeToFiletime(ALastWriteTime);

[ milance_kg @ 28.01.2007. 07:40 ] @
Potrebna ti je JEDI zbirka komponenti,
potrazi na google-u , mislim oko 11,2mb (JVCL330CompleteJCL198-Build2509.7z).
[ milanescape @ 28.01.2007. 21:07 ] @
Hvala "zemo" Milance. Pokupio sam Jedi komponente. Sve radi Ok.
& hvala svima
Poz Milan
[ milance_kg @ 29.01.2007. 13:44 ] @
Pazi stvarno!

Strasno mi je drago da ima jos Delphi programera iz KG-a
(a verovatno ih ima jos mnogo vise)
no imenjace i 'zemo'
imas od mene p.m.(Privatna poruka).