Re: Registry und DWORDs
Haste nich´ ´ne Studentin, die das machen könnte? :mrgreen:
|
Re: Registry und DWORDs
Ne du, hab ich net, aber ich kann es nach wie vor. Nur leider brauch ich dazu was ...
|
Re: Registry und DWORDs
Uralter Beitrag, aktuelles Problem:
Zitat:
Soll heißen: Ich habe mir das D8 Update #2 besorgt und installiert. Das Schreiben von DWords in die Registry nach dem o.g. Muster geht bei mir (D8 Pro) nach wie vor nicht. Ich bin erstaunt, dass es bei dir geklappt hat. Sollen die Unterschiede zwischen Pro- und Architektversion wirklich so groß sein? |
Re: Registry und DWORDs
Zitat:
Da ich schon oft Problemchen mit lokalisierter Software hatte, besorge ich mir immer das Original. Im englischen D8 klappte es einwandfrei. (Ich teste es gleich nochmal...) |
Re: Registry und DWORDs
Ich bin dir ja dankbar für deine Hilfe, und nimm´s bitte nicht persönlich ... aber wo siehst du denn hier:
Zitat:
|
Re: Registry und DWORDs
Liste der Anhänge anzeigen (Anzahl: 1)
Viele lokalisierte Programme bocken oft an Stellen, wo man es nicht vermutet (sonst wäre der Fehler schon früher gefunden worden ;) )
Zum Thema: Es funktioniert einwandfrei. Ich habe eben schnell was zusammengeklickt. Mit dem Schnipsel bekommst du den Wert und den Typ (dürfte in dem Fall immer Int32 sein ;) )
Delphi-Quellcode:
Edit: war wohl zu langsam, du hast es im anderen thread schon gelöst ;)
procedure TfrmTestReg.btnWrite_Click(sender: System.Object; e: System.EventArgs);
var reg :RegistryKey; begin reg := Registry.CurrentUser.OpenSubKey('Software\TestReg', true); if txtRegWrite.Text.Trim = '' then reg.SetValue('Miep' , Int32.Parse(txtRegRead.Text)) else reg.SetValue(txtRegWrite.Text.Trim , Int32.Parse(txtRegRead.Text.Trim)); end; procedure TfrmTestReg.btnRead_Click(sender: System.Object; e: System.EventArgs); var reg :RegistryKey; FetchedObj :System.Object; begin reg := Registry.CurrentUser.OpenSubKey('Software\TestReg', false); if txtRegWrite.Text.Trim = '' then FetchedObj := reg.GetValue('Miep' , -1) else FetchedObj := reg.GetValue(txtRegWrite.Text.Trim , -1); txtRegRead.Text := FetchedObj.ToString; if FetchedObj.ToString <> '' then lblRegType.Text := FetchedObj.GetType.ToString else lblRegType.Text := '(null)'; end; |
Re: Registry und DWORDs
Tja, ich bin ratlos. :(
Zitat:
Zitat:
Ob bitte mal andere stolze (?) Besitzer von Delphi 8 Professional ausprobieren könnten, ob der o.g. Code funktioniert? Bei mir geht´s nicht. Der "Microsoft.Win32"-Namespaces muss unter uses eingebunden werden. |
Re: Registry und DWORDs
Zitat:
Der 2. Parameter von SetValue ist ein System.Object. Davon werden ALLE typen und Klassen abgeleitet (sogar Arrays!). Ein Int32 sollte also IMMER passen... there smells something extremely rotten in state of Borland :? |
Re: Registry und DWORDs
Zitat:
Zitat:
Na ja, ich schreib mal eben eine Mail an den Kundendienst. Wenn die die Post wieder ignorieren, wie damals die Pienitz (oder wie die heißt), dann muss ich mal schauen wie man die Aufmerksamkeit von Borland bekommen kann. :evil: |
Re: Registry und DWORDs
Gut, Problem erkannt; Gefahr gebannt.
Im DF schrieb ich gerade Mensch, das war ein Krampf. Ich weiß jetzt warum es nicht ging. Oder sagen wir: Ich kenne die Ursache. Es gibt standardmäßig eine nicht dokumentierte Compileroption
Delphi-Quellcode:
im Quelltext der Unit. In der Hilfe steht nichts dazu, aber Google brachte mich u.a. auf diese Seite, wo folgendes steht:
{$AUTOBOX ON}
Zitat:
Nachzulesen hier. Damit hätte sich das technische Problem zwar gelöst, aber dennoch bleibt ein bitterer Beigeschmack. Ich schätze, da wird eine weitere Mail an den Kundendienst fällig werden. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:15 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz