> -- Евгений Темиргалеев писал(а):
> - для выключения - выгрузить Kernel.UnloadMod("TestStdToLog").Ошибся. Так не выгрузить. Для тестов DevDebug.UnloadThis; программно - можно экспортировать Install/Uninstall, подправив:
## Код:
```
PROCEDURE Install;
...
>>            IF a = NIL THEN NEW(a) END;
            Services.DoLater(a, Services.Ticks() + Services.resolution)

   PROCEDURE Uninstall;
      VAR   res: INTEGER;
   BEGIN
>>      IF a # NIL THEN Services.RemoveAction(a) END;
```

Проба с дельфовой dll - вывод не пошёл.
## Код:
```
MODULE TestStdToLogDll ["Project1.dll"];

   PROCEDURE Test*;

END TestStdToLogDll.

MODULE TestTemp;
   
   IMPORT TestStdToLogDll, Log;
   
   PROCEDURE Do*;
   BEGIN
      Log.String("TestStdToLogDll.Test:"); Log.Ln;
      TestStdToLogDll.Test
   END Do;

END TestTemp.

"Kernel.LoadMod('TestStdToLog')"
TestTemp.Do
DevDebug.UnloadThis TestStdToLog

(* Delphi dll *)
library Project1;

uses
  SysUtils,
  Classes;

{$R *.res}

procedure Test;
begin
  writeln('x'#9'='#9, 1);
end;

exports Test;

begin
end.
```
