Delphi Registry Dword Eintrag erstellen

Also ich möchte der Registry einen Dword Eintrag hinzufügen.
Ich hab einen Ansatz aber immer wenn ich das Programm starten will sagt Delphi mir als Fehlermeldung:

[Fehler] Unit1.pas(34): Inkompatible Typen: ‚Integer‘ und ‚Char‘

Hier mein Programm:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Registry, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
Registry : TRegistry;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Registry:=TRegistry.Create;
try
Registry.Rootkey:=HKEY_CURRENT_USER;
Registry.OpenKey(‚Software\TestEintrag‘ ,True);
Registry.WriteInteger(‚Eintrag‘, ‚1‘ );
except
Registry.Free;
end;
Registry.Free;
end;
end;

end.

Vielen Dank schonmal im voraus.

MfG

Tristan

Hallo,

Registry.WriteInteger(‚Eintrag‘, ‚1‘ );

und wo ist da jetzt der Integer?

Gruß, Niels

Ich versteh deine Frage leider nicht ganz, aber aufjeden Fall hab ich das hier gefundn,

reg.WriteString(‚wertname‘,‚inhalt‘); // Zeichenfolge schreiben

reg.WriteInteger(‚wertname‘,zahl); // DWORD-Wert schreiben

und ich möchte ja einen Dword Eintrag schreiben.

Also WriteInteger. Aber wo ist mein Fehler?

MfG

Tristan

1 Like

Hallo,

reg.WriteInteger(‚wertname‘,zahl); // DWORD-Wert schreiben

genau! Und Du schreibst:

Registry.WriteInteger(‚Eintrag‘, ‚1‘ );
Ich sehe da keinen Integer! Jetzt überleg mal, warum da kein Integer steht!

Gruß, Niels

Hallo,

reg.WriteString(‚wertname‘,‚inhalt‘);
reg.WriteInteger(‚wertname‘,zahl);

[…]

Also WriteInteger. Aber wo ist mein Fehler?

Du hast noch nicht die Bedeutung der Tatsache erkannt, dass zwar wertname in ’ ’ steht und inhalt auch, aber nicht zahl. ‚1‘ ist etwas anderes als 1.

Jetzt…?

Gruß
Martin

Och, Mann…
Spielverderber! :smile:)

Ich fands voll nett.
Danke Martin (-:

1 Like