Delphi取系统安装目录

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

 

posted on 2013-07-18 07:36  shellcode  阅读(221)  评论(0)    收藏  举报

导航