Frage zu Ordner kopieren

[Nogge]

Wer sucht, der findet: datei erstellungsdatum

Dann einfach die Function so z.B. benutzen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var ayear,amonth,aday,ahour,amin,asec,amsec:word;
begin
  DecodeDate(GetCreationTimeOfFile(Edit1.Text),ayear,amonth,aday);
  DecodeTime(GetCreationTimeOfFile(Edit1.Text),ahour,amin,asec,amsec);
  label1.Caption:=inttostr(ayear)+' '+inttostr(amonth)+' '+inttostr(aday)+#10#13+
                  inttostr(ahour)+' '+inttostr(amin)+' '+inttostr(asec);
  { -- leichter, da weniger Code und keine Variablen genutzt werden -- }
  label1.Caption:=DateToStr(GetCreationTimeOfFile(Edit1.Text))+' '+
                  TimeToStr(GetCreationTimeOfFile(Edit1.Text));
end;

Ein Vergleich zw. der aktuellen Uhrzeit und der gewünschten Zeit würde so aussehen:
if TimeToStr(Now) = '13:59:40' then