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
