GetSystemDirectory

var
sBuf:array[0..Max_path] of char;
begin
GetSystemDirectory(sBuf,Max_path);
showmessage(sBuf);
showmessage(copy(sBuf,1,3));
end;

var
sBuf:array[0..Max_path] of char;
s:string;
begin
s:='C:/Documents and Settings/Administrator/Application Data/Application data/Apple Computer/QuickTime';
GetshortPathName(pchar(s),sbuf,sizeof(sbuf));
showmessage(sbuf);