The R Project SVN R

Rev

Rev 23720 | Rev 31849 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 23720 Rev 24049
Line 39... Line 39...
39
{
39
{
40
    char buf[MAX_PATH];
40
    char buf[MAX_PATH];
41
    LPMALLOC g_pMalloc;
41
    LPMALLOC g_pMalloc;
42
    HWND hwnd=0;
42
    HWND hwnd=0;
43
    BROWSEINFO bi;
43
    BROWSEINFO bi;
44
    LPITEMIDLIST pidlDesktop;
-
 
45
    LPITEMIDLIST pidlBrowse;
44
    LPITEMIDLIST pidlBrowse;
46
 
45
 
47
    /* Get the shell's allocator. */
46
    /* Get the shell's allocator. */
48
    if (!SUCCEEDED(SHGetMalloc(&g_pMalloc))) return;
47
    if (!SUCCEEDED(SHGetMalloc(&g_pMalloc))) return;
49
 
48
 
Line 59... Line 58...
59
    pidlBrowse = SHBrowseForFolder(&bi);
58
    pidlBrowse = SHBrowseForFolder(&bi);
60
    if (pidlBrowse != NULL) {
59
    if (pidlBrowse != NULL) {
61
	SHGetPathFromIDList(pidlBrowse, folder);
60
	SHGetPathFromIDList(pidlBrowse, folder);
62
        g_pMalloc->lpVtbl->Free(g_pMalloc, pidlBrowse);
61
        g_pMalloc->lpVtbl->Free(g_pMalloc, pidlBrowse);
63
    }
62
    }
64
    /* Clean up. */
-
 
65
    g_pMalloc->lpVtbl->Free(g_pMalloc, pidlDesktop);
-
 
66
}
63
}