Einzelnen Beitrag anzeigen

DelTurbo

Registriert seit: 12. Dez 2009
Ort: Eifel
1.194 Beiträge
 
Delphi 2007 Architect
 
#7

AW: FindFirst TSearchRec setzen

  Alt 14. Mai 2018, 12:25
Danke dir....

Wenn ich es so mache, kann ich wirklich die 3 Zeiten lesen. Ob ich die auch setzen kann schaue ich gleich nach. Erstmal wie man es liest.

Delphi-Quellcode:
var
  CreationTime,LastAccessTime,LastWriteTime :TFileTime;
procedure ReadDirTime;
var
  fh :Integer;
begin
   fh:=CreateFile('C:\dia',
   GENERIC_READ + GENERIC_WRITE,
   FILE_SHARE_READ,
   nil,
   OPEN_EXISTING,
   FILE_ATTRIBUTE_DIRECTORY+FILE_FLAG_BACKUP_SEMANTICS,
   0);
    GetFileTime(fh,@CreationTime,@LastAccessTime,@LastWriteTime);
    CloseHandle(fh);
end;
Das ist natürlich nicht auf meinem Mist gewachsen. https://entwickler-forum.de/showthre...ll=1#post48334
Alle meine Rechtschreibfehler sind Urheberrechtlich geschützt!!
  Mit Zitat antworten Zitat