Moin.
Ich versuche jetzt seit Stunden, mein Programm zum laufen zu bringen aber es will einfach nicht. Es soll einfach nur überprüfen, ob ein Key in der Registry vorhanden ist.
Aber ich habs echt in X verschiedenen Arten getestet, z.B. so:
Delphi-Quellcode:
begin
result:= false;
reg:= TRegistry.Create;
try
reg.RootKey:= HKEY_Local_Machine;
if reg.KeyExists('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\KeyName') = True then
begin
Name:= ('HKEY_Local_Machine\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\KeyName');
result:= True;
end;
finally
reg.Free;
end;
end;
oder so:
Delphi-Quellcode:
begin
result:= false;
reg:= TRegistry.Create;
try
reg.RootKey:= HKEY_Local_Machine;
if reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\KeyName', False) = True then
begin
Name:= ('HKEY_Local_Machine\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\KeyName');
result:= True;
end;
finally
reg.Free;
end;
end;
und so:
Delphi-Quellcode:
begin
result:= false;
reg:= TRegistry.Create;
try
reg.RootKey:= HKEY_Local_Machine;
reg.CurrentPath:= '\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\';
if reg.KeyExists('KeyName') = True then
begin
Name:= ('HKEY_Local_Machine\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\KeyName');
result:= True;
end;
finally
reg.Free;
end;
end;
Wahrscheinlich wieder irgendwas ganz primitives, das ih übersehen habe oder?
Danke für eure Hilfe