vnc Passwort setzen

[noi]

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;