Wie kann ich den Windowsordner ermitteln?

[Illuminator-23-5]

@tyler
dazu braucht man aber die unit, die ist in delphi5 z.b. (so weit ich weiß) nicht enthalten
aber der source daraus ist der:

Delphi-Quellcode:

function GetSystemRoot: String;
var
  buf: PChar;
  i: Integer;
begin
  Result := '';
  buf := AllocMem(200);
  i := GetEnvironmentVariable(PChar('Systemroot'), buf, 200);
  if i <> 0 then begin
    if 200 < i then begin
      FreeMem(buf);
      buf := AllocMem(i + 1);
      GetEnvironmentVariable(PChar('Systemroot'), buf, i + 1);
    end;
  Result := PChar(buf);
  end;
  FreeMem(buf);
end;

man kann statt 'systemroot' auch andere strings nehmen (z.b. 'computername' oder 'username')

[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]