Új hozzászólás Aktív témák

• #1308 ViragL tag föccer #1307

  Új Válasz 2006-11-06 10:17:52 #1308

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ViragL

  tag

  válasz föccer #1307 üzenetére

  Forrás: Jon Erik Oterhals Utolsó módosítás: 1998. december 17.
  A fájl utolsó hozzáférésének (használatának) időpontját az alábbi eljárással tudod megjeleníteni. (A kérdéses fájl nevét (elérési útját) az AnyFile.FIL helyére kell behelyettesíteni.)
  procedure TForm1.Button1Click(Sender: TObject);
  
  var
  FileHandle : THandle;
  LocalFileTime : TFileTime;
  DosFileTime : DWORD;
  LastAccessedTime : TDateTime;
  FindData : TWin32FindData;
  
  begin
  
  FileHandle := FindFirstFile('AnyFile.FIL', FindData);
  
  if FileHandle <> INVALID_HANDLE_VALUE then
  
  begin
  
  Windows.FindClose(Handle);
  
  if (FindData.dwFileAttributes and
  FILE_ATTRIBUTE_DIRECTORY) = 0 then
  
  begin
  
  FileTimeToLocalFileTime(FindData.ftLastWriteTime,
  LocalFileTime);
  
  FileTimeToDosDateTime(LocalFileTime,
  LongRec(DosFileTime).Hi,LongRec(DosFileTime).Lo);
  
  LastAccessedTime := FileDateToDateTime(DosFileTime);
  
  Label1.Caption := DateTimeToStr(LastAccessedTime);
  
  end;
  
  end;
  
  MOD: gugli tudja
  
  [Szerkesztve]

Új hozzászólás Aktív témák