test.dpr
上传用户:graphite
上传日期:2020-09-09
资源大小:2587k
文件大小:0k
源码类别:

破解

开发平台:

Others

  1. program Test;
  2. uses
  3.   Windows,
  4.   SysUtils;
  5. Var
  6.   i : Integer;
  7. begin
  8.   MessageBox(0,'Begin','',0);
  9.   {$I IncUserPolyBuffer.inc}
  10.   For i:= 1 to 5 do MessageBox( 0, PChar(IntToStr(i)), 'Index', 0 );
  11.   MessageBox(0,'End','',0);
  12. end.