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