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

Автоблокировка компьютера   Найти похожие ветки 

← →
Алим   (2004-12-06 12:45) [0]

Каким образом узнать что пользователь не перемещает мышь и не жмет клавиши на клавиатуре.
Программа работает в фоновом режиме. Я пишу программу для блокировки компьютера если им не пользуются в течении 1-2 минут. (похоже на скринсэйвер).

---

← →
DVM ©   (2004-12-06 15:00) [1]

хук на клавиатуру и мышь + таймер

---

← →
YV ©   (2005-01-19 14:51) [2]

Приветствую!
Советую зайти на http://www.delphiworld.narod.ru, там есть ответ на твой вопрос, но работать будет, кажется, только в Win2k/XP.
Описаны две функции LockSystem и UnlockSystem, но там есть пару ошибок, касающихся вызовов системных процедур, -- после их вызова не нужно делать Exit, как это сделал автор, иначе не будет выполняться следующий код... В общем, я думаю Вы, сударь, сами разберетесь уже в этом. Всего хорошего!

---

← →
Игорь Шевченко ©   (2005-01-19 14:53) [3]

GetLastInputInfo ? или MsIdle.dll

---

← →
YV ©   (2005-01-20 13:28) [4]

// GetLastInputInfo function retrieves the time
// of the last input event.
// Minimum operating systems: Windows 2000
function LastInput: DWord;
var
 LInput: TLastInputInfo;
begin
 LInput.cbSize := SizeOf(TLastInputInfo);
 GetLastInputInfo(LInput);
 Result := GetTickCount - LInput.dwTime;
end;

//Example:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Caption := Format("System Idle since %d ms", [LastInput]);
end;

---

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

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



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