function GetWindowsFolder:string;
var p:PChar;
begin
GetMem(p, MAX_PATH);
result:='';
if GetWindowsDirectory(p, MAX_PATH)>0 then
result:=string(p);
FreeMem(p);
end;
Статья Как найти каталог Windows? раздела ОС и Железо Windows может быть полезна для разработчиков на Delphi и FreePascal.
