Results 1 to 13 of 13

Thread: Registry editor component

  1. #1

    Registry editor component

    Weet iemand toevallig een registry editor component (met source) te vinden?

    Tot nu toe heb ik niets kunnen vinden.

  2. #2
    Senior Member Wok's Avatar
    Join Date
    Dec 2002
    Location
    Alkmaar
    Posts
    2,085
    JVCL heeft zoiets, in de demos is JVRegistryTreeView te vinden

    https://sourceforge.net/projects/jvcl/files/
    10.4.2, Delphi2010, of Lazarus 2.2.0

  3. #3
    Bedankt! Ik zal het gaan bekijken.

  4. #4
    Als je alleen een manier zoekt om je applicatie settings op te slaan in het register, dan kun je ook het JvAppRegistryStorage component gebruiken van de JVCL.

  5. #5
    Senior Member Wok's Avatar
    Join Date
    Dec 2002
    Location
    Alkmaar
    Posts
    2,085
    Er bestaat ook een class TResourceStream, is dat wat je zoekt ?

    of deze

    Een bekende Resource Editor van Colin Wilson
    Last edited by Wok; 20-Aug-17 at 03:17.
    10.4.2, Delphi2010, of Lazarus 2.2.0

  6. #6
    Ik zoek meer een visual component voor het aanmaken en wijzigen van registry keys.

  7. #7
    Quote Originally Posted by mrniceguy View Post
    Ik zoek meer een visual component voor het aanmaken en wijzigen van registry keys.
    Dan lijkt de eerdergenoemde JVRegistryTreeView een ideaal punt om mee te beginnen:

    Click image for larger version. 

Name:	ummyk6O.png 
Views:	85 
Size:	13.4 KB 
ID:	7618

  8. #8
    Ik vraag me wel een klein beetje af waarom je dit zou willen en niet gewoon RegEdit32 op zou starten.
    1+1=b

  9. #9
    Overigens heeft JVCL dus een compleet voorbeeld in de examples staan.

    \jvcl\examples\JvRegistryTreeView\RegEditDemo.dpr

    Click image for larger version. 

Name:	9nQpWKx.png 
Views:	76 
Size:	23.9 KB 
ID:	7622

    Maar het is inderdaad de vraag wat je er precies mee wilt doen.
    Wil je zelf bepaalde keys aanpassen dan kun je natuurlijk volstaan met een simpele stringgrid waar je deze in zet.

  10. #10
    @Goleztrol: het gaat om een editor voor een virtual registry.

  11. #11
    Quote Originally Posted by mrniceguy View Post
    Ik zoek meer een visual component voor het aanmaken en wijzigen van registry keys.
    Quote Originally Posted by mrniceguy View Post
    @Goleztrol: het gaat om een editor voor een virtual registry.
    Ik denk niet dat we je echt vooruit kunnen helpen met de informatie die je geeft. Wat wil je nou precies?

    Wat versta jij onder "virtual registry" (waar je nu in één keer mee komt).
    Instellingen opslaan van je programma?
    Waar? In een database? In een ini bestand? In de Windows-registry?

    Hulp kunnen we alleen geven als je een beetje uitleg geeft

  12. #12
    @rvk: het was meer een informatieve mededeling

    Ik wil gewoon registry keys vanuit een eigen applicatie kunnen definiëren. Deze worden tijdens het starten van onze commerciele applicatie geladen.

    De eerder gegeven informatie was dus voldoende.

  13. #13
    Senior Member Wok's Avatar
    Join Date
    Dec 2002
    Location
    Alkmaar
    Posts
    2,085
    Delphi Code:
    1. Function RegRead(Const MyField: String): String;
    2. { -------------------------------------------------------------
    3.    Example:   label1.Caption := RegRead('Path'); // Geeft waarde uit registerverwijzing.
    4.   -------------------------------------------------------------- }
    5. Var
    6.   Reg: TRegistry;
    7.  
    8.   Function Lees_Sleutelwaarde_uit_registry(MyField: String): String;
    9.   Begin
    10.     Result := '';
    11.     If Reg.OpenKeyReadOnly(DefaultRegistryKey + ApplicationTitel) Then //als de rootkeysleutel bestaat
    12.       Begin
    13.         If Reg.ValueExists(MyField) Then //Is  de  sleutel aanwezig ?
    14.           Result := Reg.Readstring(MyField); //lees de sleutelwaarde
    15.       End
    16.   End;
    17.  
    18. Begin
    19.   Try
    20.     Reg := TRegistry.Create; //Create the Object  (HKEY_CURRENT_USER, KEY_ALL_ACCESS);
    21.  
    22.     Result := Lees_Sleutelwaarde_uit_registry(MyField);
    23.     If Result = '' Then
    24.       Begin
    25.         //deze verwijzing heeft geen voorkeur, omdat je met schrijfrechten zit.
    26.         Reg.RootKey := HKEY_LOCAL_MACHINE; //kijk in HKEY_LOCAL_MACHINE
    27.         Result := Lees_Sleutelwaarde_uit_registry(MyField); ; //Read the value from the field
    28.       End;
    29.   Finally
    30.     Reg.CloseKey;
    31.     Reg.Free;
    32.   End;
    33. End;
    34.  
    35. Procedure RegWrite(Const MyField, MyValue: String);
    36. { -------------------------------------------------------------
    37.   Example:   RegWrite('waarde', 'blablabla');
    38.   --------------------------------------------------------------- }
    39. Var
    40.   Reg: TRegistry;
    41. Begin
    42.   Reg := TRegistry.Create; //Create the Object
    43.   Try
    44.     If Reg.OpenKey(DefaultRegistryKey + ApplicationTitel, True) Then //als de key bestaat dan maken
    45.       Reg.WriteString(MyField, MyValue) //We don't need to check if the field is available because the field is created by writing the value
    46.     Else
    47.       ShowFout;
    48.   Finally
    49.     Reg.CloseKey;
    50.     Reg.Free;
    51.   End;
    52. End;

    Daar heb je toch geen component voor nodig, twee routine's in een aparte unit is voldoende.
    10.4.2, Delphi2010, of Lazarus 2.2.0

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •