[存个东西]View Source

麦德三世

1. program MedicManage;
   
2. 
   
3. uses
   
4.   Windows,
   
5.   Forms,
   
6.   Main in 'Main.pas' {fmMain},
   
7.   Cage in 'Cage.pas' {fmCage},
   
8.   Pupil in 'Pupil.pas' {fmPupil},
   
9.   PupilManage in 'PupilManage.pas' {fmPupilManage},
   
10.   Detail in 'Detail.pas' {fmDetail},
    
11.   DataMoudule in 'DataMoudule.pas' {DataModule1: TDataModule},
    
12.   CageManage in 'CageManage.pas' {fmCageManage},
    
13.   Intro in 'Intro.pas' {fmIntro},
    
14.   Recode in 'Recode.pas' {fmRecord},
    
15.   User in 'User.pas' {fmUser},
    
16.   UserMange in 'UserMange.pas' {fmUsermange},
    
17.   Login in 'Login.pas' {fmLogin};
    
18. 
    
19. {$R *.res}
    
20. var
    
21. myMutex: THandle;
    
22. 
    
23. begin
    
24. myMutex:=CreateMutex(nil,false,'fmMain');
    
25. if ((myMutex <> 0) and (GetLastError() <> ERROR_ALREADY_EXISTS)) then
    
26.    begin
    
27.     Application.Initialize;
    
28.     Application.CreateForm(TfmMain, fmMain);
    
29.     Application.CreateForm(TfmCage, fmCage);
    
30.     Application.CreateForm(TfmPupil, fmPupil);
    
31.     Application.CreateForm(TfmPupilManage, fmPupilManage);
    
32.     Application.CreateForm(TfmDetail, fmDetail);
    
33.     Application.CreateForm(TDataModule1, DataModule1);
    
34.     Application.CreateForm(TfmCageManage, fmCageManage);
    
35.     Application.CreateForm(TfmIntro, fmIntro);
    
36.     Application.CreateForm(TfmRecord, fmRecord);
    
37.     Application.CreateForm(TfmUser, fmUser);
    
38.     Application.CreateForm(TfmUsermange, fmUsermange);
    
39.     Application.CreateForm(TfmLogin, fmLogin);
    
40.     Application.Run;
    
41.    end
    
42. else
    
43.    //messagedlg('你不能运行该应用程序的多个实例',mtInformation,[mboK],0);
    
44. end.

复制代码

KickedByOthers

啊,好邪恶的代码啊...

守望者

果然看不懂。难道是让程序只运行一次的代码？