9 lines
130 B
ObjectPascal
9 lines
130 B
ObjectPascal
var
|
|
fich : file of byte;
|
|
|
|
begin
|
|
Assign(fich, 'codi.exe');
|
|
reset(fich);
|
|
Write('CODI.EXE = ',filesize(fich));
|
|
Close(fich);
|
|
end. |