Reg

[bDaniele]

includi Registry

questa è la funzione per leggere:

function RegRead(Key, Name: String; DefaultValue: Variant): Variant;
var Reg:TRegistry;
begin
Reg:=TRegistry.Create;
if Reg.KeyExists(Key) then
begin
Reg.OpenKey(Key,False);
try
case VarType(DefaultValue) of
varSmallint, varInteger : Result := Reg.ReadInteger(Name);
varSingle,varDouble : Result := Reg.ReadFloat(Name);
varCurrency : Result := Reg.ReadCurrency(Name);
varDate : Result := Reg.ReadDateTime(Name);
varBoolean : Result := Reg.ReadBool(Name);
varString : Result := Reg.ReadString(Name);
else
begin
Result:=DefaultValue;
end;
end;
except
Result:=DefaultValue;
end;
Reg.CloseKey;
end
else Result:=DefaultValue;
Reg.Free;
end;


con questa scrivi:

function RegWrite(Key,Name: String; Value: Variant):Boolean;
var Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Result:=Reg.KeyExists(Key);
Reg.OpenKey(Key,True);
case VarType(Value) of
varSmallint, varInteger : Reg.WriteInteger(Name,Value);
varSingle,varDouble : Reg.WriteFloat(Name,Value);
varCurrency : Reg.WriteCurrency(Name,Value);
varDate : Reg.WriteDateTime(Name,Value);
varBoolean : Reg.WriteBool(Name,Value);
varString : Reg.WriteString(Name,Value);
else
begin
if Result=False then Reg.DeleteKey(Key);
end;
end;
Reg.CloseKey;
Reg.Free;
end;