⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 project.~dpr

📁 地理资源的录入程序运用了api的一些知识
💻 ~DPR
字号:
program Project;

uses
  Forms,
  main in 'main.pas' {zhu},
  DataM in 'DataM.pas' {DM: TDataModule},
  chgpwd in 'chgpwd.pas' {changpwd},
  denglu in 'denglu.pas' {login},
  TOUR in 'TOUR.pas' {dlxxfrm},
  PublicFunction in 'PublicFunction.pas',
  lyxxlr in 'lyxxlr.pas' {lyzylrfrm},
  tdly in 'tdly.pas' {tdlyxxfrm},
  dqjj in 'dqjj.pas' {dqjjxxFrm},
  mainf in 'mainf.pas' {MainForm},
  Unit1 in 'Unit1.pas' {sltfrm},
  sel_sg in 'sel_sg.pas' {select_sgtfrm},
  progress in 'progress.pas' {Frm_data_g},
  dqjjcx in 'dqjjcx.pas' {dqcxfrm},
  tdlycxUnit in 'tdlycxUnit.pas' {tdlycxFrm},
  sl_ll_Unit in 'sl_ll_Unit.pas' {slllfrm},
  loc_Unit in 'loc_Unit.pas' {Frmpz},
  dlwz_Unit in 'dlwz_Unit.pas' {dlwzcxFrm},
  SelectDirUnit in 'SelectDirUnit.pas' {SelectDir},
  ly_Unit in 'ly_Unit.pas' {lyFrm},
  bkUnit in 'bkUnit.pas' {ysFrm},
  implemntation in 'implemntation.pas',
  ysUnit in 'ysUnit.pas' {bfFrm},
  tjyhUnit in 'tjyhUnit.pas' {Form3},
  rename_Unit in 'rename_Unit.pas' {renamefrm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(Tlogin, login);
  Application.CreateForm(Tzhu, zhu);
  Application.CreateForm(Tlyzylrfrm, lyzylrfrm);
  Application.CreateForm(Tselect_sgtfrm, select_sgtfrm);
  Application.CreateForm(Ttdlyxxfrm, tdlyxxfrm);
  Application.CreateForm(TtdlycxFrm, tdlycxFrm);
  Application.CreateForm(TdqjjxxFrm, dqjjxxFrm);
  Application.CreateForm(Tdqcxfrm, dqcxfrm);
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(Tsltfrm, sltfrm);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TFrm_data_g, Frm_data_g);
  Application.CreateForm(Tslllfrm, slllfrm);
  Application.CreateForm(TFrmpz, Frmpz);
  Application.CreateForm(TdlwzcxFrm, dlwzcxFrm);
  Application.CreateForm(TSelectDir, SelectDir);
  Application.CreateForm(TlyFrm, lyFrm);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(Tchangpwd, changpwd);
  Application.CreateForm(Trenamefrm, renamefrm);
  Application.Run;
end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -