powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Mailto; Закрытие главного окна
7 сообщений из 7, страница 1 из 1
Mailto; Закрытие главного окна
    #33114747
Rusinov St
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем привет!
Народ, подскажите плиз. Как реализовать ссылку mailto. Например, юзер кликает по надписи/картинке, и автоматом запускается окно написания эл.письма зарегистрированной в системе почтовой программы. С url разобрался, но не смог найти mailto.
2. Приложение работает из главного окна
_Screen.Closable = .T. При закрытии приложения вылетает "Canot Quit VFPro"
как решить данную проблему.
Заранее признателен.

p.s. не предлагать решение через создание form.
...
Рейтинг: 0 / 0
Mailto; Закрытие главного окна
    #33114976
Alexander Warlord
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
По-поводу мейла у меня проблема решается так:

использую библиотеку WEBEXPLORER.VCX.
На форму перетаскиваю его объект, присваиваю ему:
CAPTION=е-мейл
TAG=е-мейл
TOOLTIPTEXT=THIS.TAG

В Click Event код следующий:
IF !EMPTY(THIS.TAG) AND TYPE('ThisForm.Webexplorer1') = 'O'
THISFORM.Webexplorer1.SendMail(THIS.TAG)
ENDIF

Можно добавить другой Mouse Icon.

Может, не совсем корректно объяснил... но вообщем-то работает.

And Justice For All!
...
Рейтинг: 0 / 0
Mailto; Закрытие главного окна
    #33115133
Rusinov St
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо за ответ. Все понятно - вопросов нет.
На второй вопрос не подскажешь?
...
Рейтинг: 0 / 0
Mailto; Закрытие главного окна
    #33115223
Alexander Warlord
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Честно говоря, не совсем понял второй вопрос...
Что представляет собой главный запускной файл? prg-файл? что в нём описано? как осуществляется выход?
Есть ли описание ON ERROR, ON SHUTDOWN?

Можно использовать такую вот функцию:

FUNCTION ShutDown
IF MESSAGEBOX("Выйти из программы??",36,_screen.Caption)=6
Clear EVENTS
Release All
Close All
On SHUTDOWN
Endif
ENDFUNC

и:

FUNCTION Cleanup
IF CNTBAR("_msysmenu")=7
RETURN
ENDIF
ON ERROR
ON SHUTDOWN
SET CLASSLIB TO
SET PATH TO
CLEAR ALL
CLOSE ALL
POP MENU _msysmenu
RETURN

Ещё указать RELEASE goApp, если изначально было:
PUBLIC goApp
goApp=CREATEOBJECT("cApplication")

В любом случае - это проблема главного файла.

And Justice For All!
...
Рейтинг: 0 / 0
Mailto; Закрытие главного окна
    #33115236
Фотография ГенГрум
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуй поиск -=Screen.Closable =- выдаст 5 тем .Почитай.

----------------------------------------------------------
Делай своё дело и будь что будет.
...
Рейтинг: 0 / 0
Mailto; Закрытие главного окна
    #33116742
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hi Rusinov St!

Код: plaintext
1.
2.
3.
4.
5.
DECLARE INTEGER ShellExecute IN SHELL32.DLL ;
 INTEGER, STRING, STRING, STRING, STRING, INTEGER
IF ShellExecute( 0 , "Open", "mailto:Vasiliy@gde-to.ru?Subject=" + ;
  "Тема%20письма%20тута", "", "C:\",  1 ) <  32 
 MESSAGEBOX("Ай-яй-яй, не сработало")
ENDIF

При закрытии приложения вылетает "Canot Quit VFPro"

ON SHUTDOWN

Только ПОИСКОМ воспользуйся, ибо тебе кривоватую функцию посоветовали -
CLEAR EVENTS должно быть последней командой по любому...

Posted via ActualForum NNTP Server 1.2
...
Рейтинг: 0 / 0
Mailto; Закрытие главного окна
    #33116817
Rusinov St
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем большое СПАСИБО!
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Mailto; Закрытие главного окна
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]