[es] - Kako da promenim datum upisa(kreiranja) fajla

milanescape
Kg

Član broj: 54988
Poruke: 50
*.ptt.yu.

Profil

Kako da promenim datum upisa(kreiranja) fajla

^{27.01.2007. u 14:06 - pre 209 meseci}

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

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Kako da promenim datum upisa(kreiranja) fajla

^{27.01.2007. u 14:36 - pre 209 meseci}

> 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;

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

milanescape
Kg

Član broj: 54988
Poruke: 50
*.ptt.yu.

Profil

Re: Kako da promenim datum upisa(kreiranja) fajla

^{28.01.2007. u 00:17 - pre 209 meseci}

Hvala Igore
OK je

Odgovor na temu

milanescape
Kg

Član broj: 54988
Poruke: 50
*.ptt.yu.

Profil

Re: Kako da promenim datum upisa(kreiranja) fajla

^{28.01.2007. u 00:42 - pre 209 meseci}

Nece
Ne prihvata JclDateTime u listi uses
a posle toga ne prepoznaje

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

Odgovor na temu

milance_kg

Član broj: 59131
Poruke: 185
212.200.181.*

+22 Profil

Re: Kako da promenim datum upisa(kreiranja) fajla

^{28.01.2007. u 07:40 - pre 209 meseci}

Potrebna ti je JEDI zbirka komponenti,
potrazi na google-u , mislim oko 11,2mb (JVCL330CompleteJCL198-Build2509.7z).

Odgovor na temu

milanescape
Kg

Član broj: 54988
Poruke: 50
*.ptt.yu.

Profil

Re: Kako da promenim datum upisa(kreiranja) fajla

^{28.01.2007. u 21:07 - pre 209 meseci}

Hvala "zemo" Milance. Pokupio sam Jedi komponente. Sve radi Ok.
& hvala svima
Poz Milan

Odgovor na temu

milance_kg

Član broj: 59131
Poruke: 185
212.200.184.*

+22 Profil

Re: Kako da promenim datum upisa(kreiranja) fajla

^{29.01.2007. u 13:44 - pre 209 meseci}

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).

Odgovor na temu