Mausspur

[Fredyy]

Hi,
Ich habe wieder mal eine Frage :)
Diesmal, wie ich mit Delphi die Windows-Mausspur ansteuern kann.
Ihr wisst schon das teil, was jeden nervt :)

Naja ich brauche es abundzu auf meinem notebook und wollte mir ein prog dafür basteln.

danke schonmal

bye
fredyy

[mkinzler]

Zitat:

wie ich mit Delphi die Windows-Mausspur ansteuern kann.

Wie meinst du das, willst du diese Funktion durch dein Programm aktivieren oder möchtest du das selber implementieren?

[Fredyy]

ich möchte die windows-funktion aktivieren.

Ich weiß auch das es geht nur leider nicht wie :(

google hilft mir auch nciht weiter

bye
fredyy

[hboy]

In die Hölle mit dir ;)

[hboy]

so... hab mir die abgefetzte Haut wieder angenäht:

Delphi-Quellcode:

type PVoid = ^Pointer;
function SystemParametersInfo( uiAction: Cardinal; uiParam: Cardinal; pvParam: PVOID; fWinIni: Cardinal) : Boolean; // stdcall; external 'user32.dll';

mit der Aktion SPI_SETMOUSETRAILS

http://msdn.microsoft.com/library/de...metersinfo.asp

[Fredyy]

danke schonmal für all eure tipps.

Doch habe ich nun das Problem, dass ich noch nie mit DLL's gearbeitet habe.
Ich weiß leider nicht wie ich eine DLL einbinde.
Ich hoffe ihr könnt mir helfen.


bye
Fredyy

[RWarnecke]

Damit Du mit DLL's arbeiten kannst, lese Dir einfach diese Tutorial von Assarbad durch. Hat mir auch sehr geholfen um mit DLL's umgehen zu können.

[turboPASCAL]

Oder einfach nur:

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;

Obwohl der Aufruf klar ist mach ich mal ein Beispiel ;) :

Delphi-Quellcode:

procedure TFormX.CheckBoxXClick(Sender: TObject);
begin
  SetMouseTrail( CheckBoxX.Checked );
end;

[Fredyy]

danke, danke

funktioniert wunderbar.

danke
bye fredyy