Ничего если я "по тупому"?? И на Дельфи??

procedure GetEnvironmentStrings(ss: TStrings); 
var 
  ptr: PChar; 
  s: string; 
  Done: boolean; 
begin
  ss.Clear; 
  s := ''; 
  Done := FALSE; 
  ptr := windows.GetEnvironmentStrings; 
  while Done = false do begin 
    if ptr^ = #0 then begin 
      inc(ptr); 
      if ptr^ = #0 then Done := TRUE 
      else ss.Add(s); 
      s := ptr^; 
    end else s := s + ptr^; 
    inc(ptr); 
  end; 
end;

HOMEDRIVE — загрузочный том
(минус — только для 2000/ХР)