Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Conseguir propiedades de ficheros en Visual Basic. (https://www.clubdelphi.com/foros/showthread.php?t=25747)

CRIS 02-10-2005 19:14:24

Conseguir propiedades de ficheros en Visual Basic.
 
Pues eso mismo señores, hay alguna forma de ver las propiedades como version, fecha de creacion etc... de un fichero creado en VB, lo tendria que ver en mi aplicacion creada en Delphi.

Salu2.CRIS.

delphi.com.ar 03-10-2005 14:10:21

Las propiedades de fecha de creacíon, tamaño... no iporta el tipo de archivo ni quién los creó, esas propiedades preteencen al FileSystem, y puedes obtenerla con las funciones FileAge, FileGetDate ( + FileDateToDateTime).... o bien puedes obtenerlas mediante la función FindFirst.

Las propiedades de versión, creo que te respondieron en otro hilo, igual te dejo un hilo viejo: http://www.clubdelphi.com/foros/showthread.php?t=874

Saludos!

CRIS 03-10-2005 15:06:31

Gracias men ya lo arregle con el hilo que me pusiste:

Código Delphi [-]
function GetFileVersion( AFileName : String ) : string;
var
  Size,
  Size2 : DWord;
  Pt,
  Pt2   : Pointer;
begin
  Size := GetFileVersionInfoSize(PChar(AFileName), Size2);
  if Size > 0 then
  begin
    GetMem(Pt, Size);
    try
      GetFileVersionInfo (PChar(AFileName), 0, Size, Pt);
      VerQueryValue (Pt, '', Pt2, Size2);
      with TVSFixedFileInfo (Pt2^) do
        Result:= Format('Versión %d.%d.%d.%d', [ HiWord(dwFileVersionMS),
                                                       LoWord(dwFileVersionMS),
                                                       HiWord(dwFileVersionLS),
                                                       LoWord(dwFileVersionLS)] );
    finally
      FreeMem (Pt);
    end;
  end;
end;

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 label1.Caption := GetFileVersion( 'C:\cris\gp4champ.exe' );

end;

end.


La franja horaria es GMT +2. Ahora son las 11:45:38.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi