r = psl->QueryInterface(IID_IPersistFile,(void **) &ppf);
if (SUCCEEDED(r)) {
WORD wsz[MAX_PATH]; // Ensure that the string is ANSI.
MultiByteToWideChar(CP_ACP, 0, "C:\\WINDOWS\\Desktop\\s.lnk", -1,
wsz, MAX_PATH);
// Save the link by calling IPersistFile::Save.
r = ppf->Load (wsz,STGM_READWRITE);
/*create shortcut
psl->SetPath("c:\\windows\\notepad.exe");
psl->SetDescription("snotepad");
psl->SetWorkingDirectory("c:\\windows");
WORD key;
key = (HOTKEYF_CONTROL << 8) | (HOTKEYF_ALT << 8) | 0x42;
psl->SetHotkey(key);
// Query IShellLink for the IPersistFile interface for saving the
// shortcut in persistent storage.
r = psl->QueryInterface(IID_IPersistFile,(void **) &ppf);
if (SUCCEEDED(r)) {
WORD wsz[MAX_PATH]; // Ensure that the string is ANSI.
MultiByteToWideChar(CP_ACP, 0, "C:\\WINDOWS\\Desktop\\s.lnk", -1,
wsz, MAX_PATH);
// Save the link by calling IPersistFile::Save.
r = ppf->Save(wsz, TRUE);
ppf->Release(); }
psl->Release(); return r;