parseren.dpr

来自「这是一个从指定网页格式分离单词的小程序」· DPR 代码 · 共 32 行

program ParserEn;

uses
  Forms,
  windows,
  uParserEn in 'uParserEn.pas' {FrmParseEnWord},
  uPublic in '..\Common\uPublic.pas',
  uConst in '..\Common\uConst.pas',
  uDownFileThread in '..\Common\uDownFileThread.pas',
  uParserTypeThread in '..\Common\uParserTypeThread.pas',
  uPaserWordThread in '..\Common\uPaserWordThread.pas';

{$R *.res}
var
  hMutexA: Cardinal;
begin
  hMutexA := CreateMutex(nil, False, 'ParseEn1.0');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    SendMessage(HWND_BROADCAST,RegisterWindowMessage('ParseEn1.0'),0,0);
    Application.Terminate;
  end
  else
  begin
    Application.Initialize;
    Application.CreateForm(TFrmParseEnWord, FrmParseEnWord);
  FrmParseEnWord.FShowGlobalMsg := RegisterWindowMessage('ParseEn1.0');
    Application.Run;
    CloseHandle(hMutexA);
  end;//if
end.