如何得到自己 .exe 文件的大小?(已经运行的exe)

Question

如题....
谢了....

Answer 1

function  GetMyFileSize(const AFilename: string): DWORD;
var
  HFILE: THandle;
begin
  HFILE := CreateFile(PChar(AFilename), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if HFILE <> INVALID_HANDLE_VALUE then
  begin
    Result := GetFileSize(HFILE, nil);
    CloseHandle(HFILE);
  end
  else
    Result := 0;
end;
调用 Showmessage(IntToStr(GetMyFileSize(Application.ExeName)));

Answer 2

var
 nSize:integer;
 hFile:THandle;
 strSize:string;
begin
  hFile:=CreateFile(pchar(paramstr(0)),0,File_Share_Read,
      nil,open_existing,0,0);
  nSize:=GetFileSize(hFile,nil);
  CloseHandle(hFile);
  SetLength(strSize,20);
  Str(nSize,StrSize);
  showmessage('size='+strSize);
  showmessage('size='+inttostr(trunc(strtoint(strSize)/1024))+'KB');