Delphi取系统安装目录

function Getsysdirty():string;
var j_ls:array[0..254] of Char;
begin
    GetWindowsDirectory(@j_ls,255);
    Result:=j_ls;
end;