Buscar por:

Mostrando a lista de último acesso dos arquivos abertos

Código

Unit Uultimoacesso; 

{object Form1: TForm1 

Left = 230 

Top = 186 

Width = 435 

Height = 167 

Caption = 'Ultimo Acesso' 

Font.Charset = DEFAULT_CHARSET 

Font.Color = clWindowText 

Font.Height = -16 

Font.Name = 'Arial' 

Font.Style = [] 

PixelsPerInch = 96 

TextHeight = 18 

object Label1: TLabel 

Left = 6 

Top = 11 

Width = 53 

Height = 18 

Caption = 'Arquivo' 

end 

object Label2: TLabel 

Left = 6 

Top = 58 

Width = 101 

Height = 18 

Caption = 'Último Acesso' 

end 

object EdArquivo: TEdit 

Left = 6 

Top = 28 

Width = 281 

Height = 26 

TabOrder = 0 

end 

object BtSeleciona: TButton 

Left = 226 

Top = 82 

Width = 87 

Height = 31 

Caption = 'Seleciona' 

TabOrder = 1 

OnClick = BtSelecionaClick 

end 

object EdUltimoAcesso: TEdit 

Left = 6 

Top = 82 

Width = 204 

Height = 26 

TabOrder = 2 

end 

object ODSelecionaArquivo: TOpenDialog 

Left = 352 

Top = 8 

end 

end 

} 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 

StdCtrls; 

type 

TForm1 = class(TForm) 

EdArquivo: TEdit; 

BtSeleciona: TButton; 

Label1: TLabel; 

Label2: TLabel; 

EdUltimoAcesso: TEdit; 

ODSelecionaArquivo: TOpenDialog; 

procedure BtSelecionaClick(Sender: TObject); 

private 

{ Private declarations } 

public 

{ Public declarations } 

end; 

var 

Form1: TForm1; 

implementation 

{$R *.DFM} 

procedure TForm1.BtSelecionaClick(Sender: TObject); 

var 

FileHandle : THandle; 

LocalFileTime : TFileTime; 

DosFileTime : DWORD; 

LastAccessdTime : TDateTime; 

FindData : TWin32FindData; 

NomeArquivo : array[0..255] of char; 

begin 

if OdSelecionaArquivo.Execute then 

begin 

EdArquivo.Text := OdSelecionaArquivo.FileName; 

StrPCopy(NomeArquivo,OdSelecionaArquivo.FileName); 

FileHandle := FindFirstFile(NomeArquivo, 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); 

LastAccessdTime := FileDateToDateTime(DosFileTime); 

EdUltimoAcesso.Text := DateTimeToStr(LastAccessdTime); 

end; 

end; 

end; 

end; 

end.