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