Datumsvergleich

[TheMiller]

Hey Leute

wenn ich eine Datei auf Diskette ziehe, wird sie doch mit dem aktuellem Datum versehen. Wie kann ich das Datum auslesen lassen und im Programm prüfen, ob sie am 22.10 oder am 23.12 ausgespeilt wurde?

Hat jmd. eine Idee hatte dies schon mal verwendet

Delphi-Quellcode:

var  FI: TWin32FileAttributeData;
var  ST: TSystemTime;
begin

  if GetFileAttributesEx('A:\', GetFileExInfoStandard, @FI) then
  begin
    FileTimeToSystemTime(FI.ftCreationTime, ST);
    ShowMessage( 
      IntToStr(ST.wYear) + '\' +
      IntToStr(ST.wMonth) + '\' + 
      IntToStr(ST.wDay) + ' ' +
      IntToStr(ST.wHour) + ':' + 
      IntToStr(ST.wMinute) + ':' +
      IntToStr(ST.wSecond)
    );

aber es kommt immer folgendes raus 1979/10/10 22:0:0 ich verstehe das nciht *g*

[Christian Seehase]

Moin DJ-SPM,

ich hab' das mal gerade ausprobiert.
Nehme ich Deinen Originalcode erhalte ich

1979/12/32 22:0:0

Gebe ich hingegen einen Dateinamen an, erhalte ich das korrekte Datum.

if GetFileAttributesEx('A:\TESTDATEI.TXT', GetFileExInfoStandard, @FI) then