Data utworzenia pliku

Witam!

przekopalem przez forum i nie znalazlem odpowiedzi na moje pytanie, wiec pytam:
W jaki sposob zmienic date utworzenia pliku?

Mam programik kopiujacy pliki, ktory automatycznie zamienia date kopiowanego pliku na aktualna w systemie (bez mojej ingerencji).
Ja potrzebuje aby plik posiadal swoja orginalna date utworzenia.

Jesli ktos wie jak to zrobic to prosze o pomoc

Posdrofionka :)

procedure FSetFileTime(FFile : String; Data : String); 
var  Age, FHandle: integer; 
       LocalFileTime, FileTime: TFileTime; 
       F: File; 
begin 
 if FileExists(FFile) then 
  begin 
     AssignFile(F, FFile); 
     Reset(F); 
     try 
      Age := DateTimeToFileDate(StrToDateTime(Data)); 
      FHandle := TFileRec(F).Handle; 
      DosDateTimeToFileTime(LongRec(Age).Hi, LongRec(Age).Lo, 
      LocalFileTime); 
      LocalFileTimeToFileTime(LocalFileTime, FileTime); 
      SetFileTime(FHandle, nil, nil, @FileTime); {ustawia datę ostatniej modifikacji } 
   finally 
      CloseFile(F); 
   end; 
 end else ShowMessage('Błąd! Plik nie istnieje!'); 
end; 

<font color="blue">Teraz żeby zmienić datę piszesz:

FSetFileTime('C:Delphi.zip', '01-01-01');

W tym wypadku na 01-01-2001 r. </span>

To nie moja procka, także nie ręcze za błędy :-)