Delphi [Comando] Mouse sumir apôs um tempo.

[Kaao]

Um bom comando para alguns pogramas, como de vídeo ^^

Crie um timer e também uma label.

Agora adicione esta procedure que fará o mouse desapareçer:

function MouseShowCursor(const Show: boolean): boolean;
var
I: integer;
begin
I := ShowCursor(LongBool(true));
if Show then
begin
Result := I >= 0;
while I < 0 do begin
Result := ShowCursor(LongBool(true)) >= 0;
Inc(I);
end;
end else
begin
Result := I < 0;
while I >= 0 do begin
Result := ShowCursor(LongBool(false)) < 0;
Dec(I);
end;
end;
end

E também esta outra que detecta a inatividade do PC.

function Inativo: Integer;
var
InpInfo: TLastInputInfo;
begin
InpInfo.cbSize := SizeOf(TLastInputInfo) ;
GetLastInputInfo(InpInfo) ;
Result := (GetTickCount - InpInfo.dwTime) DIV 1000;
end;

Agora vamos fazer com que apôs X tempo de inatividade do PC o mouse se apaga.
No timer adicione o seguinte comando:

Label1.Caption := 'Máquina inativa por ' + inttostr(Inativo) + ' segundos.';

if inativo > '4' then
begin
MouseShowCursor(false);
end;

PS:Você pode alterar o número 4 por qual quer outro, ele define depois de quantos segundos o mouse sumirá.
[B]Lembre-se[:/B] O sinal > siguinifica maior, ou seja, somente depois de 5 que some.[U]

Agora no form na parte events dele na parte onmosemove adicione o seguinte comando:

MouseShowCursor(true);

Viu como é simples??
Isso que eu fiz foi uma pequena lógica de pogramação, apenas juntei duas procedures separadas e fiz isso.

Crétidos:
Edição: Kaao.
Indicação do comando de sumir mouse: alienatico
Criador do comando e indicação da inatividade: Black-Hat

Leu? Seu educado, clique em obrigado, seu clique vale muito para min ^^
Vai ussar ou tem tempo sobrando? Comente ^^
Achou o tópico organizado? De a nota dele ^^