was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

33 Visitors Online


 
...die Umgebungsvariablen auslesen?
Autor: Thomas Stutz
[ Tip ausdrucken ]  

Tip Bewertung (8):  
     


{
  The GetEnvironmentStrings function returns the address of the environment block
  for the current process. Each environment variable is null terminated.

  Die Funktion GetEnvironmentStrings
  gibt die Adresse des Umgebungsblocks des aktuellen Prozesses zurück.
  Jede Umgebungsvariable ist nullterminiert.
}


procedure TForm1.Button1Click(Sender: TObject);
var
  
DosEnv: PChar;
begin
  
Memo1.Lines.Clear;
  DosEnv := GetEnvironmentStrings;
  while DosEnv^ <> #0 do
  begin
    
Memo1.Lines.Add(StrPas(DosEnv));
    Inc(DosEnv, lStrLen(DosEnv) + 1);
  end;
  FreeEnvironmentStrings(DosEnv);
end;

 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners