书上的例题怎么运行

Question

program minisize;
uses
  Windows;
  {$R *.RES}
  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);
      messagebox(0,PChar(strsize),'mini program',mb_ok);
      end.
我用的new->console application
[Warning] Project2.dpr(4): File not found: 'minisize.RES'
[Error] File not found: 'minisize.RES'
提示1处错误1处警告

Answer 1

//这段运行没发现错误，可以参考1楼意见，测试一下。
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); 
  messagebox(0,PChar(strsize),'mini program',mb_ok); 
end. 

Answer 2

少了个end; 
为什么回复太短。                

Answer 3

           少了个end; 
           少了个end; 

Answer 4

应该不是少end，而是$R *.RES 这个资源文件被删除了，要么新建该资源文件，要么注释掉该行。试试

Answer 5

去掉包含语句 $R *.RES ,程序就通过了。（end;不应加了,否则出错） 

Answer 6

去掉包含语句 $R *.RES ,程序就通过了。

Answer 7

为什么呢？  可是书上的例题有$R *.RES啊