Простая библиотека, добавляющая функцию сворачивания мидлета (для многозадачных телефонов).
Проверялось на Sony Ericsson K550i, за другие телефоны не ручаюсь - нужно проверять.
Функций в библиотеке всего одна. Вызывается она как
Suspend.Start;
Для продолжения работы программы нужно её снова развернуть с помощью функций телефона и нажать на любую клавишу.
Простейший пример использования:
Program SuspendTest;
Uses suspend;
Begin
DrawText('Сворачивание', 5, 5);
Repaint; Delay(5000); // Ждем 5 секунд
Suspend.start; // Сворачивание
DrawText('Работаем дальше', 5, 25);
Repaint; Delay(5000);
End.
Собственно, сворачивается только главный поток приложения. Остальные потоки (если есть) продолжают работать. Это только первая версия библиотеки, если хотите, могу сделать отдельно функции для сворачивания и разворачивания (восстановления работы) мидлета отдельно. В этом случае даже главный поток остановлен не будет. Но при сворачивании телефон полностью захватывает дисплей на себя и поэтому вывод на экран чего-либо в свернутом состоянии будет невозможен.