Скачать: CL | DM;

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

← →
_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")выдает что, есть такое, а пользователь фактически еще не вошел в систему.
Вот как бы отловить момент когда пользователь зашел под своим аккаунтом?

---

← →
Clickmaker ©   (2004-05-21 15:27) [3]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c