Setzen, Änder oder Löschen von Umgebungsvariablen - C++ Builder Snippets
C++ Builder Snippets
Die hier gezeigte Methode hilft beim setzen von Umgebungsvariablen, die Gültigkeit dieser Variablen
beschränkt sich jedoch auf den aktuellen Prozess und sind nicht systemweit.
Eine Möglichkeit zur Manipulation von Systemweiten Variablen wäre die Veränderung der Variablen in der Registry:
HKLM\System\CurrentControlSet\Control\Session Manager\Environment
Zum Arbeiten mit Umgebungsvariablen verwenden wir die Funktionen
GetEnvironmentVariable, GetEnvironmentStrings und SetEnvironmentVariable
Beispiel:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 |
//--------------------------------------------------------------------------- //******** ******** //******** Dieses Beispiel stammt von www.ecodes.de ******** //******** ******** /* Unter Umständen erhalten Sie folgende Fehlermeldung: [Linker Fehler] Error: Ungel ste externe '__fastcall Sysutils::GetEnvironmentVariableA(const System::AnsiString)' referenziert von C:\DOKUMENTE UND EINSTELLUNGEN\USERNAME\EIGENE DATEIEN\BORLAND STUDIO-PROJEKTE\DEBUG_BUILD\UNIT1.OBJ Zur Behebung werden die folgenen Zeilen eingefügt: */ #include <windows.h> #undef GetEnvironmentVariable //************************************************** //************************************************** #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { //Windows Verzeichnis ermitteln Label2->Caption = GetEnvironmentVariable("Windir"); //Temp Verzeichnis ermitteln. Label3->Caption = GetEnvironmentVariable("Temp");;; //Alle Umgebungsvariablen ermitteln char *EnvStr=GetEnvironmentStrings(); int len = strlen(EnvStr); while(len>0) { EnvStr += len+1; len = strlen(EnvStr); Memo1->Lines->Add(EnvStr); } FreeEnvironmentStrings(EnvStr); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { //Variable im Anwendungsbereich des Programms setzen und lesen //Diese Methode kann nur Variabeln des aktuellen Prozesses verändern //Globale Variabeln bleiben unberührt SetEnvironmentVariable("MeineVari","Test1"); ShowMessage(GetEnvironmentVariable("MeineVari")); } //--------------------------------------------------------------------------- |