[delphi] 3 proste pytanka

Witam
Mam małe (i zapewne proste pytanka)

1. Jak zmienić datę utworzenia pliku
2. Jak zmienić datę ostatniego otwarica pliku
3. jak zmienić datę modyfikacji pliku

-=-=-=-=-=-=-=-=-
LUSIO pozdrawia

function Modyfikacja(FFile : String; Data : String):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;
end;

Chyba sie polapiesz o co biega :-)--pozdrawiam PEDROS {hello}

Szukasz pomocy - najszybsza na ircu
#4programmers.net

Masz cos ciekawego. Napisz gotowca:
http://www.4programmers.net/delphi/gotowce/index.php?action=create

Delphi 6 Personal.

nie iwem czy da sie zmienic czas utworzenia plilu...za dobrze by było..
popróbuj coś zmienić zamiast [email protected]
POZDRAWIAM
DELPHI RULEZ
NIECH MOCz BĘDZIE Z WAMI
:-))

Analogicznie do przykładu jaki podał Pedros można ustawić datę utworzenia i ostatniego dostępu do pliku, ale ... Trzeba otworzyć plik przy użyciu GENERIC_WRITE.
UchwytPliku := CreateFile(NazwaPliku, GENERIC_WRITE, 0, nil, , OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0 {nie jestem pewnien czy tak powinno być});
--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

Pomoc do Delphi po polsku. http://www.4programmers.net/forum/index.php?action=show&id=21335&c=2

Oficjalny kanał IRC serwisu 4programers:
serwer: warszawa.ircnet.pl sieć: POLNet kanał: #4programmers.net