Sapete mica dove posso trovare istruzioni per fafe quelcosa nel registro di configurazione?
Magari per fare qualcosa di carino...!
Grazie!
Sapete mica dove posso trovare istruzioni per fafe quelcosa nel registro di configurazione?
Magari per fare qualcosa di carino...!
Grazie!
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;