Forum: Programmieren allgemein
by chaosben,
27. Aug 2008
Ok, mit der gefixten Version von hier und dem Code sollte es gehen:
procedure TForm1.btn_Button1Click(Sender: TObject);
var
passw : TDES_Data;
reg : TRegistry;
begin
passw := DES_Encrypt(ed_PW.Text, VNC_DES_Key);
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
Forum: Programmieren allgemein
by chaosben,
26. Aug 2008
Ich glaube du hast Recht. Das Problem liegt wahrscheinlich in der Art wie du die Daten in die Registry schreibst.
Was ist denn u für ein Typ?
SizeOf(u) liefert die die Größe von u im Speicher. In der Annahme das u ein PChar ist, wird SizeOf(u) immer 4 liefern, egal was in u "drinsteht". Schick mal bitte die komplette Prozedur samt Variablendeklarationen und ich werd zusehen, das ich dir morgen...