Mausbuttons austauschen

Adam Weishaupt · Beiträge: 40

Hi!

Ich wollte ein Programm schreiben, dass auf ButtonClick die beiden Mausbuttons austauscht. Das geht über die Registry:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Control Panel',True);
  reg.OpenKey('Mouse',True);
  reg.WriteString('SwapMouseButtons','1');
  reg.CloseKey;
end;

Nur kommt bei der Deklaration der Variable reg immer ein dieser Fehler:
"Undeclared identifier: 'TRegistry'"

Was ist daran Falsch? Es gibt doch die Klasse TRegistry!

Tweafis · Beiträge: 647 WinXP + fbsd Delphi 5 Prof

Ich tippe mal auf eine nicht eingebundene Unit

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.

CenBells · Beiträge: 1547 Win 7 Delphi XE5 Pro

ja, da hat tweafis wohl recht,
du musst die unit Registry in die uses clause mit aufnehmen.

Gruß
Ken

Adam Weishaupt · Beiträge: 40

ES FUNKTIONIERT!!!!

*LOOOOL*

oh man, wieso bin ich nicht selber drauf gekommen!? verdammt!

egal, jetzt werde ich das wohl nie mehr vergessen ~lol~

vielen dank an Tweafis und CenBells :wink:

Tweafis · Beiträge: 647 WinXP + fbsd Delphi 5 Prof

Ich glaube ein F1-Druck auf TRegistry hätte auch gereicht

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme