| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Автоблокировка компьютера [D4, D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]
Алим © (2004-12-06 12:45:00)Каким образом узнать что пользователь не перемещает мышь и не жмет клавиши на клавиатуре.
Программа работает в фоновом режиме. Я пишу программу для блокировки компьютера если им не пользуются в течении 1-2 минут. (похоже на скринсэйвер).
YV (2005-01-20 13:28:00) [1]// 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;
Игорь Шевченко (2005-01-19 14:53:00) [2]GetLastInputInfo ? или MsIdle.dll
YV (2005-01-19 14:51:00) [3]Приветствую!
Советую зайти на http://www.delphiworld.narod.ru, там есть ответ на твой вопрос, но работать будет, кажется, только в Win2k/XP.
Описаны две функции LockSystem и UnlockSystem, но там есть пару ошибок, касающихся вызовов системных процедур, -- после их вызова не нужно делать Exit, как это сделал автор, иначе не будет выполняться следующий код... В общем, я думаю Вы, сударь, сами разберетесь уже в этом. Всего хорошего!
DVM (2004-12-06 15:00:00) [4]хук на клавиатуру и мышь + таймер
| |
