Search results for 'FILE_ATTRIBUTE_DIRECTORY'. 1 post(s) found.
- 2007/09/10 Get File 'Last Modified' attribute
This function is useful to get file attribute.
Usage:
label1.Caption:=FileLastModified('c:\autoexec.bat') ;
In addition, below function must be included in order to use above function.
function FileLastModified(const TheFile: string): string;
var
FileH : THandle;
LocalFT : TFileTime;
DosFT : DWORD;
LastAccessedTime : TDateTime;
FindData : TWin32FindData;
begin
Result := '';
FileH := FindFirstFile(PChar(TheFile), FindData) ;
if FileH <> INVALID_HANDLE_VALUE then begin
Windows.FindClose(Handle) ;
if (FindData.dwFileAttributes AND
FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
FileTimeToLocalFileTime
(FindData.ftLastWriteTime,LocalFT) ;
FileTimeToDosDateTime
(LocalFT,LongRec(DosFT).Hi,LongRec(DosFT).Lo) ;
LastAccessedTime := FileDateToDateTime(DosFT) ;
Result := DateTimeToStr(LastAccessedTime) ;
end;
end;
end;
var
FileH : THandle;
LocalFT : TFileTime;
DosFT : DWORD;
LastAccessedTime : TDateTime;
FindData : TWin32FindData;
begin
Result := '';
FileH := FindFirstFile(PChar(TheFile), FindData) ;
if FileH <> INVALID_HANDLE_VALUE then begin
Windows.FindClose(Handle) ;
if (FindData.dwFileAttributes AND
FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
FileTimeToLocalFileTime
(FindData.ftLastWriteTime,LocalFT) ;
FileTimeToDosDateTime
(LocalFT,LongRec(DosFT).Hi,LongRec(DosFT).Lo) ;
LastAccessedTime := FileDateToDateTime(DosFT) ;
Result := DateTimeToStr(LastAccessedTime) ;
end;
end;
end;
Another posts included in "Delphi"
| How to Split and Merge Files (0) | 2007/09/10 |
| Path shortener: c:\AB\C...DE\F.ghi (0) | 2007/09/10 |
| Reading a directory content (0) | 2007/09/10 |
| From/to the 8.3 (short) format to/from the long format (0) | 2007/09/10 |
| Delete folders recursively (0) | 2007/09/10 |
| Delete files with the ability to UNDO (0) | 2007/09/10 |
| Does my CD-ROM drive contain an audio CD? (0) | 2007/09/10 |
| Convert a mapped drive to a full UNC path (0) | 2007/09/10 |
Delphi File System Control,
dwFileAttributes,
FileTimeToDosDateTime,
FILE_ATTRIBUTE_DIRECTORY,
FindFirstFile
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/29 00:00
moneyideas
-
Subject different money making ideas
2010/01/29 08:12
moneyideas
-
Subject different money making ideas
2010/01/31 16:39
moneyideas
Prev
Rss Feed