PDA

Visualizza la versione completa : Reg


Radio
19-06-2002, 01:06
Sapete mica dove posso trovare istruzioni per fafe quelcosa nel registro di configurazione?

Magari per fare qualcosa di carino...!

Grazie!

bDaniele
19-06-2002, 10:38
in delphi??

Radio
19-06-2002, 11:03
delphi? ovvero?

bDaniele
19-06-2002, 11:46
ti serve codice per delphi?

Radio
19-06-2002, 11:50
diciamo di si allora...

bDaniele
19-06-2002, 13:11
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;

Loading