Danke für deine Hilfe.
Zitat von
chaosben:
Was ist denn u für ein Typ?
Da deine Funktion DES_Encrypt einen String zurrückgibt habe ich u auch als string gewählt. Hier also der Code der kompletten Procedure
Delphi-Quellcode:
procedure TMainForm.Button1Click(Sender: TObject);
var Reg: TRegistry;
u:string;
begin
u:=DES_Encrypt('hugohugo',VNC_DES_Key);
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\ORL\WinVNC3', true) then
begin
try
reg.WriteBinaryData('aaa',u,sizeof(u));
except
end;
end;
finally
reg.Free;
end;
end;