Скачать DosShell для Turbo Vision с выгрузкой на диск

06.07.1994
Скачать файл (3,38 Кб)

У меня самого опыта работы с именно этой библиотекой нет, но я пробовал аналогичную библиотеку Elefant и, надо сказать, она мне не понравилась. Когда у меня возникла аналогичная проблема, я написал собственный swapper, исходники которого и прилагаю. Предупреждаю сразу, что адаптирован для Turbo Vision в последний момент и от оригинального графического интерфейса остались кое-какие хвосты, типа процедур запрещающих выключение графического режима при выполнении CloseGraph.

Работает это так: Вы описываете ваш объект TMYApplication, который делает все, что положено делать Turbo Vision овская программа в модуле под названием main и компилируете файл Templ.Pas. TMyApplication должен иметь виртуальный метод RunProgram, который и служит для выполнения команды DOS со своппингом. В памяти при этом остается только то, что являлось главной программой, т.е

Application.Init;
Application.Run;
Application.Done;
и сама процедура своппинга (см. AtlSwap.Asm)

Для того, чтобы это занимало поменьше места и используется такая нестандартная структура. Я чувствую, что мое решение вам не очень понравится, но исходники- вот они. Может разберетесь и сделаете что-то свое.