Blöde Frage

[Zero]

BAer trozdem.. was mache ich falsch

procedure TForm1.FormShow(Sender: TObject);
var<br>
CGReg: TRegistry;<br>
begin<br>
CGReg := TRegistry.Create;<br>
CGReg.RootKey:=HKEY_CURRENT_USER; // Abschnitt in Registrierung<br>
// if CGReg.OpenKey('\Software\systemreg\Autorisiert',Fa lse) = False <br>then
CGReg.OpenKey('\Software\systemreg\',False) ;<br>
if CGReg.KeyExists('Autorisiert') = True then<br>
begin<br>
showmessage('Möglich.');<br>
CGReg.Free;<br>
end<br>
else<br>
begin<br>
showmessage('Nicht Möglich');<br>
CGReg.Free;<br>
end;<br>
end;<br>
<br>
end.

[swen stundzik]

versuch es mal so!!!

reg := tregistry.Create;
reg.RootKey:= HKEY_CURRENT_USER;

if reg.keyexists('Software\systemreg\Autorisiert') then
begin
reg.OpenKey('Software\systemreg\Autorisiert',false );
result := reg.ReadBOOL('autorisiert');
end
else
...

reg.free;

mfg

swe

[Zero]

Hast du es mal getestet. Er fliegt beim Prüfen schön raus...

[swen stundzik]

hi

bei mir funzt es ohne probleme

win2000 delphi5 enterpris

[swen stundzik]

nimm eventuell mal für "result" eine eigene variable, ich erhalte mein ergebnis nämlich als funktionswer

[Zero]

Habe ich auch komisch..

[Zero]

Bis result kommt er ja gar nicht.. er filegt ja beim File Exits schon raus..

[swen stundzik]

mit welcher fehlermeldung fliegt er denn raus

[Zero]

Nein er fliegt mit keinem Fehler raus sorry falsch geschrieben. Er prüft auf FileExits und findet sie nicht, springt dann zu Nicht Möglich. Obwohl der Wert angelegt ist..

[swen stundzik]

du meinst keyexists

er braucht den gesamten schluesse

[Zero]

procedure TForm1.FormShow(Sender: TObject);<br>
var<br>
CGReg: TRegistry;<br>
Result : Boolean ;<br>
begin<br>
CGReg := TRegistry.Create;<br>
CGReg.RootKey:=HKEY_CURRENT_USER; // Abschnitt in Registrierung<br>
// if CGReg.OpenKey('\Software\systemreg\Autorisiert',Fa lse) = <br>False then
<br>
if CGReg.keyexists('Software\systmreg\Autorisiert') = True <br>then<br>
begin<br>
CGReg.OpenKey('Software\systemreg\Autorisiert',fal se);<br>
result := CGReg.ReadBOOL('autorisiert');<br>
if result = True then<br>
begin<br>
showmessage('Zugriff');<br>
CGReg.Free;<br>
end;<br>
end<br>
else<br>
begin<br>
showmessage('Kein zugriff');<br>
CGReg.Free;<br>
end;<br>
end;<br>

So habe ich es... und es geht nicht wie gesagt Keyexit

[swen stundzik]

ich hab den fehler

bei keyexists ist der schlüssel falsch geschrieben "systmreg" statt systemre

[Zero]

Oh man ja klar so ein misst meinst du das hätte ich gesehe

[swen stundzik]

so etwas kommt vor.

hat das mit dem monitor geklappt