获得Windows系统路径

eueuy

var
windir:array[0..255] of char;
begin
getwindowsdirectory(windir,sizeof(windir));
end.