Ich brauch nochmal Rat.
ich hab hier jetzt das hier fabriziert:
Delphi-Quellcode:
function RegCheck():Boolean;
begin
result:= false;
reg:= TRegistry.Create;
try
reg.RootKey:= HKEY_Local_Machine;
if reg.KeyExists('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\') then
begin
if reg.ValueExists('KeyName') then
begin
Name:= ('HKEY_Local_Machine\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\KeyName');
result:= True;
x:= 1;
end;
end;
reg.RootKey:= HKEY_Current_User;
if reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\', False) then
begin
if reg.ValueExists('KeyName') then
begin
Name:= ('HKEY_Current_User\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\KeyName');
result:= True;
x:= 2;
end;
end;
finally
reg.Free;
end;
end;
Ich bekomme als Result zwar True, was richtig ist, allerdings wird x nicht deklariert, und die name-ausgabe liefert: 'Form1', und das obwohl die nirgendwo als 'Form1' definiert wird.
Was nu?
Danke