function NUMBER RegisterDLL(bRegister)
  STRING szProgram, szMsg, szCmdLine;
  NUMBER nResult;
begin
  szProgram = TARGETDIR ^  "regsvr32.exe" ;
  LongPathToShortPath(szProgram);
  szCmdLine = TARGETDIR ^  "mydll.dll" ;
  LongPathToQuote(szCmdLine, TRUE);
  if ( bRegister ) then
      szCmdLine =  "/u /s "  + szCmdLine;
    else
      szCmdLine =  "/s "  + szCmdLine;
  endif;
  nResult = LaunchAppAndWait(szProgram, szCmdLine, WAIT);
  if ( nResult !=  0  ) then
    SetDialogTitle(DLG_MSG_SEVERE, ERRCAPT);
    szMsg =  "Все приехали... Кина не будет... Ошибка..." ;
	MessageBox(szMsg, SEVERE);
	nResult = - 1 ;
  endif;
  return nResult;
end;