Chvalov

Попробуй!

uses
  idHTTP;

function GetMyRealIP : String;
var
  HTTP    : TidHTTP;
  text    : String;
  lc_pos  : Integer;
begin
  HTTP := TidHTTP.Create(nil);
  try
    text := HTTP.Get('http://whatismyip.com/');
  finally
    HTTP.Free;
  end;
  lc_pos := Pos('WhatIsMyIP.com</title>', text);
  text   := Copy(text, 1, lc_pos-1);
  lc_pos := Pos('Your IP is', text);
  text   := Copy(text, lc_pos + 10, length(text) - lc_pos + 1);
  Result := Trim(text);
end;

буду пробовать мануал - vvy.me/bot_na_TWebBrowser_v_Delphi.html
Или же использовать что то из-этого www.cyberforum.ru/blogs/178692/blog554.html
forums.avtograd.ru/index.php?showtopic=145&view=fi...

Ну не хотел бы я себе такой программы, включу какой-то фильм длительностью 3 часа и придется три раза бегать и включать.
Или же пользователь поставит на ночь с пару сотен ГБ качать (Например сериал) с ожиданием что утром будет смотреть в HD и завтыкал что у него программа выключала в автозагрузке включена.

Нужно мониторить не только средства ввода но и сетевую активность (только нужна методика чтобы в тот момент когда выключала будет мониторить не обновлялся антивирус и другое ПО).

Также если же он просто включил фильм и смотрит то мониторить текущий спектр громкости.

Также можно определить есть ли кто то возле ПК если у пользователя есть ВЕБ камера или даже микрофон (Типа датчик движения будет)