Envionment Informationen aus der Registry auslesen.

[EDatabaseError]

In der Registry stehen so, so, sooooo viele interessante Infos, wie zum Beispiel Environment Informationen.

Hier hab ich mal einen Source um diese Informationen auszulesen:

Delphi-Quellcode:

procedure GetEnvironmentInfos(var APPDATA, HOMEDRIVE, HOMEPATH, LOGONSERVER, SESSIONNAME: String);
var
  Reg: TRegistry;
  s: String;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey('Volatile Environment\', True);
     APPDATA     := Reg.ReadString('APPDATA');     // Verzeichnis für Anwendungsdaten
     HOMEDRIVE   := Reg.ReadString('HOMEDRIVE');   // Hauptfestplatte
     HOMEPATH    := Reg.ReadString('HOMEPATH');    // Userverzeichnis
     LOGONSERVER := Reg.ReadString('LOGONSERVER'); // Servername des PCs
     SESSIONNAME := Reg.ReadString('SESSIONNAME'); // Art der Session
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
end;

Mal schauen ob das jemand brauchen kann... *gg*



Mfg
Tobi