Menü

Registryzugriff über API (iScript)

Zurück | Ebene zurück

Es gibt in der Eulanda die Möglichkeit, die Registry über die vorgegebenen APIs zu verändern.

Ein Registry-Objekt wird über die Methode CreateRegistry des Client-Objektes erzeugt.

Methoden

  • function OpenKey(const Key: string): LongBool;
  • function DeleteKey(const Key: string): LongBool;
  • function CreateKey(const Key: string): LongBool;
  • function RenameKey(const OldKey,NewKey: string): LongBool;
  • function HasSubKeys: LongBool;
  • function KeyExists(const Key: string): LongBool;
  • function GetKeyNames: string;
  • function GetTimestamp(const Key: string): string;
  • function DeleteValue(const Name: string): LongBool;
  • function RenameValue(const OldName,NewName: string): LongBool;
  • function ValueExists(const Name: string): LongBool;
  • function GetValueNames: string;
  • function GetDataType(const Name: string): LongInt;
  • function GetDataSize(const Name: string): LongInt;
  • function Clone(FLags: Cardinal): Variant;

Die wichtigsten Methoden:

  • function Read(const Name: string): variant;
  • function ReadDef(const Name: string; Def: Variant): variant;
  • function Write(const Name: string; Value: Variant): LongBool;
  • function OpenCreateKey(const Key: string): LongBool;
  • procedure LoadFromFile(Filename: string);
  • procedure SaveToFile(Filename: string);

Eigenschaften

  • property Rootname: string read FRootname write SetRootname;

A. Beispiel zur Erstellung eines Schlüssels in der Eulanda Registry

Das Beispiel erstellt einen Schlüssel (Seminar) im Verzeichnis: USER\ \ VENDOR \ cnsoft \ Seminar. In diesen Schlüssel wird dann auch gleich noch eine Zeichenfolge erstellt. Zum Schluss wird dann die Zeichenfolge noch durch eine Message-Box angezeigt.

VBScript

Option Explicit

dim Reg
Set Reg = Client.CreateRegistry("ROOT","",0)
Set Reg = Client.CreateRegistry("CURRENT_USER","",0)

Reg.OpenCreateKey("VENDOR\cnsoft\Seminar")
Reg.Write "Homepagetitel", "Willkommen zum EULANDA Seminar!"
  MsgBox Reg.Read("Homepagetitel")

Set Reg = Nothing