Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: "FileSetDate" auch für Ordner?

    Delphi
    by Tiemo, 5. Jun 2006
  Bei mir ging der o.g. Code nur für Files. Ich fand dann folgendes:
  
  http://thehacker.host.sk/addtime/addtimethread.html
  
  Windows NT: You can obtain a handle to a directory by calling the CreateFile function with the FILE_FLAG_BACKUP_SEMANTICS flag set, as follows:
  
  hDir = CreateFile (
  DirName,
  GENERIC_READ,
  FILE_SHARE_READ|FILE_SHARE_DELETE,
• Forum: Sonstige Fragen zu Delphi

  Re: "FileSetDate" auch für Ordner?

    Delphi
    by Tiemo, 2. Jun 2006
  Funzt nicht bei Ordnern (bei mir). Es muss heißen:
  
  Function SetFileAge(Const FileName: AnsiString; Age: TFileTime): Boolean;
  Var F: THandle;
  
  Begin
  Result := False;
  F := CreateFileA(PAnsiChar(FileName), GENERIC_WRITE,
  FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE, nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
  If F = INVALID_HANDLE_VALUE Then Exit;