Hi!
turboPASCAL hat
hier eine einfache Möglichkeit vorgestellt, wie man die Mausspur an- bzw. ausschaltet:
Delphi-Quellcode:
// Die Function SystemParametersInfo() gibts in der Unit Windows.
uses
Windows,...
function SetMouseTrail(
const MouseTrailState: Boolean): Boolean;
var State: Byte;
begin
if MouseTrailState
then State := succ(1)
else State := pred(1);
Result := SystemParametersInfo(SPI_SETMOUSETRAILS, State,
nil, 0);
end;
Aufgerufen wird das Ganze bspw. so:
Delphi-Quellcode:
procedure TFormX.CheckBox1Click(Sender: TObject);
begin
SetMouseTrail(CheckBox1.Checked);
end;
Ciao Frederic