Manipulation af dato/tid på filer og biblioteker

Jo, du skal bruge nogle API kald .. kan dog ikke lige huske hvad de hedder .. vender tilbage hvis andre ikke svarer

Prøv API kaldet :

The SetFileTime function sets the date and time that a file was created, last accessed, or last modified.

BOOL SetFileTime(

    HANDLE hFile,    // identifies the file
    CONST FILETIME *lpCreationTime,    // time the file was created
    CONST FILETIME *lpLastAccessTime,    // time the file was last accessed
    CONST FILETIME *lpLastWriteTime     // time the file was last written
  );


/Martin

martin >>> jeg har ikke arbejdet med API kald i Delphi før - hvor kan man finde hjælp til det ?

der står noget i Delphi hjælp om at deklarere en procedure \"eksternt\", så kan programmet bruge funktioner i DLL\'erne, der ligger i windows - kan det bruges ?

NEj det behøver du ikke, du skal bare havde en FileHandle, den kan du også få med et api kald, det er ikke anderledes en alm delphi kode, der er mulighed for at lave et hjælpe menu hvis du custimizer din toolbar og går ind under hjælp kan du smide en API-hjælpe knap op på din menu-bar ( er anbefalet af borland ).

Du laver api kald som et hvert andet funktions kald

/Martin

Så kom jeg hjem, her er det kode jeg har til emnet:

JCL (Jedi Code Library) indeholder 3 funktioner til formålet:
function SetFileLastWrite(const FileName: string; const DateTime:
TDateTime): Boolean;
function SetFileLastAccess(const FileName: string; const DateTime:
TDateTime): Boolean;
function SetFileCreation(const FileName: string; const DateTime: TDateTime):
Boolean;

<SNIP>
function SetFileTimesHelper(const FileName: string; const DateTime:
TDateTime; Times: TFileTimes): Boolean;
var
  Handle: THandle;
  FileTime: TFileTime;
  SystemTime: TSystemTime;
begin
  Result := False;
  Handle := CreateFile(PChar(FileName), GENERIC_WRITE, FILE_SHARE_READ, nil,
    OPEN_EXISTING, 0, 0);
  if Handle <> INVALID_HANDLE_VALUE then
  try
    //SysUtils.DateTimeToSystemTime(DateTimeToLocalDateTime(DateTime),
SystemTime);
    SysUtils.DateTimeToSystemTime(DateTime, SystemTime);
    if Windows.SystemTimeToFileTime(SystemTime, FileTime) then
    begin
      case Times of
        ftLastAccess:
          Result := SetFileTime(Handle, nil, @FileTime, nil);
        ftLastWrite:
          Result := SetFileTime(Handle, nil, nil, @FileTime);
        ftCreation:
          Result := SetFileTime(Handle, @FileTime, nil, nil);
      end;
    end;
  finally
    CloseHandle(Handle);
  end;
end;

//--------------------------------------------------------------------------
----

function SetFileLastAccess(const FileName: string; const DateTime:
TDateTime): Boolean;
begin
  Result := SetFileTimesHelper(FileName, DateTime, ftLastAccess);
end;

//--------------------------------------------------------------------------
----

function SetFileLastWrite(const FileName: string; const DateTime:
TDateTime): Boolean;
begin
  Result := SetFileTimesHelper(FileName, DateTime, ftLastWrite);
end;

//--------------------------------------------------------------------------
----

function SetFileCreation(const FileName: string; const DateTime: TDateTime):
Boolean;
begin
  Result := SetFileTimesHelper(FileName, DateTime, ftCreation);
end;

//--------------------------------------------------------------------------
----</SNIP>

torbenmelander >>> Jeg endte med noget kode, der ligner din til forveksling - jeg brugte også SetFileTime og var også nødt til at konvertere frem og tilbage mellem SYSTEMTIME, FILETIME og TDateTime.
Kan dit program håndtere biblioteker ? Jeg brugte det eksempel, der er i Windows API hjælpen, til at få en handle til et bibliotek (det er også CreateFile, der bliver brugt, bare med lidt anderledes parametre).

slowaterz > det ved jeg ikke, prøv ;-)