2 replies to this topic

[enecumene]

Pues eso, colocaremos un TMemo y un TButton en un form y colocaremos en su evento OnClick lo siguiente:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  MyS: TWin32FindData;
  FName: string;
  MyTime: TFileTime;
  MySysTime: TSystemTime;
begin
  Memo1.Clear;
  FName:='C:\Documents and Settings\fleonor\Desktop\fotod\20-05-2009\CIMG0046.JPG'; //Aquí­ colocamos la ruta del archivo
  with Memo1.Lines do
  begin
    Add('Directorio - '+ExtractFileDir(FName));
    Add('Disco - '+ExtractFileDrive(FName));
    Add('Extensión - '+ExtractFileExt(FName));
    Add('Nombre del Archivo - '+ExtractFileName(FName));
    Add('Ruta - '+ExtractFilePath(FName));
    Add('');
 
    FindFirstFile(PChar(FName), MyS);
    case MyS.dwFileAttributes of
      FILE_ATTRIBUTE_COMPRESSED: Add('Atributo - Archivo está comprimido');
      FILE_ATTRIBUTE_HIDDEN: Add('Atributo - Archivo está escondido');
      FILE_ATTRIBUTE_NORMAL: Add('Atributo - Archivo sin atributos');
      FILE_ATTRIBUTE_READONLY: Add('Atributo - En Modo Lectura');
      FILE_ATTRIBUTE_SYSTEM: Add('Atributo - Archivo del sistema');
      FILE_ATTRIBUTE_TEMPORARY: Add('Atributo - Archivo temporal');
      FILE_ATTRIBUTE_ARCHIVE: Add('Atributo - Fichero de Archivo');
    end;
 
    MyTime:=MyS.ftCreationTime;
    FileTimeToSystemTime(MyTime, MySysTime);
    Add(
      'Creado el - '+
      IntToStr(MySysTime.wDay)+'.'+
      IntToStr(MySysTime.wMonth)+'.'+
      IntToStr(MySysTime.wYear)+'  '+
      IntToStr(MySysTime.wHour)+':'+
      IntToStr(MySysTime.wMinute));
 
    MyTime:=MyS.ftLastAccessTime;
    FileTimeToSystemTime(MyTime, MySysTime);
    Add(
      'Modificado el - '+
      IntToStr(MySysTime.wDay)+'.'+
      IntToStr(MySysTime.wMonth)+'.'+
      IntToStr(MySysTime.wYear));
 
    Add('Tamaño - '+IntToStr(MyS.nFileSizeLow));
    Add('Nombre Alterno - '+StrPas(MyS.cAlternateFileName));
  end;
end;

Saludos.

[Delphius]

Gracias amigo, hoy he aprendido algo nuevo. Tení­a total desconocimiento del tipo TWin32FindData, TFileTime, TSystemTime

Saludos,

[enecumene]

Gracias amigo, hoy he aprendido algo nuevo. Tení­a total desconocimiento del tipo TWin32FindData, TFileTime, TSystemTime

Saludos,

Hola Delphius, al igual tú tení­a total desconocimiento sobre ellos, yo me topé con esos de casualidad, pero estoy seguro de que hay mejores códigos que éste para adquirir esas informaciones, pero mientras, éste hace el trabajo .

Saludos.