Sim, vídeo aula simples, com poucas informações e sem lá tanta utilidade, mas como estou afim de divulgar todas as minhas vídeo aulas no fórum, ela também esta incluída xDTITULO DA JANELA ATIVA:
var
titulo: string;
begin
setlength( titulo, 255 );
GetWindowText( GetforegroundWindow, PChar(titulo), 255);
end;
DETECTAR INATIVIDADE:
function Inativo: Integer;
var
InpInfo: TLastInputInfo;
begin
InpInfo.cbSize := SizeOf(TLastInputInfo) ;
GetLastInputInfo(InpInfo) ;
Result := (GetTickCount - InpInfo.dwTime) DIV 1000;
end;


Responder com Citação

