2 * Unit tests for shelllinks
4 * Copyright 2004 Mike McCormack
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19 * This is a test program for the SHGet{Special}Folder{Path|Location} functions
20 * of shell32, that get either a filesystem path or a LPITEMIDLIST (shell
21 * namespace) path for a given folder (CSIDL value).
31 #include "wine/test.h"
33 #include "shell32_test.h"
36 typedef void (WINAPI
*fnILFree
)(LPITEMIDLIST
);
37 typedef BOOL (WINAPI
*fnILIsEqual
)(LPCITEMIDLIST
, LPCITEMIDLIST
);
38 typedef HRESULT (WINAPI
*fnSHILCreateFromPath
)(LPCWSTR
, LPITEMIDLIST
*,DWORD
*);
40 static fnILFree pILFree
;
41 static fnILIsEqual pILIsEqual
;
42 static fnSHILCreateFromPath pSHILCreateFromPath
;
44 static DWORD (WINAPI
*pGetLongPathNameA
)(LPCSTR
, LPSTR
, DWORD
);
46 static const GUID _IID_IShellLinkDataList
= {
47 0x45e2b4ae, 0xb1c3, 0x11d0,
48 { 0xb9, 0x2f, 0x00, 0xa0, 0xc9, 0x03, 0x12, 0xe1 }
51 static const WCHAR lnkfile
[]= { 'C',':','\\','t','e','s','t','.','l','n','k',0 };
52 static const WCHAR notafile
[]= { 'C',':','\\','n','o','n','e','x','i','s','t','e','n','t','\\','f','i','l','e',0 };
55 /* For some reason SHILCreateFromPath does not work on Win98 and
56 * SHSimpleIDListFromPathA does not work on NT4. But if we call both we
57 * get what we want on all platforms.
59 static LPITEMIDLIST (WINAPI
*pSHSimpleIDListFromPathAW
)(LPCVOID
);
61 static LPITEMIDLIST
path_to_pidl(const char* path
)
65 if (!pSHSimpleIDListFromPathAW
)
67 HMODULE hdll
=GetModuleHandleA("shell32.dll");
68 pSHSimpleIDListFromPathAW
=(void*)GetProcAddress(hdll
, (char*)162);
69 if (!pSHSimpleIDListFromPathAW
)
70 trace("SHSimpleIDListFromPathAW not found in shell32.dll\n");
74 /* pSHSimpleIDListFromPathAW maps to A on non NT platforms */
75 if (pSHSimpleIDListFromPathAW
&& (GetVersion() & 0x80000000))
76 pidl
=pSHSimpleIDListFromPathAW(path
);
84 len
=MultiByteToWideChar(CP_ACP
, 0, path
, -1, NULL
, 0);
85 pathW
=HeapAlloc(GetProcessHeap(), 0, len
*sizeof(WCHAR
));
86 MultiByteToWideChar(CP_ACP
, 0, path
, -1, pathW
, len
);
88 r
=pSHILCreateFromPath(pathW
, &pidl
, NULL
);
89 ok(SUCCEEDED(r
), "SHILCreateFromPath failed (0x%08x)\n", r
);
90 HeapFree(GetProcessHeap(), 0, pathW
);
97 * Test manipulation of an IShellLink's properties.
100 static void test_get_set(void)
104 char mypath
[MAX_PATH
];
105 char buffer
[INFOTIPSIZE
];
106 LPITEMIDLIST pidl
, tmp_pidl
;
111 r
= CoCreateInstance(&CLSID_ShellLink
, NULL
, CLSCTX_INPROC_SERVER
,
112 &IID_IShellLinkA
, (LPVOID
*)&sl
);
113 ok(SUCCEEDED(r
), "no IID_IShellLinkA (0x%08x)\n", r
);
117 /* Test Getting / Setting the description */
118 strcpy(buffer
,"garbage");
119 r
= IShellLinkA_GetDescription(sl
, buffer
, sizeof(buffer
));
120 ok(SUCCEEDED(r
), "GetDescription failed (0x%08x)\n", r
);
121 ok(*buffer
=='\0', "GetDescription returned '%s'\n", buffer
);
123 str
="Some description";
124 r
= IShellLinkA_SetDescription(sl
, str
);
125 ok(SUCCEEDED(r
), "SetDescription failed (0x%08x)\n", r
);
127 strcpy(buffer
,"garbage");
128 r
= IShellLinkA_GetDescription(sl
, buffer
, sizeof(buffer
));
129 ok(SUCCEEDED(r
), "GetDescription failed (0x%08x)\n", r
);
130 ok(lstrcmp(buffer
,str
)==0, "GetDescription returned '%s'\n", buffer
);
132 /* Test Getting / Setting the work directory */
133 strcpy(buffer
,"garbage");
134 r
= IShellLinkA_GetWorkingDirectory(sl
, buffer
, sizeof(buffer
));
135 ok(SUCCEEDED(r
), "GetWorkingDirectory failed (0x%08x)\n", r
);
136 ok(*buffer
=='\0', "GetWorkingDirectory returned '%s'\n", buffer
);
138 str
="c:\\nonexistent\\directory";
139 r
= IShellLinkA_SetWorkingDirectory(sl
, str
);
140 ok(SUCCEEDED(r
), "SetWorkingDirectory failed (0x%08x)\n", r
);
142 strcpy(buffer
,"garbage");
143 r
= IShellLinkA_GetWorkingDirectory(sl
, buffer
, sizeof(buffer
));
144 ok(SUCCEEDED(r
), "GetWorkingDirectory failed (0x%08x)\n", r
);
145 ok(lstrcmpi(buffer
,str
)==0, "GetWorkingDirectory returned '%s'\n", buffer
);
147 /* Test Getting / Setting the path */
148 strcpy(buffer
,"garbage");
149 r
= IShellLinkA_GetPath(sl
, buffer
, sizeof(buffer
), NULL
, SLGP_RAWPATH
);
150 ok(SUCCEEDED(r
), "GetPath failed (0x%08x)\n", r
);
151 ok(*buffer
=='\0', "GetPath returned '%s'\n", buffer
);
153 r
= IShellLinkA_SetPath(sl
, "");
154 ok(r
==S_OK
, "SetPath failed (0x%08x)\n", r
);
156 strcpy(buffer
,"garbage");
157 r
= IShellLinkA_GetPath(sl
, buffer
, sizeof(buffer
), NULL
, SLGP_RAWPATH
);
158 ok(SUCCEEDED(r
), "GetPath failed (0x%08x)\n", r
);
159 ok(*buffer
=='\0', "GetPath returned '%s'\n", buffer
);
161 /* Win98 returns S_FALSE, but WinXP returns S_OK */
162 str
="c:\\nonexistent\\file";
163 r
= IShellLinkA_SetPath(sl
, str
);
164 ok(r
==S_FALSE
|| r
==S_OK
, "SetPath failed (0x%08x)\n", r
);
166 strcpy(buffer
,"garbage");
167 r
= IShellLinkA_GetPath(sl
, buffer
, sizeof(buffer
), NULL
, SLGP_RAWPATH
);
168 ok(SUCCEEDED(r
), "GetPath failed (0x%08x)\n", r
);
169 ok(lstrcmpi(buffer
,str
)==0, "GetPath returned '%s'\n", buffer
);
171 /* Get some real path to play with */
172 GetWindowsDirectoryA( mypath
, sizeof(mypath
)-12 );
173 strcat(mypath
, "\\regedit.exe");
175 /* Test the interaction of SetPath and SetIDList */
177 r
= IShellLinkA_GetIDList(sl
, &tmp_pidl
);
178 ok(SUCCEEDED(r
), "GetIDList failed (0x%08x)\n", r
);
183 strcpy(buffer
,"garbage");
184 ret
= SHGetPathFromIDListA(tmp_pidl
, buffer
);
186 ok(ret
, "SHGetPathFromIDListA failed\n");
189 ok(lstrcmpi(buffer
,str
)==0, "GetIDList returned '%s'\n", buffer
);
192 pidl
=path_to_pidl(mypath
);
193 ok(pidl
!=NULL
, "path_to_pidl returned a NULL pidl\n");
197 r
= IShellLinkA_SetIDList(sl
, pidl
);
198 ok(SUCCEEDED(r
), "SetIDList failed (0x%08x)\n", r
);
201 r
= IShellLinkA_GetIDList(sl
, &tmp_pidl
);
202 ok(SUCCEEDED(r
), "GetIDList failed (0x%08x)\n", r
);
203 ok(tmp_pidl
&& pILIsEqual(pidl
, tmp_pidl
),
204 "GetIDList returned an incorrect pidl\n");
206 /* tmp_pidl is owned by IShellLink so we don't free it */
209 strcpy(buffer
,"garbage");
210 r
= IShellLinkA_GetPath(sl
, buffer
, sizeof(buffer
), NULL
, SLGP_RAWPATH
);
211 ok(SUCCEEDED(r
), "GetPath failed (0x%08x)\n", r
);
213 ok(lstrcmpi(buffer
, mypath
)==0, "GetPath returned '%s'\n", buffer
);
217 /* test path with quotes (Win98 IShellLinkA_SetPath returns S_FALSE, WinXP returns S_OK) */
218 r
= IShellLinkA_SetPath(sl
, "\"c:\\nonexistent\\file\"");
219 ok(r
==S_FALSE
|| r
== S_OK
, "SetPath failed (0x%08x)\n", r
);
221 r
= IShellLinkA_GetPath(sl
, buffer
, sizeof(buffer
), NULL
, SLGP_RAWPATH
);
222 ok(r
==S_OK
, "GetPath failed (0x%08x)\n", r
);
223 ok(!lstrcmp(buffer
, "C:\\nonexistent\\file"), "case doesn't match\n");
225 r
= IShellLinkA_SetPath(sl
, "\"c:\\foo");
226 ok(r
==S_FALSE
|| r
== S_OK
, "SetPath failed (0x%08x)\n", r
);
228 r
= IShellLinkA_SetPath(sl
, "\"\"c:\\foo");
229 ok(r
==S_FALSE
|| r
== S_OK
, "SetPath failed (0x%08x)\n", r
);
231 r
= IShellLinkA_SetPath(sl
, "c:\\foo\"");
232 ok(r
==S_FALSE
|| r
== S_OK
, "SetPath failed (0x%08x)\n", r
);
234 r
= IShellLinkA_SetPath(sl
, "\"\"c:\\foo\"");
235 ok(r
==S_FALSE
|| r
== S_OK
, "SetPath failed (0x%08x)\n", r
);
237 r
= IShellLinkA_SetPath(sl
, "\"\"c:\\foo\"\"");
238 ok(r
==S_FALSE
|| r
== S_OK
, "SetPath failed (0x%08x)\n", r
);
240 /* Test Getting / Setting the arguments */
241 strcpy(buffer
,"garbage");
242 r
= IShellLinkA_GetArguments(sl
, buffer
, sizeof(buffer
));
243 ok(SUCCEEDED(r
), "GetArguments failed (0x%08x)\n", r
);
244 ok(*buffer
=='\0', "GetArguments returned '%s'\n", buffer
);
246 str
="param1 \"spaced param2\"";
247 r
= IShellLinkA_SetArguments(sl
, str
);
248 ok(SUCCEEDED(r
), "SetArguments failed (0x%08x)\n", r
);
250 strcpy(buffer
,"garbage");
251 r
= IShellLinkA_GetArguments(sl
, buffer
, sizeof(buffer
));
252 ok(SUCCEEDED(r
), "GetArguments failed (0x%08x)\n", r
);
253 ok(lstrcmp(buffer
,str
)==0, "GetArguments returned '%s'\n", buffer
);
255 /* Test Getting / Setting showcmd */
257 r
= IShellLinkA_GetShowCmd(sl
, &i
);
258 ok(SUCCEEDED(r
), "GetShowCmd failed (0x%08x)\n", r
);
259 ok(i
==SW_SHOWNORMAL
, "GetShowCmd returned %d\n", i
);
261 r
= IShellLinkA_SetShowCmd(sl
, SW_SHOWMAXIMIZED
);
262 ok(SUCCEEDED(r
), "SetShowCmd failed (0x%08x)\n", r
);
265 r
= IShellLinkA_GetShowCmd(sl
, &i
);
266 ok(SUCCEEDED(r
), "GetShowCmd failed (0x%08x)\n", r
);
267 ok(i
==SW_SHOWMAXIMIZED
, "GetShowCmd returned %d'\n", i
);
269 /* Test Getting / Setting the icon */
271 strcpy(buffer
,"garbage");
272 r
= IShellLinkA_GetIconLocation(sl
, buffer
, sizeof(buffer
), &i
);
274 ok(SUCCEEDED(r
), "GetIconLocation failed (0x%08x)\n", r
);
276 ok(*buffer
=='\0', "GetIconLocation returned '%s'\n", buffer
);
277 ok(i
==0, "GetIconLocation returned %d\n", i
);
279 str
="c:\\nonexistent\\file";
280 r
= IShellLinkA_SetIconLocation(sl
, str
, 0xbabecafe);
281 ok(SUCCEEDED(r
), "SetIconLocation failed (0x%08x)\n", r
);
284 r
= IShellLinkA_GetIconLocation(sl
, buffer
, sizeof(buffer
), &i
);
285 ok(SUCCEEDED(r
), "GetIconLocation failed (0x%08x)\n", r
);
286 ok(lstrcmpi(buffer
,str
)==0, "GetIconLocation returned '%s'\n", buffer
);
287 ok(i
==0xbabecafe, "GetIconLocation returned %d'\n", i
);
289 /* Test Getting / Setting the hot key */
291 r
= IShellLinkA_GetHotkey(sl
, &w
);
292 ok(SUCCEEDED(r
), "GetHotkey failed (0x%08x)\n", r
);
293 ok(w
==0, "GetHotkey returned %d\n", w
);
295 r
= IShellLinkA_SetHotkey(sl
, 0x5678);
296 ok(SUCCEEDED(r
), "SetHotkey failed (0x%08x)\n", r
);
299 r
= IShellLinkA_GetHotkey(sl
, &w
);
300 ok(SUCCEEDED(r
), "GetHotkey failed (0x%08x)\n", r
);
301 ok(w
==0x5678, "GetHotkey returned %d'\n", w
);
303 IShellLinkA_Release(sl
);
308 * Test saving and loading .lnk files
311 #define lok ok_(__FILE__, line)
312 #define lok_todo_4(todo_flag,a,b,c,d) \
313 if ((todo & todo_flag) == 0) lok((a), (b), (c), (d)); \
314 else todo_wine lok((a), (b), (c), (d));
315 #define lok_todo_2(todo_flag,a,b) \
316 if ((todo & todo_flag) == 0) lok((a), (b)); \
317 else todo_wine lok((a), (b));
318 #define check_lnk(a,b,c) check_lnk_(__LINE__, (a), (b), (c))
320 void create_lnk_(int line
, const WCHAR
* path
, lnk_desc_t
* desc
, int save_fails
)
326 r
= CoCreateInstance(&CLSID_ShellLink
, NULL
, CLSCTX_INPROC_SERVER
,
327 &IID_IShellLinkA
, (LPVOID
*)&sl
);
328 lok(SUCCEEDED(r
), "no IID_IShellLinkA (0x%08x)\n", r
);
332 if (desc
->description
)
334 r
= IShellLinkA_SetDescription(sl
, desc
->description
);
335 lok(SUCCEEDED(r
), "SetDescription failed (0x%08x)\n", r
);
339 r
= IShellLinkA_SetWorkingDirectory(sl
, desc
->workdir
);
340 lok(SUCCEEDED(r
), "SetWorkingDirectory failed (0x%08x)\n", r
);
344 r
= IShellLinkA_SetPath(sl
, desc
->path
);
345 lok(SUCCEEDED(r
), "SetPath failed (0x%08x)\n", r
);
349 r
= IShellLinkA_SetIDList(sl
, desc
->pidl
);
350 lok(SUCCEEDED(r
), "SetIDList failed (0x%08x)\n", r
);
354 r
= IShellLinkA_SetArguments(sl
, desc
->arguments
);
355 lok(SUCCEEDED(r
), "SetArguments failed (0x%08x)\n", r
);
359 r
= IShellLinkA_SetShowCmd(sl
, desc
->showcmd
);
360 lok(SUCCEEDED(r
), "SetShowCmd failed (0x%08x)\n", r
);
364 r
= IShellLinkA_SetIconLocation(sl
, desc
->icon
, desc
->icon_id
);
365 lok(SUCCEEDED(r
), "SetIconLocation failed (0x%08x)\n", r
);
369 r
= IShellLinkA_SetHotkey(sl
, desc
->hotkey
);
370 lok(SUCCEEDED(r
), "SetHotkey failed (0x%08x)\n", r
);
373 r
= IShellLinkW_QueryInterface(sl
, &IID_IPersistFile
, (LPVOID
*)&pf
);
374 lok(SUCCEEDED(r
), "no IID_IPersistFile (0x%08x)\n", r
);
377 r
= IPersistFile_Save(pf
, path
, TRUE
);
381 lok(SUCCEEDED(r
), "save failed (0x%08x)\n", r
);
386 lok(SUCCEEDED(r
), "save failed (0x%08x)\n", r
);
388 IPersistFile_Release(pf
);
391 IShellLinkA_Release(sl
);
394 static void check_lnk_(int line
, const WCHAR
* path
, lnk_desc_t
* desc
, int todo
)
399 char buffer
[INFOTIPSIZE
];
401 r
= CoCreateInstance(&CLSID_ShellLink
, NULL
, CLSCTX_INPROC_SERVER
,
402 &IID_IShellLinkA
, (LPVOID
*)&sl
);
403 lok(SUCCEEDED(r
), "no IID_IShellLinkA (0x%08x)\n", r
);
407 r
= IShellLinkA_QueryInterface(sl
, &IID_IPersistFile
, (LPVOID
*)&pf
);
408 lok(SUCCEEDED(r
), "no IID_IPersistFile (0x%08x)\n", r
);
411 IShellLinkA_Release(sl
);
415 r
= IPersistFile_Load(pf
, path
, STGM_READ
);
416 lok(SUCCEEDED(r
), "load failed (0x%08x)\n", r
);
417 IPersistFile_Release(pf
);
420 IShellLinkA_Release(sl
);
424 if (desc
->description
)
426 strcpy(buffer
,"garbage");
427 r
= IShellLinkA_GetDescription(sl
, buffer
, sizeof(buffer
));
428 lok(SUCCEEDED(r
), "GetDescription failed (0x%08x)\n", r
);
429 lok_todo_4(0x1, lstrcmp(buffer
, desc
->description
)==0,
430 "GetDescription returned '%s' instead of '%s'\n",
431 buffer
, desc
->description
);
435 strcpy(buffer
,"garbage");
436 r
= IShellLinkA_GetWorkingDirectory(sl
, buffer
, sizeof(buffer
));
437 lok(SUCCEEDED(r
), "GetWorkingDirectory failed (0x%08x)\n", r
);
438 lok_todo_4(0x2, lstrcmpi(buffer
, desc
->workdir
)==0,
439 "GetWorkingDirectory returned '%s' instead of '%s'\n",
440 buffer
, desc
->workdir
);
444 strcpy(buffer
,"garbage");
445 r
= IShellLinkA_GetPath(sl
, buffer
, sizeof(buffer
), NULL
, SLGP_RAWPATH
);
446 lok(SUCCEEDED(r
), "GetPath failed (0x%08x)\n", r
);
447 lok_todo_4(0x4, lstrcmpi(buffer
, desc
->path
)==0,
448 "GetPath returned '%s' instead of '%s'\n",
453 LPITEMIDLIST pidl
=NULL
;
454 r
= IShellLinkA_GetIDList(sl
, &pidl
);
455 lok(SUCCEEDED(r
), "GetIDList failed (0x%08x)\n", r
);
456 lok_todo_2(0x8, pILIsEqual(pidl
, desc
->pidl
),
457 "GetIDList returned an incorrect pidl\n");
462 r
= IShellLinkA_GetShowCmd(sl
, &i
);
463 lok(SUCCEEDED(r
), "GetShowCmd failed (0x%08x)\n", r
);
464 lok_todo_4(0x10, i
==desc
->showcmd
,
465 "GetShowCmd returned 0x%0x instead of 0x%0x\n",
471 strcpy(buffer
,"garbage");
472 r
= IShellLinkA_GetIconLocation(sl
, buffer
, sizeof(buffer
), &i
);
473 lok(SUCCEEDED(r
), "GetIconLocation failed (0x%08x)\n", r
);
474 lok_todo_4(0x20, lstrcmpi(buffer
, desc
->icon
)==0,
475 "GetIconLocation returned '%s' instead of '%s'\n",
477 lok_todo_4(0x20, i
==desc
->icon_id
,
478 "GetIconLocation returned 0x%0x instead of 0x%0x\n",
484 r
= IShellLinkA_GetHotkey(sl
, &i
);
485 lok(SUCCEEDED(r
), "GetHotkey failed (0x%08x)\n", r
);
486 lok_todo_4(0x40, i
==desc
->hotkey
,
487 "GetHotkey returned 0x%04x instead of 0x%04x\n",
491 IShellLinkA_Release(sl
);
494 static void test_load_save(void)
497 char mypath
[MAX_PATH
];
498 char mydir
[MAX_PATH
];
499 char realpath
[MAX_PATH
];
504 if (!pGetLongPathNameA
)
506 skip("GetLongPathNameA is not available\n");
510 /* Save an empty .lnk file */
511 memset(&desc
, 0, sizeof(desc
));
512 create_lnk(lnkfile
, &desc
, 0);
514 /* It should come back as a bunch of empty strings */
520 check_lnk(lnkfile
, &desc
, 0x0);
522 /* Point a .lnk file to nonexistent files */
524 desc
.workdir
="c:\\Nonexitent\\work\\directory";
525 desc
.path
="c:\\nonexistent\\path";
529 desc
.icon
="c:\\nonexistent\\icon\\file";
532 create_lnk(lnkfile
, &desc
, 0);
533 check_lnk(lnkfile
, &desc
, 0x0);
535 r
=GetModuleFileName(NULL
, mypath
, sizeof(mypath
));
536 ok(r
<sizeof(mypath
), "GetModuleFileName failed (%d)\n", r
);
537 strcpy(mydir
, mypath
);
538 p
=strrchr(mydir
, '\\');
542 /* IShellLink returns path in long form */
543 pGetLongPathNameA(mypath
, realpath
, MAX_PATH
);
545 /* Overwrite the existing lnk file and point it to existing files */
546 desc
.description
="test 2";
550 desc
.arguments
="/option1 /option2 \"Some string\"";
551 desc
.showcmd
=SW_SHOWNORMAL
;
555 create_lnk(lnkfile
, &desc
, 0);
556 check_lnk(lnkfile
, &desc
, 0x0);
558 /* Overwrite the existing lnk file and test link to a command on the path */
559 desc
.description
="command on path";
561 desc
.path
="rundll32.exe";
563 desc
.arguments
="/option1 /option2 \"Some string\"";
564 desc
.showcmd
=SW_SHOWNORMAL
;
568 create_lnk(lnkfile
, &desc
, 0);
569 /* Check that link is created to proper location */
570 SearchPathA( NULL
, desc
.path
, NULL
, MAX_PATH
, realpath
, NULL
);
572 check_lnk(lnkfile
, &desc
, 0x0);
574 /* Create a temporary non-executable file */
575 r
=GetTempPath(sizeof(mypath
), mypath
);
576 ok(r
<sizeof(mypath
), "GetTempPath failed (%d), err %d\n", r
, GetLastError());
577 r
=pGetLongPathNameA(mypath
, mydir
, sizeof(mydir
));
578 ok(r
<sizeof(mydir
), "GetLongPathName failed (%d), err %d\n", r
, GetLastError());
579 p
=strrchr(mydir
, '\\');
583 strcpy(mypath
, mydir
);
584 strcat(mypath
, "\\test.txt");
585 hf
= CreateFile(mypath
, GENERIC_WRITE
, 0, NULL
,
586 CREATE_ALWAYS
, FILE_ATTRIBUTE_NORMAL
, NULL
);
589 /* Overwrite the existing lnk file and test link to an existing non-executable file */
590 desc
.description
="non-executable file";
595 desc
.showcmd
=SW_SHOWNORMAL
;
599 create_lnk(lnkfile
, &desc
, 0);
600 check_lnk(lnkfile
, &desc
, 0x0);
602 r
= DeleteFileA(mypath
);
603 ok(r
, "failed to delete file %s (%d)\n", mypath
, GetLastError());
605 /* FIXME: Also test saving a .lnk pointing to a pidl that cannot be
606 * represented as a path.
609 /* DeleteFileW is not implemented on Win9x */
610 r
=DeleteFileA("c:\\test.lnk");
611 ok(r
, "failed to delete link (%d)\n", GetLastError());
614 static void test_datalink(void)
616 static const WCHAR lnk
[] = {
617 ':',':','{','9','d','b','1','1','8','6','f','-','4','0','d','f','-','1',
618 '1','d','1','-','a','a','8','c','-','0','0','c','0','4','f','b','6','7',
619 '8','6','3','}',':','{','0','0','0','1','0','4','0','9','-','7','8','E',
620 '1','-','1','1','D','2','-','B','6','0','F','-','0','0','6','0','9','7',
621 'C','9','9','8','E','7','}',':',':','{','9','d','b','1','1','8','6','e',
622 '-','4','0','d','f','-','1','1','d','1','-','a','a','8','c','-','0','0',
623 'c','0','4','f','b','6','7','8','6','3','}',':','2','6',',','!','!','g',
624 'x','s','f','(','N','g',']','q','F','`','H','{','L','s','A','C','C','E',
625 'S','S','F','i','l','e','s','>','p','l','T',']','j','I','{','j','f','(',
626 '=','1','&','L','[','-','8','1','-',']',':',':',0 };
627 static const WCHAR comp
[] = {
628 '2','6',',','!','!','g','x','s','f','(','N','g',']','q','F','`','H','{',
629 'L','s','A','C','C','E','S','S','F','i','l','e','s','>','p','l','T',']',
630 'j','I','{','j','f','(','=','1','&','L','[','-','8','1','-',']',0 };
631 IShellLinkDataList
*dl
= NULL
;
632 IShellLinkW
*sl
= NULL
;
635 EXP_DARWIN_LINK
*dar
;
637 r
= CoCreateInstance( &CLSID_ShellLink
, NULL
, CLSCTX_INPROC_SERVER
,
638 &IID_IShellLinkW
, (LPVOID
*)&sl
);
639 ok( r
== S_OK
|| r
== E_NOINTERFACE
, "CoCreateInstance failed (0x%08x)\n", r
);
642 skip("no shelllink\n");
646 r
= IShellLinkW_QueryInterface( sl
, &_IID_IShellLinkDataList
, (LPVOID
*) &dl
);
647 ok(r
== S_OK
, "IShellLinkW_QueryInterface failed (0x%08x)\n", r
);
651 skip("no datalink interface\n");
656 r
= IShellLinkDataList_GetFlags( dl
, &flags
);
657 ok( r
== S_OK
, "GetFlags failed\n");
658 ok( flags
== 0, "GetFlags returned wrong flags\n");
661 r
= IShellLinkDataList_CopyDataBlock( dl
, EXP_DARWIN_ID_SIG
, (LPVOID
*) &dar
);
662 ok( r
== E_FAIL
, "CopyDataBlock failed\n");
663 ok( dar
== NULL
, "should be null\n");
665 r
= IShellLinkW_SetPath(sl
, lnk
);
666 ok(r
== S_OK
, "set path failed\n");
669 * The following crashes:
670 * r = IShellLinkDataList_GetFlags( dl, NULL );
674 r
= IShellLinkDataList_GetFlags( dl
, &flags
);
675 ok( r
== S_OK
, "GetFlags failed\n");
676 ok( flags
== (SLDF_HAS_DARWINID
|SLDF_HAS_LOGO3ID
),
677 "GetFlags returned wrong flags\n");
680 r
= IShellLinkDataList_CopyDataBlock( dl
, EXP_DARWIN_ID_SIG
, (LPVOID
*) &dar
);
681 ok( r
== S_OK
, "CopyDataBlock failed\n");
683 ok( dar
&& ((DATABLOCK_HEADER
*)dar
)->dwSignature
== EXP_DARWIN_ID_SIG
, "signature wrong\n");
684 ok( dar
&& 0==lstrcmpW(dar
->szwDarwinID
, comp
), "signature wrong\n");
688 IUnknown_Release( dl
);
689 IShellLinkW_Release( sl
);
692 START_TEST(shelllink
)
695 HMODULE hmod
= GetModuleHandleA("shell32.dll");
696 HMODULE hkernel32
= GetModuleHandleA("kernel32.dll");
698 pILFree
= (fnILFree
) GetProcAddress(hmod
, (LPSTR
)155);
699 pILIsEqual
= (fnILIsEqual
) GetProcAddress(hmod
, (LPSTR
)21);
700 pSHILCreateFromPath
= (fnSHILCreateFromPath
) GetProcAddress(hmod
, (LPSTR
)28);
702 pGetLongPathNameA
= (void *)GetProcAddress(hkernel32
, "GetLongPathNameA");
704 r
= CoInitialize(NULL
);
705 ok(SUCCEEDED(r
), "CoInitialize failed (0x%08x)\n", r
);