Programm innerhalb der Umgebungsvariablen ???

[DeddyH]

Hallo,

mal schnell dahergeschrieben:

Delphi-Quellcode:

procedure GetDirsInPathVariable(sList: TStrings);
var s: string;
begin
  (*Achtung: die Umgebungsvariable Path kann auch länger werden als MAX_PATH,
    man muss sich daher über eine vernünftige Puffergröße Gedanken machen*)
  SetLength(s,MAX_PATH);
  GetEnvironmentVariable('path',PChar(s),Length(s) - 1);
  SetLength(s,StrLen(PChar(s)));
  while Pos(';',s) > 0 do
    begin
      sList.Add(Copy(s,1,Pos(';',s) - 1));
      Delete(s,1,Pos(';',s));
    end;
  if Length(s) > 0 then
    sList.Add(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetDirsInPathVariable(ListBox1.Items);
end;