mindict.dpr

一个背单词程序。是我闲着没事做的。 给大家看看

program MinDict;

uses
  Forms,
  Windows,
  UnitMain in 'UnitMain.pas' {FrmMain},
  UnitSELDict in 'UnitSELDict.pas' {FrmSelDict},
  UnitChange in 'UnitChange.pas' {FrmChange},
  UnitSET in 'UnitSET.pas' {FrmSet},
  UnitPosSet in 'UnitPosSet.pas' {FrmPosSet},
  UnitAbout in 'UnitAbout.pas' {AboutBox},
  UnitB in 'UnitB.pas' {FrmBDC},
  GetWord in 'GetWord.pas',
  UnitWordList in 'UnitWordList.pas' {FrmWordList},
  Uniterrmsg in 'Uniterrmsg.pas' {frmerrmsg},
  MainForm in 'MainForm.pas' {seach_main},
  DM in 'DM.PAS' {Frm_DM: TDataModule},
  FRM_TXL in 'FRM_TXL.pas' {MAIN},
  unit1 in 'Unit1.pas' {person_main};

{$R *.res}
 Var
    hMutex:HWND;
    Ret:Integer;
begin
  Application.Initialize;
  Application.Title := '迷你单词 1.01bata';
  hMutex:=CreateMutex(nil,False,'MinDict10');
  Ret:=GetLastError;
  If Ret<>ERROR_ALREADY_EXISTS Then
  Begin
    Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(Tseach_main, seach_main);
  Application.CreateForm(TFrm_DM, Frm_DM);
  Application.CreateForm(TMAIN, MAIN);
  Application.CreateForm(Tperson_main, person_main);
  Application.Run;
  End;
   ReleaseMutex(hMutex);
   //ShowWindow(Application.Handle,sw_show);
end.