1,183
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var
sFolder: IShellFolder;
pIDList: PITEMIDLIST;
fullPath: WideString;
Len: integer;
buffer: array [0 .. MAX_PATH] of Char;
pchEaten, Attributes: ULONG;
begin
Len := GetTempPathW(0, nil);
SetLength(fullPath, Len);
GetTempPathW(Len, @fullPath[1]);
SHGetDesktopFolder(sFolder);
sFolder.ParseDisplayName(0, nil, @fullPath[1], pchEaten, pIDList, Attributes);
SHGetPathFromIDList(pIDList, buffer);
ShowMessage(buffer);
end;