1:
2:
3:
4:
5:
6:
7:
8:

function GetFileCreationDateTime(Filename:String):TDateTime;
var t:TWin32FileAttributeData;
    Zeit:SYSTEMTIME;
begin
 GetFileAttributesEx(pchar(FileName),GetFileExInfoStandard,@t);
 FileTimeToSystemTime(t.ftCreationTime,Zeit);
 Result:=SystemTimeToDateTime(zeit);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function GetFileCreationDateTime(Filename:String):TDateTime;
var t:TWin32FileAttributeData;
    Zeit:SYSTEMTIME;
    MyTimeZoneInformation: TTimeZoneInformation;
    Bias:Double;
begin
 result:=now;
 if not (FileExists(Filename) or DirectoryExists(Filename)) then exit;
 case GetTimeZoneInformation(MyTimeZoneInformation) of
  1: Bias := (MyTimeZoneInformation.StandardBias+MyTimeZoneInformation.Bias) / 1440;
  2: Bias := (MyTimeZoneInformation.DaylightBias+MyTimeZoneInformation.Bias) / 1440;
 else
  Bias:=0; 
 end;
 GetFileAttributesEx(pchar(FileName),GetFileExInfoStandard,@t);
 FileTimeToSystemTime(t.ftCreationTime,Zeit);
 Result:=SystemTimeToDateTime(zeit)-Bias;
end;