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

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

Re: API

Ну... путь лучше поискать в реестре, или организовать find самому. Может кто
и подскажет способ лучше...

Чтоб отследить нужное приложение надо регулярно (с помощью TTimer) получить
список приложений и искать среди них нужное:
implementation
var
l:TStringList;
...
procedure FindApp(Sender: TObject);
var
Wnd: hWnd;
buff: array[0..127] of Char;
begin
l.clear;
Wnd:=GetWindow(Handle, gw_HWindFirst);
while Wnd <> 0 do begin
if (Wnd <> Application.handle) and
IsWindowVisible(Wnd) and
(getWindow(wnd, gw_Owner) = 0) and
(GetWindowText(Wnd, buff, sizeof(buff)) <.0) then begin
GetWindowText(Wnd, buff, sizeof(buff));
l.add(StrPas(buff));
end; // if
wnd:=GetWindow(wnd, gw_hWndnext);
end; // while
end; // procedure

Желаю удачи, остается только сравнить заголовки приложений из l:TStringList
с нужным нам заголовком.
Процедура при поиске пропускает себя, невидимые и дочерние окна.

С уважением monah
http:\\janalex.narod.ru
Получить правила : 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

Ответить   Sat, 10 Jan 2004 13:51:12 +0600 (#50994)