Несколько вопросов по Delphi 2005

[Nez]

И раз вы пока не ответили скажите вот ещё что: "Как сделать окно с вопосом и двумя кнопками Да и Нет... Ну и возвращалось True или False?"


И ещё.... проблема с отправкой сообщения, вот этот код:

  EMailDestinationString := 'adress@mail.ru';
  SubjectString := 'Название';
  Line1String :='текст1';
  Line2String :='текст2';
    mailstring := 'mailto:' + EMailDestinationString +
    '?subject=' + SubjectString +
    '&body=' + Line1String +
    '%0d' + Line2String;
ShellExecute(0, 'open', PChar(mailstring), '', '',SW_SHOWNORMAL);

- запускает почтовый клиент...... А мне это не надо. Нужно, чтобы незаметно отправлялось...

[Romanus]

///
И раз вы пока не ответили скажите вот ещё что: "Как сделать окно с вопосом и двумя кнопками Да и Нет... Ну и возвращалось True или False?"
///

Делай так
var
outs:TModalResult;
begin
outs:=MessageDlg('Вопрос',mtCustom,[mbOk,mbNo], 0);
if outs = mbOk then ......(если нажата кнопка Ок)

[Роман Радер]

И раз вы пока не ответили скажите вот ещё что: "Как сделать окно с вопосом и двумя кнопками Да и Нет... Ну и возвращалось True или False?"

Можно и написать функцию, для простоты...

function ConfirmDlg(str:string):boolean;
begin
  result:=MessageDlg(str,mtConfirmation,[mbYes,mbNo], 0)=mrYes;
end;

А использовать:

 if ConfirmDlg('Are you sure?') then
   ... ... ... ... ...

[Nez]

Спасибо, это всё, конечно, очень хорошо, но как же быть с отправкой мыла и перетаскиванием файла на форму (последнее сообщение на 4-ой странице)????

[mihali4]

запускает почтовый клиент...... А мне это не надо. Нужно, чтобы незаметно отправлялось...

А слабо почитать хэлп для ShellExecute?
В частности, про параметр nShowCmd, котрый имеет много вариантов, а не только SW_SHOWNORMAL.

[Nez]

У меня есть DelphiWorld .......... Но там я ненашёл никакой информации про этот параметр. Если бы вы мне подсказали где про него можно прочитать, это было бы очень хорошо.

P.S.:"КВЭНДИ! помоги разобраться с перетаскиванием файлов! Пожалуйста!"

[mihali4]

где про него можно прочитать

Запускаем Дельфи, жмем F1, входим в меню "ФАЙЛ" открывшегося окошка помощи, подпункт "ОТКРЫТЬ" и открываем файл WIN32.HLP из каталога "Borland Shared\MS HELP".
Жмем кнопочку "Указатель" под меню и в эдите вводим "ShellExecute"
Ну, и наконец, жмем кнопку "Показать"

DElphi у меня НЕ лицензионная

Сомневаюсь, что на нашем форуме есть хотя бы один идиот, заплативший за нее деньги... Как, впрочем, и за Винду, и прочее. Но эта тема уже есть в "Свободном общении"...

нельзя было устонавливать HELp-ы

Установлена система хэлпов или нет - без разницы. Можно просто пойти и открыть указанный файл помощи.

А можно сделать, чтобы он перетаскивался конкретно на Memo1

Обработчики OnDragOver, OnDragDrop должны принадлежать не форме, а Мемо.
А вообще, я уже устал повторять:
ВСЕ СКАЧАЙТЕ СЕБЕ СПРАВОЧНИК "КУЛИБА"
http://www.programmersclub.ru/files/kuliba.rar
http://www.programmersclub.ru/files/kuliba2.rar
там 95% задаваемых вопросов подробнейшим образом раскрыто, с примерами...
В частности вопрос по перетаскиванию файлов - "Операционная система/Перетащи и брось"

[Nez]

Да, вот только DElphi у меня НЕ лицензионная и для того, чтобы её можно было удачно крякнуть нельзя было устонавливать HELp-ы... Ну скажите, пожалуйста что туда вписать то надо.. Ну или если вам очень надо, чтобы я попытался дойти до этого сам процетируйте нужную часть HELP-а... пожалуйста...

[Angel_man]

Сообщение от Nez

Спасибо, это всё, конечно, очень хорошо, но как же быть с отправкой мыла и перетаскиванием файла на форму (последнее сообщение на 4-ой странице)????

Лично я делал так по отправке мыла: Добавлял компоненты из Indy Client и Indy Misc на форму (IdSMTP и IdMessage)
Потом обрабатывал событие на нажатие кнопки вот таким образом, это через SMTP сервер:


IdSMTP1.Port:=25;
IdSMTP1.Host := ''; //Host сервера
try
IdSMTP1.Connect;
IdSMTP1.AuthenticationType:=atLogin ;
IdSMTP1.Username:=''; //Логин
IdSMTP1.Password:=''; //Пароль
IdSMTP1.Authenticate;
Msg.Subject:=''; //текст темы сообщения
Msg.Recipients.EMailAddresses:=To_n ame.Text; //указываем адрес получателя;
Msg.BccList.EMailAddresses:=''; // скрытая копия
Msg.From.Address:=from_name.Text; //указываем автора письма
Msg.Body.Text:='не боись, проверка связи через дельфи'; //размещаем текст сообщения
TIdAttachment.Create(Msg.MessagePar ts, ''); //прикрепляем файл если нужно

if IdSMTP1.Connected=True then IdSMTP1.Send(Msg);
finally
IdSMTP1.Disconnect;
end;

Если чего непонятно, можешь в аську написать с 6 до 15 часов по Москве.

[Speeker]

Сообщение от Nez

Да, вот только DElphi у меня НЕ лицензионная и для того, чтобы её можно было удачно крякнуть нельзя было устонавливать HELp-ы... Ну скажите, пожалуйста что туда вписать то надо.. Ну или если вам очень надо, чтобы я попытался дойти до этого сам процетируйте нужную часть HELP-а... пожалуйста...

Что то темнишь ты, первый раз слышу что бы от хелпа кряк зависил, или что бы была возможность хелп устанавливать или нет...