Вопросы программирования на паскале
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Вопросы программирования на паскале - 2009-02-04 16:22:40.490000
|
|
|
FYzeST
Сообщений: 23
Оценки: 0
Присоединился: 2007-10-03 22:27:34.053333
|
У меня к вам 2 вопроса по паскалю!!! 1. Как написать программу которая будет создавать с определенным скрытый(со скрытыми аттрибутами) .bat файл в определенной деректории….и будет добавлять ключ в реестр на атозагрузку файла!! 2. Возможноли написать программу на паскале которая при вводе определенного текста будет отправлять этот текст на определенный емейл….. если да то дайте исходник…. Зарание спасибо!!!
|
|
|
RE: Вопросы программирования на паскале - 2009-02-04 16:34:20.593333
|
|
|
Sunzer
Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
|
Все возможно. Отправка на мыло:
uses
IdSMTP,idMessage;
procedure SendMail(bоdу_text:string);
var
idSMTP1: TIdSMTP;
Msg: TIdMessage;
begin
idSMTP1:=TIdSMTP.Create(nil);
IdSMTP1.Port:=25; // 25 Порт SMTP Сервера
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Connect; // Подключение
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:='qwerty';
IdSMTP1.Password:='password';
Msg:=TIdMessage.Create(nil);
Msg.Subject:='Тема сообщения';
Msg.Recipients.EMailAddresses:='admin@mail.ru'; // Адрес получателя
Msg.From.Address:='qwerty@mail.ru';
Msg.From.Name:='qwerty';
Msg.bоdу.Text:='Текст сообщения';
TIdAttachment.Create(Msg.MessageParts,'c:\123.exe');
idSMTP1.Send(Msg);
idSMTP1.Free;
Msg.Free;
end
|
|
|
RE: Вопросы программирования на паскале - 2009-02-04 17:14:30.683333
|
|
|
FYzeST
Сообщений: 23
Оценки: 0
Присоединился: 2007-10-03 22:27:34.053333
|
а где можно скачать IdSMTP.tpu и idMessage.tpu
|
|
|
RE: Вопросы программирования на паскале - 2009-02-04 19:34:38.916666
|
|
|
VaZoNeZ
Сообщений: -6758
Оценки: 0
Присоединился: 2008-10-31 14:38:43.796666
|
tpu ? выкинь трубопаскаль и качай дельфи
|
|
|
RE: Вопросы программирования на паскале - 2009-02-05 13:54:14.333333
|
|
|
FYzeST
Сообщений: 23
Оценки: 0
Присоединился: 2007-10-03 22:27:34.053333
|
VaZoNeZ я создал тему не для того штоб ты тут трындел всякую фигню…. если не можешь дать ответ на вопрос то молчи
|
|
|
RE: Вопросы программирования на паскале - 2009-02-05 14:21:38.003333
|
|
|
unconnected2
Сообщений: 332
Оценки: 0
Присоединился: 2009-01-16 17:56:12.400000
|
quote:
VaZoNeZ я создал тему не для того штоб ты тут трындел всякую фигню…. если не можешь дать ответ на вопрос то молчи Гениально…как ты собрался на 16-битном досовском компиляторе отправлять почту? Это, насколько я знаю, возможно, но займёт в десяток раз больше времени и сил, чем использование компонента IDSmtp в Дельфи. Так что пойми для начала, что тебе нужно. Код Sunzer'а для Delphi.
|
|
|
RE: Вопросы программирования на паскале - 2009-02-05 16:06:53.946666
|
|
|
VaZoNeZ
Сообщений: -6758
Оценки: 0
Присоединился: 2008-10-31 14:38:43.796666
|
FYzeST, ругнись матом! чтобы все поняли кто здесь —–, самый —— крутой —–. кхм… фигня - это ты. тебе сказал - качай Дельфи
|
|
|
RE: Вопросы программирования на паскале - 2009-02-05 16:32:04.920000
|
|
|
FYzeST
Сообщений: 23
Оценки: 0
Присоединился: 2007-10-03 22:27:34.053333
|
лана буду дуплить делфи
|
|
|
RE: Вопросы программирования на паскале - 2009-02-05 16:53:59.990000
|
|
|
unconnected2
Сообщений: 332
Оценки: 0
Присоединился: 2009-01-16 17:56:12.400000
|
Дельфи этого не переживёт имхо..
|
|
|
RE: Вопросы программирования на паскале - 2009-02-05 22:00:18.670000
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Просто можешь через апи слать почту,чтоб без компонентов,но люди сказали правильно,паскаль тут плох.
|
|
|
RE: Вопросы программирования на паскале - 2009-02-08 10:50:03.533333
|
|
|
AndreTM
Сообщений: 14
Оценки: 0
Присоединился: 2006-07-20 05:12:48
|
Чтобы у вирусописателей не возникало лишних вопросов: 1. Как написать программу которая будет создавать определенный скрытый (со скрытыми аттрибутами) Атрибуты не бывают скрытыми или открытыми, есть такой атрибут (был такой атрибут :) - "Скрытый". Оперирование атрибутами файлов для скрытия хоть и приветствуется, но рассчитано совсем уж на не знаю каких пользователей… .bat файл в определенной деректории…. Сразу видно - человек перенесся к нам из тех времен, когда Гейтс еще работал с Джобсом :) Ибо какой смысл в скрытии файла, если при его запуске используется командный интерпретатор, всплывшее "черное окно" которго напугает бедного юзера (см.выше) до колик… и будет добавлять ключ в реестр на атозагрузку файла!! Вам выше правильно заметили - 16-разрядные приложения совершенно не обязаны знать ничего о каком-то "реестре". Попытка же в него вломиться аукнется так, что бедный юзер (см.выше) полезет под стол - подальше от красных крестиков и синих экранов… 2. Возможно ли написать программу на паскале которая при вводе определенного текста будет отправлять этот текст на определенный емейл… Вот тут вам неплохо бы задуматься о том, что почта может и не уйти… Впрочем, в старых приложениях вообще придумывать ничего не надо - имейте свой почтовый сервер и пользуйтесь telnet'ом :) И вообще, вам - в "Для начинающих"
|
|
|
RE: Вопросы программирования на паскале - 2009-02-08 15:23:39.403333
|
|
|
FYzeST
Сообщений: 23
Оценки: 0
Присоединился: 2007-10-03 22:27:34.053333
|
quote:
ORIGINAL: Sunzer Все возможно. Отправка на мыло:
uses
IdSMTP,idMessage;
procedure SendMail(bоdу_text:string);
var
idSMTP1: TIdSMTP;
Msg: TIdMessage;
begin
idSMTP1:=TIdSMTP.Create(nil);
IdSMTP1.Port:=25; // 25 Порт SMTP Сервера
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Connect; // Подключение
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:='qwerty';
IdSMTP1.Password:='password';
Msg:=TIdMessage.Create(nil);
Msg.Subject:='Тема сообщения';
Msg.Recipients.EMailAddresses:='admin@mail.ru'; // Адрес получателя
Msg.From.Address:='qwerty@mail.ru';
Msg.From.Name:='qwerty';
Msg.bоdу.Text:='Текст сообщения';
TIdAttachment.Create(Msg.MessageParts,'c:\123.exe');
idSMTP1.Send(Msg);
idSMTP1.Free;
Msg.Free;
end
вот я перешол на делфи хотел преминить этот код но не получилося потомушто у меня в делфи 7 нету IdSMTP.dcu и idMessage.dcu наверное это из за того што я выбрал минимальную комплектацию при установке … хто может из своего делфа вытащить эти 2 файлика и кинуть мне ?? зарание спасибо!
|
|
|
RE: Вопросы программирования на паскале - 2009-02-08 22:51:49.196666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
На самом деле ты мог бы просто доустановить Indy компоненты,либо включить их,это делается. Но как просил:DCUшки
|
|
|
RE: Вопросы программирования на паскале - 2009-02-08 23:10:22.930000
|
|
|
FYzeST
Сообщений: 23
Оценки: 0
Присоединился: 2007-10-03 22:27:34.053333
|
Спасибо!
|
|
|
RE: Вопросы программирования на паскале - 2009-02-19 16:03:10.840000
|
|
|
Coolzoom
Сообщений: 40
Оценки: 0
Присоединился: 2008-11-05 02:32:34.956666
|
Подскажите какой процедурой или функцией в ПАСКАЛЕ (не в дэльфи) можно запустить файл (*.exe программу, *.bat файл и т.д.) как если бы я просто по нему 2 раза мышью щелкнул? (Вот такая тема надо чтоб поочередно запускались проги и *.bat файлы конечно можно было бы просто связать эти файлы вставкой в конец каждого батника команды start и путь к следующему файлу но тут другое…) ЗАРАНЕЕ СПАСИБО!
|
|
|
RE: Вопросы программирования на паскале - 2009-02-19 20:54:58.126666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Эмм….мб я позабыл паскаль,но апишные ShellExecute() и WinExec() вроде бы можно там заюзать. 1я точно запустит тебе что угодно.
|
|
|
RE: Вопросы программирования на паскале - 2009-02-19 21:01:13.680000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
exec
|
|
|
RE: Вопросы программирования на паскале - 2009-02-25 00:07:23.473333
|
|
|
Coolzoom
Сообщений: 40
Оценки: 0
Присоединился: 2008-11-05 02:32:34.956666
|
quote:
ORIGINAL: _SaZ_ exec коротко и по существу :))) спс
|
|
|
RE: Вопросы программирования на паскале - 2009-02-25 00:34:34.396666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Ну можешь плюсик поставить )
|
|
|
|
|