C:\DOCUME~1\ALLUSE~1\APPLIC~1\Tencent\QQDisk
我教你怎么取,这是我取路径的delphi源代码.不知道你能不能看懂...如果会编程应该能看懂吧,不会也没关系
var s: string;
begin
SetLength(s, MAX_PATH);
GetShortPathName('C:\Documents and Settings\All Users\Application Data\Tencent\QQDisk', PChar(s), MAX_PATH);
edit1.Text := StrPas(PChar(s));
%systemroot%