filmserver.dpr

IntraWeb电影程序 B/S类型的演示 Delphi+Internet 开发的电影服务器 系统登录电影网站的用户名和密码都是admin 观看电影的最低要求: 请确保你的系统已经安装媒体播放

program FilmServer;
 {
   BaseForm  所有窗体的基窗体
   MainForm  主窗体
   Littform  分页显示
   PlayFORM  电影播放
   ADMINFORM 电影添加,删除分页窗体
   MODIFORADD 添加,删除
   REGFROM 注册窗体
   SYSTEMFORM 后台管理
   FUSERFORM 用户分页..
 }
uses
  Forms,
  Windows,
  IWMain,
  ServerController in 'ServerController.pas' {IWServerController: TIWServerController},
  UserSessionUnit in 'UserSessionUnit.pas' {IWUserSession: TIWUserSessionBase},
  FBaseform in 'FBaseform.pas' {BaseForm: TIWFormModuleBase},
  FMainForm in 'FMainForm.pas' {MainForm: TIWAppForm},
  FlistForm in 'FlistForm.pas' {ListForm: TIWAppForm},
  FplayForm in 'FplayForm.pas' {PlayForm: TIWAppForm},
  Fadminform in 'Fadminform.pas' {AdminForm: TIWAppForm},
  FControl in 'FControl.pas' {ModiforAddForm: TIWAppForm},
  FRegForm in 'FRegForm.pas' {RegForm: TIWAppForm},
  FSystem in 'FSystem.pas' {SystemForm: TIWAppForm},
  WebServer in 'WebServer.pas' {Form2},
  FUserForm in 'FUserForm.pas' {UserForm: TIWAppForm};

{$R *.res}

var
MutexHandle:Thandle;                 //禁止程序运行多个实例
begin
   Mutexhandle:=windows.CreateMutex(nil,true,'Films');
  if Mutexhandle<>0 then
  begin
    if getlasterror=windows.ERROR_ALREADY_EXISTS  then
    begin
      closehandle(Mutexhandle);
      halt;
   end;
  end;

  Application.Initialize;
 // Application.CreateForm(TformIWMain, formIWMain);
  Application.Title := '动网电影';
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.