Visualizzazione dei risultati da 1 a 6 su 6

Discussione: Reg

  1. #1
    Utente di HTML.it L'avatar di Radio
    Registrato dal
    Mar 2002
    Messaggi
    2,966

    Reg

    Sapete mica dove posso trovare istruzioni per fafe quelcosa nel registro di configurazione?

    Magari per fare qualcosa di carino...!

    Grazie!

  2. #2
    in delphi??

  3. #3
    Utente di HTML.it L'avatar di Radio
    Registrato dal
    Mar 2002
    Messaggi
    2,966
    delphi? ovvero?

  4. #4
    ti serve codice per delphi?

  5. #5
    Utente di HTML.it L'avatar di Radio
    Registrato dal
    Mar 2002
    Messaggi
    2,966
    diciamo di si allora...

  6. #6
    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;

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.