No replies to this topic

[sir.dev.a.lot]

[TRUCO DELPHI] Raton conectado

delphi

function MouseExists: Boolean;
	begin
	 Result := GetSystemMetrics(SM_MOUSEPRESENT) <> 0;
	end;

Ejemplo de Uso:

delphi

procedure TForm1.Button1Click(Sender: TObject);
	begin
	  if MouseExists then
	    ShowMessage('Hay raton.');
	end;

Saludos!