Hallo ich wollte einige Daten in der Registry speichern und hab das eigendlich auch so gemacht wie man es machen könnte, das Problem dabei ist aber, das ich bei diesem Quelltext:

zusammenfalten · markieren

Delphi-Quellcode:

function TEDM.WriteDSNToRegistry(DSN: String): Boolean;
var Registry: TRegistry;
begin
  WriteDSNToRegistry := true;
  Registry := TRegistry.Create;
  Registry.RootKey := HKEY_LOCAL_MACHINE;
  if Registry.KeyExists('\Software\EvilBird') = false then
    try
      Registry.CreateKey('\Software\EvilBird');
    except
      Registry.Free;
      WriteDSNToRegistry := false;
      exit;
    end;
  try
    if Registry.OpenKey('\Software\EvilBird', true) = true then
      Registry.WriteString('DSN', DSN)
    else
    begin
      MessageDlg('Es konnte nicht in die Registry geschrieben werden ', mtError, [mbOK], 0);
      WriteDSNToRegistry := false;
    end;
  finally
    Registry.CloseKey;
    Registry.Free;
  end;
end;

diesen Fehler bekomme:

Undeclared identifier: 'HKEY_LOCAL_MACHINE'

ich habe schon rum geschaut, aber ich kann nix finden nur eine Seite auf Ausländisch (bei google) was ich net verstehe...
Bitte um Hilfe, wenn jemand ne ahnung hat.

©u Micha

hallo micha,

war blödsinn ..sorry

Moin Micha,

ich hab' mal Deine Prozedur per Copy&Paste in ein neues Projekt kopiert, die Prozedur in den public Abschnitt des Formualres aufgenommen, TEDM durch TForm1 ersetzt, und Registry unter uses hinzugefügt.
Kein Problem, wird anstandslos kompiliert.