project1.~dpr

来自「关于DEPHI7.0的播放器管理系统源代码」· ~DPR 代码 · 共 45 行

program Project1;

uses
  Windows,
  Forms,
  main in 'main.pas' {FormMain},
  about in 'about.pas' {FormAbout},
  Flashplayer in 'Flashplayer.pas' {FormFlashPlayer},
  Realplayer in 'Realplayer.pas' {FormRealPlayer},
  Filelist in 'Filelist.pas' {FormFileList},
  help in 'help.pas' {FormHelp},
  Movie in 'Movie.pas' {FormMovie},
  realmng in 'realmng.pas' {FormRealMng};

{$R *.res}
  const Classname = 'TFormMain'; {声明为主窗体的类名}
  var MyHandle : Integer; {判断变量}

begin
//以下为该判断一个实例程序
//{
  Myhandle := Findwindow(nil, '优利媒体播放系统V1.1');//查找是否有此类的窗体
  if MyHandle <> 0 then //不为0,表示程序已运行
  begin
   messagebox(0,'该程序已有一个实例处于运行状态，'+#13#10+
             '无法打开另一个相同的窗口！','太遗憾了！',0);//提示程序已运行
   halt; //退出程序
  end;
//}

//以下开始正常的程序
  Application.ShowMainForm := True;//False; //直接放到托盘处
  Application.Initialize;
  Application.Title := '优利媒体播放系统V1.1';
  Application.CreateForm(TFormMain, FormMain);
  Application.CreateForm(TFormFileList, FormFileList);
  Application.CreateForm(TFormMovie, FormMovie);
  Application.CreateForm(TFormAbout, FormAbout);
  Application.CreateForm(TFormHelp, FormHelp);
  Application.CreateForm(TFormFlashPlayer, FormFlashPlayer);
  Application.CreateForm(TFormRealMng, FormRealMng);
  Application.CreateForm(TFormRealPlayer, FormRealPlayer);
  Application.Run;
end.