minisize.dpr

来自「source code for Marco Cantu s book Delph」· DPR 代码 · 共 44 行

program MiniSize;

uses
  Windows;

{$R *.RES}

var
  nSize: Integer;
  hFile: THandle;
//  strSize2: String [20];
  strSize: String;
begin
  // base version

  // open the current file and read the size
  hFile := CreateFile (PChar (ParamStr (0)),
    0, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
  nSize := GetFileSize (hFile, nil);
  CloseHandle (hFile);

  // copy the size to a string and show it
  SetLength (strSize, 20);
  Str (nSize, strSize);
  MessageBox (0, PChar(strSize), 'Mini Program', MB_OK);

//  // ultra-reduced version
//
//  // open the current file and read the size
//  strSize2 := 'MiniSize.exe';
//  hFile := CreateFile (@strSize2[1],
//    0, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
//  nSize := GetFileSize (hFile, nil);
//  CloseHandle (hFile);
//
//  FillChar (strSize2, 20, #0);
//  Str (nSize, strSize2);
//  // copy the size to a string and show it
//  MessageBox (0, @strSize2[1], 'Mini Program', MB_OK);
end.