程序只有一个实例运行

var
  Mutex: THandle;
begin
  Mutex := CreateMutex(nil, True, 'E3FC3353-9B11-40B5-B6AA-0A670EC0A6A2');
  if GetLastError <> ERROR_ALREADY_EXISTS then
  begin
    Application.Initialize;
    Application.Title := 'E&YOU配置管理';
  Application.CreateForm(TFmConfig, FmConfig);
    Application.Run;
  end else
  begin
    ReleaseMutex(Mutex);
  end;