Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
3. Jun 2006
Da stellt sich mir nur eine Frage ... bei mir ging es (bei meinen Tests damals) ... was hat FILE_FLAG_BACKUP_SEMANTICS mit Verzeichnissen zu tun :shock:
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
20. Mai 2006
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, 0, 0);
If F = INVALID_HANDLE_VALUE Then Exit;
{CreateTime} Result := SetFileTime(F, @Age, nil, nil);
...