Автоблокировка компьютера

← →
Алим (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

// 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;

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