Ну, сначала разберем, что именно делает твой код


Я так понимаю, что форма пароля - это As Top-Level форма (иначе нет смысла в _Screen.Visible= .F.). FoxPro выполняет код последовательно. Сверху вниз. Теперь смотрим, что мы имеем.

Объявили глобальную переменную nForm

Проверяем, существует ли форма со свойством Name='parol'. При самом первом запуске ее разумеется нет.

Переходим на оператор ENDIF и завершаем программу

Почему это работало в режиме отладки? Ну, ты, видимо, заранее запустил где-то форму пароля. Т.е. ДО вызова главной проги форма уже существовала.

Теперь, как этот код надо подправить, чтобы он заработал. А очень просто:


ВСЕ! Все остальное - лишнее. Как эта штука будет работать:


При открытии программы, запускаем форму пароля. Если пароль неверен, то при закрытии формы даем команду CLEAR EVENTS. Если пароль верен, то просто закрываем форму без вопросов.

Команда READ EVENTS будет "держать" приложение в открытом состоянии.

Если у тебя все приложение строится на базе As Top-Level форм и форма пароля - это главная форма, то сделай на этой форме глобальный PageFrame из 2 закладок (сами закладки спрячь PageFrame.Tabs = .F.). На первой - ввод пароля, на второй основное меню приложения. Если пароль введен правильно, то просто открываешь вторую закладку, если неверно, то закрываешь форму.

Если основная форма - это другая форма (НЕ форма пароля), то можно сделать так:


Первая форма активизируется только если пароль правильный (в самой форме пароля). Или вообще вызывать ее при выходе из формы пароля. Поскольку формы As Top-Level по определению не могут быть модальными, то "подвисание" формы пароля при этом не произойдет.

PS: Приложения на базе As Top-Level форм практически ничем не отличаются от приложений, построенных в основном окне FoxPro. Разница лишь в том, что приходится самостоятельно проектировать основное окно приложения. Т.е. программно - это сложнее. Суть та же самая.

Речь идет о предотвращении повторного открытия одного и того же приложения? Т.е. одновременно на одной машине нельзя запустить 2 копии одного и того же приожения?

Так в пределах одной среды FoxPro это не решается. Каждый запуск parol.exe вызовет открытие новой (независимой) среды FoxPro. Каждая из них просто ничего не знает про другую.

Тут нужны способы, опирающиеся на внешние (по отношению к текущей среде FoxPro) процессы или объекты.

Простейшее решение - это создать на клиенте служебную таблицу и при открытии приложения пытаться ее блокировать. Удалось - работаем дальше, не удалось - есть открытое приложение, переключаемся на него и закрываем текущее приложение.

Можно записать в эту таблицу имя главной формы приложения (или лучше хендл этой формы) и по ней сделать переключение через API-функции. FoxPro может читать и заблокированные записи. Главное, чтобы служебная таблица была открыта в режиме Shared.

Вообще-то, сделай поиск по данному форму по ключевому слову "mutex". Было неоднократное обсуждение подобной проблемы.

Кроме того, по ссылке Sergey Ch посмотри его функцию AppAlreadyRunning(). Она как раз и проверяет факт повторного запуска приложения. Правда, фокус на существующее приложение не переводит.