自定义函数[不断添加]

1、得到系统目录

User
    Registry;

function GetShellFolders(strDir: string): string;
const
    regPath = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders';
var
    Reg: TRegistry;
    strFolders: string;
begin
    Reg := TRegistry.Create;
    try
        Reg.RootKey := HKEY_CURRENT_USER;
        if Reg.OpenKey(regPath, false) then begin
            strFolders := Reg.ReadString(strDir);
        end;
    finally
        Reg.Free;
    end;
    result := strFolders;
end;

使用方法：GetShellFolders('Desktop')

AppData=C:\Users\Administrator\AppData\Roaming
Local AppData=C:\Users\Administrator\AppData\Local
My Video=C:\Users\Administrator\Videos
{1B3EA5DC-B587-4786-B4EF-BD1DC332AEAE}=C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Libraries
My Pictures=D:\Pictures
Desktop=C:\Users\Administrator\Desktop
History=C:\Users\Administrator\AppData\Local\Microsoft\Windows\History
NetHood=C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Network Shortcuts
{56784854-C6CB-462B-8169-88E350ACB882}=C:\Users\Administrator\Contacts
Cookies=C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Cookies
Favorites=D:\Favorites
SendTo=C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\SendTo
Start Menu=C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Start Menu
My Music=D:\Music
Programs=C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Start Menu\Programs
Recent=C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Recent
CD Burning=C:\Users\Administrator\AppData\Local\Microsoft\Windows\Burn\Burn
PrintHood=C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Printer Shortcuts
{7D1D3A04-DEBB-4115-95CF-2F29DA2920DA}=C:\Users\Administrator\Searches
{374DE290-123F-4565-9164-39C4925E467B}=C:\Users\Administrator\Downloads
{A520A1A4-1780-4FF6-BD18-167343C5AF16}=C:\Users\Administrator\AppData\LocalLow
Startup=C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup
Administrative Tools=C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Administrative Tools
Personal=D:\Documents
{BFB9D5E0-C6A9-404C-B2B2-AE6DB6AF4968}=C:\Users\Administrator\Links
Cache=C:\Users\Administrator\AppData\Local\Microsoft\Windows\Temporary Internet Files
Templates=C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Templates
{4C5C32FF-BB9D-43B0-B5B4-2D72E54EAAA4}=C:\Users\Administrator\Saved Games
Fonts=C:\Windows\Fonts

---

2、