cjgl.dpr

来自「自己做的用delphi开发的学生成绩管理系统。」· DPR 代码 · 共 32 行

program Cjgl;

uses
  Forms,
  windows,
  main in 'main.pas' {frmmain},
  Welcome in 'Welcome.pas' {frmWelcome},
  SelInputScore in 'SelInputScore.pas' {frmSelInputScore},
  QueryScore in 'QueryScore.pas' {frmQueryScore};

{$R *.res}
var p:^integer;
begin
if findwindow(nil,'SP-2004学生成绩管理系统')=0 then
begin
  Application.Initialize;
  Application.Title:='SP-2004学生成绩管理系统';
  p:=@screen.PixelsPerInch;
  p^:=96;
  frmWelcome:=TfrmWelcome.Create(application);
  frmWelcome.Scaled:=false;
  if frmWelCome.ShowModal=1 then
  begin
    Application.CreateForm(Tfrmmain, frmmain);
  Application.CreateForm(TfrmSelInputScore, frmSelInputScore);
  Application.CreateForm(TfrmQueryScore, frmQueryScore);
  frmmain.Scaled:=False;
    Application.Run;
  end;
end;
end.