Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Re: Help!!!

Кстати, как-то любопытствовал. Application.EXEName вызывает внутри себя
ParamStr(0).
А чтобы узнать внутри Dll-ки имя самой Dll-ки с путем (а не вызывающего
exe-шника), нужно воспользоваться GetModuleFileName

// возвращает имя текущего модуля (dll или exe)
function GetModuleName: string;
begin
if not IsLibrary then
Result := ParamStr(0)
else
begin
SetLength(Result, 1024);
SetLength(Result,
GetModuleFileName(HInstance, @Result[1], Length(Result)));
if Result = '' then
Result := ParamStr(0);
end;
end;

вставить

и путь.

параметра

Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   "Vlad" Mon, 22 Dec 2003 00:05:13 +0300 (#40401)