Hallo

Im anhang ist ein Bild eines Binären Registry Eintrag.

Diesen möchte ich mit einem Delphi Programm auch erzeugen können.

Doch wenn ich nen String schreibe gibts keine Zusätzlichen Punkte...

Weiss jemand wie ich das machen muss?

Danke schonmal

Das ist offenbar, wie dir in dem anderen Thread bereits mitgeteilt wurde, ein Unicodestring. Benutz mal die Forensuche.

Das ist ein Unicode-String. Also musst du Widestring statt (Ansi-)String verwenden.

Danke..

Es macht nun zwar die gleichen Punkte aber es kann nicht mehr den gesamten Inhalt schreiben.

Ich mache es so:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
reg:TRegistry;
nFile:widestring;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\MSNMessenger',false);
nFile := '"'+paramstr(0)+'"';
Reg.WriteBinaryData('AntiVirus', nFile[1], Length(nFile));
Reg.Free;
end;

Im RegEdit gehts gerade noch bis zum "R" von C:\Dokummente und Einstellungen\Eigene Dateien\R.... (ad Studio)

Da ein Widestring Widechars beinhaltet, musst du die Länge mit zwei multiplizieren. Außerdem solltest du ein bisschen mit den abschließenden Null-Bytes experimentieren.

Das mit dem multiplizieren ist mir in dem Augenblick eingefallen
als die Benachrichtigung wegen des neuen Beitrags gekommen ist


Aber was meinst du mit Null Bytes?

Offensichtlich endet dein Beispiel-Registry-Eintrag mit zwei Null-Bytes, also ein #0-Char wie beim gewöhnlichen PChar auch. Es kann sein, dass der MSNMessenger diese erfordert, dann musst du zur mit zwei multiplizierten Länge noch zwei addieren.

Super... Vielen Dank

Hat ausgezeichnet geklappt