[NumLock]

см. CopyFile function For more information, see Naming Files, Paths, and Namespaces

ну или если лень один из вариантов:

Код:

var
  buf: array [0..MAX_PATH-1] of Char;
  l: Integer;
  path: String;
begin
  l:=ExpandEnvironmentStrings('%SYSTEMROOT%', buf, Length(buf));
  path:=Copy(buf, 1, l);
end;