block.dpr

来自「delphi写的俄罗斯方块」· DPR 代码 · 共 26 行

program Project2;

uses
  windows,
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.RES}
//const classname='TForm1';
//var handle:integer;

begin
  {handle:=findwindow(classname,nil);
  if handle<>0 then
   begin
    messagebox(0,'程序已经运行!','运行',0);
    halt;
   end;}
  Application.Initialize;
  Application.Title := '俄罗斯方块';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.