mindict.dpr

来自「迷你单词Delphi版全源吗」· DPR 代码 · 共 34 行

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};

{$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.Run;
  End;
   ReleaseMutex(hMutex);
   //ShowWindow(Application.Handle,sw_show);
end.