Как выделить файл в проводнике?

String f_name = "H:\\hdd.png";
ShellExecute(Handle, "open", "explorer.exe", String("/select, " + f_name).c_str(), NULL, SW_SHOWNORMAL);

AnsiString f_name = "H:\\hdd.png";
 
ShellExecuteA(Handle, 
            "open",
            "explorer.exe",
            AnsiString("/select, " + f_name).c_str(),
            NULL,
            SW_SHOWNORMAL);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    typedef HRESULT (__stdcall *SHOpenFolderAndSelectItemsPTR)(ITEMIDLIST *pidlFolder,
                                          UINT cidl,
                                          const ITEMIDLIST **apidl,
                                          DWORD dwFlags);
 
    typedef ITEMIDLIST* (__stdcall *ILCreateFromPathPTR)(PCTSTR pszPath);
        typedef void (__stdcall *ILFreePTR)(ITEMIDLIST *pidl);
 
 
    HINSTANCE hDLL = LoadLibrary("shell32.dll");
    SHOpenFolderAndSelectItemsPTR MySHOpenFolderAndSelectItems = (SHOpenFolderAndSelectItemsPTR)GetProcAddress(hDLL, "SHOpenFolderAndSelectItems");
    ILCreateFromPathPTR MyILCreateFromPath = (ILCreateFromPathPTR)GetProcAddress(hDLL, "ILCreateFromPathA");
        ILFreePTR MyILFree = (ILFreePTR)GetProcAddress(hDLL, "ILFree");
 
    //*
    // Directory to open
    ITEMIDLIST *dir = MyILCreateFromPath("C:\\");
 
    // Items in directory to select
    ITEMIDLIST *item1 = MyILCreateFromPath("C:\\Program Files\\");
    ITEMIDLIST *item2 = MyILCreateFromPath("C:\\Windows\\");
    const ITEMIDLIST* selection[] = {item1, item2};
    UINT count = sizeof(selection) / sizeof(ITEMIDLIST);
 
    // Perform selection
    MySHOpenFolderAndSelectItems(dir, count, selection, 0);
 
        MyILFree(dir);        
        MyILFree(item1);
        MyILFree(item2);
 
        FreeLibrary(hDLL);
}