Delphi

UZER · Отправлено: **14:24, 03-11-2003** | #11

Prisoner

Цитата:

избежать потерю фокуса окном, его можно будет только закрыть

Именно это я и хотел сказать

Добавлено:

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

Код:

winexec('explorer mailto:devil666@fromru.com',0)

Но это вызывается через IE, а как бы обойтись без него?

[s]Исправлено: UZER, 15:49 3-11-2003[/s]

Prisoner · Отправлено: **20:12, 04-11-2003** | #12

Тогда поможет такой код, помещенный в любой целесообразный обработчик события:

Код:

var
  sEMailAddress, sSubject, sBody, sMailMessage: string;
begin
  sEMailAddress := 'somebody@mail.ru';
  sSubject      := 'Subject of message';
  sBody         := 'Here some strings of message which will be send.';

  sMailMessage  := 'mailto:' + sEMailAddress +
                '?subject=' + sSubject +
                '&body=' + sBody;

  ShellExecute(0, 'open', PChar(sMailMessage), '', '', SW_SHOWNORMAL));
  //по поводу ловли ошибок см. справку по функции ShellExecute
end;

UZER · Отправлено: **00:36, 05-11-2003** | #13

Prisoner
Все работает, пасиб
Ты там в одной скобке ошибся - последняя скобка лишняя

Tr00per · Отправлено: **22:24, 05-11-2003** | #14

Как сделать чтобы при нажатии кнопки открывался www-сайт в ослике IE ?

UZER · Отправлено: **00:35, 06-11-2003** | #15

Tr00per

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
winexec('explorer http://www.moysait.ya',0)
end;

Надеюсь, понятно

Tr00per · Отправлено: **09:04, 06-11-2003** | #16

Спасибо за ответ! И еще: какие есть для дельфи компоненты, ограничивающие пользование программой до 30 дней, если прога не зарегистрирована?

UZER · Отправлено: **12:04, 06-11-2003** | #17

Tr00per
Даж не знаю про компоненты, у меня другая идея - во врумя установки или первого запуска программы создать где-нибудь в глубине реестра запись, где записать дату установки, а потом при каждом запуске сравнивать, если больше 30 дней ==>...