Текущий архив: 2004.07.04;
Скачать: 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 вся ветка
Текущий архив: 2004.07.04;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.024 c
