Запущенные объекты

[NeNavision_imported]

Можно кодом посмотреть и список загруженных объектов и сам код объектов и код который выполнялся, а который нет. Это делается с помощью таблички Code Coverage №=2000000049.

Например этот код выводит собственный исходный код. (откуда был запущен, какой триггер)(сообщениями)

CodeCoverage.RESET;
CodeCoverage.DELETEALL;
IF CODECOVERAGELOG(TRUE) THEN BEGIN
  CodeCoverage.RESET;
  IF CodeCoverage.FIND('-') THEN
	REPEAT
	  MESSAGE(CodeCoverage.Line);
	UNTIL CodeCoverage.NEXT = 0;
  CODECOVERAGELOG(FALSE);
END;

P.s. на этой основе можно что-нибудь хитрое замутить, типа защиты от изменения кода и т.д.