Veamos si me sale...
Código Delphi
[-]
function IntelHexFileSize(FileName: string): integer;
var
F: File of byte;
HexCount, A1, A2: Byte;
Adress: Word;
begin
AssignFile(FileName, F);
Reset(F);
Read(F, HexCount);
Read(F, A1);
Read(F, A2);
CloseFile(F);
Adress:=HexToInt(IntToHex(A1,2)+IntToHex(A2,2));
Result:=Adress+HexCount;
end;
Necestirás la función HexToInt:
Trucomanía
Está hecho así, de cabeza, no sé si funcionará bien... de todas formas, ¿no te vale un FileSize de un archivo de tipo Byte?
Salu2.
