SetEnvironmentVariable global?

[marabu]

Guten Morgen,

Zitat von FriFra:

... Ein Programm soll eine Umgebungsvariable setzen und diese soll dann für alle nachfolgend gestarteten Anwendungen auslesbar sein. ...

der Standardweg unter Windows wäre dann das aufsetzen eines speziellen Environment:

Delphi-Quellcode:

procedure TDemoForm.FormCreate(Sender: TObject);
var
  cmd, shell: string;
begin
  SetEnvironmentVariable('DPTEST', 'FRIFRA');
  shell := GetEnvironmentVariable('COMSPEC');
  cmd := '/K SET DPTEST';
  ShellExecute(0, '', PAnsiChar(shell), PAnsiChar(cmd), '', SW_SHOW);
  Release;
end;

Alle Programme, die jetzt gestartet werden, finden die Variable DPTEST.

Freundliche Grüße