vnc Passwort setzen

[chaosben]

Ok, mit der gefixten Version von hier und dem Code sollte es gehen:

Delphi-Quellcode:

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;
    if reg.OpenKey('\Software\RealVNC\WinVNC4', false) then
      reg.WriteBinaryData('pw', passw, Length(passw));
  finally
    reg.Free;
  end;
end;