Delphi Registry Dword Eintrag erstellen

Computer: Software & Programmierung Delphi & Pascal
1

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

2

Hallo,

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

und wo ist da jetzt der Integer?

Gruß, Niels

3

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 „Gefällt mir“
4

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

5

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

6

Och, Mann…
Spielverderber! :smile:)

7

Ich fands voll nett.
Danke Martin (-:

1 „Gefällt mir“