Размер приложения - можно как-то посмотреть что сколько весит?

[GunSmoker]

а чем tdump не устроил?

Думаю что тем же, чем и map-файл:

вес exe файла 20Мб и полная и даже самая краткая карта (MAP) неудобна. Есть ли что-то подобное в килобайтах с сортировкой по занимаемому весу?

ого, нехилая такая финализация )

ecc32 - это проект. Видимо, это просто "от начала и до забора" - т.е. от начала модуля до конца сегмента кода, потому что в промежутке больше ничего не было отмечено в отладочной инфе. Т.е. это может быть и какой-то padding, а может просто глюк у меня в коде.

[asmodey1]

Не понял, что хочет ТС...
На всякий случай:

Как определить размер файла?

Для этого есть три способа. Первый - открыть файл и перейти в конец. Переход по файлу возвращает текущую позицию, а раз текущая позиция это конец, то это и будет размер:

var
f:HFILE;
FileSize:Integer;
begin
// Открываем файл только для чтения (этого достаточно)
f:=_lopen(PChar(FileName), OF_READ);
// Получаем размер файла
FileSize :=_lseek(f,0, FILE_END);
//Закрываем файл
_lclose(f);
end;

Второй способ - через поиск, который так же возвращает размер.

var
SearchRec:TSearchRec;
Begin
// Ищем файл
if FindFirst(ExpandFileName(FileName), faAnyFile,SearchRec)=0
// Забираем размер
FilrSize:=SearchRec.Size
//Закрываем поиск
FindClose(SearchRec);
end;

Третий способ - это получить размер файла напрямую через функцию GetFileSize.

function GetFileSize(
hFile: THandle;
lpFileSizeHigh: Pointer)
: DWORD; stdcall;

В качестве первого параметра будет указатель на файл, а второй - указатель на число DWORD, куда засунут старший байт размера файла. Не пугайся, старший байт тебе врятли понадобиться, очень редко встречаются файлы больше 2 гига. Поэтому можно смело использовать в качестве второго параметра nil.

Или

Получить размер занимаемой памяти для процесса

procedure TForm.DebugProcessStatus(s: string);
var
pmc: PPROCESS_MEMORY_COUNTERS;
cb: Integer;
MemStat: tMemoryStatus;
begin
MemStat.dwLength := SizeOf(MemStat);
GlobalMemoryStatus(MemStat);

// Get the total and available system memory
TotalMemoryLabel.Caption := 'Total system memory: ' +
FormatFloat('###,###', MemStat.dwTotalPhys / 1024) + ' KByte';
FreeMemoryLabel.Caption := 'Free physical memory: ' +
FormatFloat('###,###', MemStat.dwAvailPhys / 1024) + ' KByte';

// Get the used memory for the current process
cb := SizeOf(TProcessMemoryCounters);
GetMem(pmc, cb);
pmc^.cb := cb;
if GetProcessMemoryInfo(GetCurrentProc ess(), pmc, cb) then
begin
NewWorkingMemory := Longint(pmc^.WorkingSetSize);
ProcessMemoryLabel.Caption := 'Process-Memory: ' +
FormatFloat('###,###', NewWorkingMemory / 1024) + ' KByte';
MemoryLeakLabel.Caption := 'Memory Loss: ' +
FormatFloat('###,###', (NewWorkingMemory - OldWorkingMemory) / 1024) + ' KByte';
OldWorkingMemory := NewWorkingMemory;
end;
FreeMem(pmc);

DebugStatusLabel.Caption := 'Status: ' + s;
end;

Буду рад, если хоть что-то устроит...