Çalışan program hdd'de kendi exe uzunluğunu nasıl öğr

[z]

Çalışan bir program, kendisinin hdd üzerinde kaç byte yer kapladığını nasıl öğrenir.

[birumher]

procedure TForm1.Button1Click(Sender: TObject);
var
  aStream: TFileStream;
begin
  aStream := TFileStream.Create(Application.ExeName,fmOpenRead or fmShareDenyNone);
  ShowMessage(intToStr(aStream.size));
  aStream.Free;
end;

İşin sırrı fmShareDenyNone ile dosyayı açmakta...