use windows function GetSysDir:String;var p:Pchar;beginGetMem(P,255);GetSystemDirectory(p,254);Result := p;Freemem(p); end;