| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Уважаемые мастера подскажите плиз, сервис грузится до входа в [D5, D6, Win2k]
_shark_ © (2004-05-21 13:04:00)систему, как определить произвел пользователь вход в систему или нет ?
Clickmaker (2004-05-21 15:27:00) [1]Форму создай в сервисе. Сервис должен быть с Interactive = true.
procedure TServerForm.ServerFormCreate(Sender: TObject);
begin
FMsg := RegisterWindowMessage('TaskbarCreated');
end;
procedure TServerForm.WndProc(var Message: TMessage);
begin
if Message.Msg = FMsg then
// юзер вошел
inherited WndProc(Message);
end;
Небезызвестный Борланд сокет сервер по такому принципу определяет, когда класть свою иконку в трей. Так что код рабочий
_shark_ (2004-05-21 14:15:00) [2]что то не помогает.при появлении окна Logon RegisterWindowMessage('TaskbarCreated')выдает что, есть такое, а пользователь фактически еще не вошел в систему.
Вот как бы отловить момент когда пользователь зашел под своим аккаунтом?
Clickmaker (2004-05-21 13:16:00) [3]Сервису разрешено общение с рабочим столом? Если да, то через RegisterWindowMessage('TaskbarCreated') для IE > 4 или через FindWindow('Progman', nil);
| |
