Уважаемые мастера подскажите плиз, сервис грузится до входа в

← →
_shark_ © (2004-05-21 13:04) [0]

систему, как определить произвел пользователь вход в систему или нет ?

← →
Clickmaker © (2004-05-21 13:16) [1]

Сервису разрешено общение с рабочим столом? Если да, то через RegisterWindowMessage("TaskbarCreated") для IE > 4 или через FindWindow("Progman", nil);

← →
_shark_ © (2004-05-21 14:15) [2]

что то не помогает.при появлении окна Logon RegisterWindowMessage("TaskbarCreated")выдает что, есть такое, а пользователь фактически еще не вошел в систему.
Вот как бы отловить момент когда пользователь зашел под своим аккаунтом?

Форму создай в сервисе. Сервис должен быть с 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;

Небезызвестный Борланд сокет сервер по такому принципу определяет, когда класть свою иконку в трей. Так что код рабочий

Уважаемые мастера подскажите плиз, сервис грузится до входа в Найти похожие ветки