LOF "Largo de archivo en bytes"
Publicado: 19 Sep 2012, 22:13
Bueno aquí les dejo mi segunda función en Delphi trabajando con API, una alternativa a LOF que ya hice en Autoit.
Saludos
Código: Seleccionar todo
{Delphi Version: 7.2
Author..........: Pink
Script Function...: LOF
Uso..............: LOF(ruta Archivo)
Ejemplo: myLOF:=LOF('C:\Users\Usuario\Desktop\Anotador.exe'); }
Function LOF(FileName:string): integer;
begin
Result:=GetCompressedFileSize(PAnsiChar(FileName), 0)
end; Saludos