Afficher les variables d'environnements
Contenu du snippet
procedure ReadEnvironmentBlock(const Block: PAnsiChar; Vars: TStrings);
var
i: Integer;
s: string;
begin
Vars.Clear;
i:= 0;
while Block[i] <> #0 do
begin
s:= '';
while Block[i] <> #0 do
begin
s:= s + Block[i];
Inc(i);
end;
Vars.Add(s);
Inc(i);
end;
end;
procedure ReadCurrentProcessEnvVars(Vars: TStrings);
var
block: PAnsiChar;
begin
block:= GetEnvironmentStrings;
try
ReadEnvironmentBlock(block, Vars);
finally
FreeEnvironmentStrings(block);
end;
end;
{Utilisation du code}
procedure TForm1.Button3Click(Sender: TObject);
begin
ReadCurrentProcessEnvVars(ListBox1.Items);
end;
Compatibilité : Delphi 5
Disponible dans d'autres langages :
A voir également
- Afficher les variables d'environnements
- Afficher un tableau php en html - Conseils pratiques -PHP
- Afficher un tableau php - Forum PHP
- "Php version 4.4.5" "build date" "server api" "php variables" ✓ - Forum PHP
- Php version 4.4.6 build date server api php variables - Forum PHP
- "Php version 4.4.6" "build date" "server api" "php variables" - Forum PHP
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.