tommie-lie - Do 18.12.03 23:59
Titel: ...alle Umgebungsvariablen auf einmal auslesen?
Mit
GetEnvironmentVariable [
http://msdn.microsoft.com/library/en-us/dllproc/base/getenvironmentvariable.asp] und
SetEnvironmentVariable [
http://msdn.microsoft.com/library/en-us/dllproc/base/setenvironmentvariable.asp] kann man Umgebungsvariablen auslesen und ändern. Die Aufgabe, alle (prozesslokalen) Umgebungsvariablen auszulesen übernimmt die Funktion
GetEnvironmentStrings [
http://msdn.microsoft.com/library/en-us/dllproc/base/getenvironmentstrings.asp]. Sie liefert eine für Windows-API-Funktionen typische Struktur zurück, nämlich eine nullterminierte Liste von nullterminierten Strings.
Zum einfacheren Zugriff kann man auch folgende Funktion benutzen, die ein array of String zurückliefert und über einen By-Reference-Parameter auch die Anzahl an Variablen ausspuckt.
Vorraussetzungen:- windows.pas muss eingebunden sein
- Windows ab Windows95
Der Datentyp
TStringArray ist folgendermaßen deklariert:
Delphi-Quelltext
1:
2:
| type
TStringArray = array of String |
Und hier die Funktion:
Delphi-Quelltext
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:
| function GetEnvironmentVarList(var count: LongWord): TStringArray;
var
env, env2: PChar;
i: Integer;
begin
env := GetEnvironmentStrings();
if env = nil then
exit;
env2 := env;
i := 0;
count := 0;
while env2^ <> #0 do
begin
env2 := StrEnd(env2) + 1;
inc(count);
end;
env2 := env;
SetLength(Result, count);
while (env2^ <> #0) and (i < High(Result)) do
begin
Result[i] := env2;
inc(env2, length(Result[i]) + 1);
inc(i);
end;
FreeEnvironmentStrings(env);
end; |
Ein Beispielaufruf könnte folgendermaßen aussehen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm1.Button1Click(Sender: TObject);
var
cnt: longword;
list: TStringArray;
i: Integer;
begin
list := GetEnvironmentVarList(cnt);
Label1.Caption := IntToStr(cnt);
for i := 0 to cnt - 1 do
Listbox1.Items.Add(list[i]);
end; |
In Label1 steht nun die Anzahl der Umgebungsvariablen und in der Listbox die Variablen selbst, zusammen mit dem aktuell zugewiesenen Wert.