uses
Windows, Registry;
function GetShellFolder(): string;
begin
with TRegistry.Create do
try
RootKey:= HKEY_CURRENT_USER;
if OpenKey('Software\MicroSoft\Windows\CurrentVersion\Explorer\Shell Folders', false) then
begin
Result:= ReadString('Personal');
CloseKey;
end
else
Result:= '';
finally
Free;
end;
end;
获取特殊文件夹
最新推荐文章于 2022-07-30 22:52:49 发布