09 April 2009

Informasi Sebuah File

da kalanya kita ingin mengetahui informasi detail tentang suatu file dengan menggunakan delphi. Misalnya kita ingin mengetahui ukuran file, kapan file itu dibuat, kapan suatu file terakhir diakses dan lain sebagaimya.

Baiklah kita mulai saja .......

1. buatlah project baru.

2. pada form1 masukan komponen Memo1, Opendialog1, dan button1, ganti property Caption milik Botton1 dengan Load File dan kosongkan Property Lines milik Memo1.

3. double klik pada komponen Button1 hingga muncul Even OnClick, lalu masukan kode lengkap berikut :
procedure TForm1.Button1Click(Sender: TObject);
var
MyS: TWin32FindData;
FName: string;
MyTime: TFileTime;
MySysTime: TSystemTime;
begin
if OpenDialog1.Execute=True then
begin
Memo1.Clear;
//  FName:=Edit1.Text;
FName:=OpenDialog1.FileName;
with Memo1.Lines do
begin
 Add('Directory - '+ExtractFileDir(FName));
 Add('Drive - '+ExtractFileDrive(FName));
 Add('Extensi - '+ExtractFileExt(FName));
 Add('Nama File - '+ExtractFileName(FName));
 Add('Path - '+ExtractFilePath(FName));
 Add('');

 FindFirstFile(PChar(FName), MyS);
 case MyS.dwFileAttributes of
   FILE_ATTRIBUTE_COMPRESSED: Add('Attribute - File is compressed');
   FILE_ATTRIBUTE_HIDDEN: Add('Attribute - File is hidden');
   FILE_ATTRIBUTE_NORMAL: Add('Attribute - File has no any attributes');
   FILE_ATTRIBUTE_READONLY: Add('Attribute - Read only file');
   FILE_ATTRIBUTE_SYSTEM: Add('Attribute - System file');
   FILE_ATTRIBUTE_TEMPORARY: Add('Attribute - File for temporary storage');
   FILE_ATTRIBUTE_ARCHIVE: Add('Attribute - Archive file');
 end;

 MyTime:=MyS.ftCreationTime;
 FileTimeToSystemTime(MyTime, MySysTime);
 Add(
   'Jam Pembuatan - '+
   IntToStr(MySysTime.wDay)+'.'+
   IntToStr(MySysTime.wMonth)+'.'+
   IntToStr(MySysTime.wYear)+'  '+
   IntToStr(MySysTime.wHour)+':'+
   IntToStr(MySysTime.wMinute));

 MyTime:=MyS.ftLastAccessTime;
 FileTimeToSystemTime(MyTime, MySysTime);
 Add(
   'Terakhir di akses - '+
   IntToStr(MySysTime.wDay)+'.'+
   IntToStr(MySysTime.wMonth)+'.'+
   IntToStr(MySysTime.wYear));

 Add('Ukuran - '+IntToStr(MyS.nFileSizeLow));
 Add('Alternate name - '+StrPas(MyS.cAlternateFileName));
end;
end;
end;

4. Coba jalankan project tersebut.


info

di
Label: