2 * Shell Ordinal Functions
4 * These are completely undocumented. The meaning of the functions changes
5 * between different OS versions (NT uses Unicode strings, 95 uses ASCII
8 * They are just here so that explorer.exe and iexplore.exe can be tested.
10 * Copyright 1997 Marcus Meissner
27 #include "cursoricon.h"
28 #include "interfaces.h"
33 /*************************************************************************
34 * SHELL32_2 [SHELL32.2]
36 DWORD WINAPI SHELL32_2(HWND32 hwnd,DWORD x2,DWORD x3,DWORD x4,DWORD x5,DWORD x6) {
37 fprintf(stderr,"SHELL32_2(0x%04x,0x%08lx,0x%08lx,0x%08lx,0x%08lx,0x%08lx),stub!\n",
42 /*************************************************************************
43 * SHELL32_16 [SHELL32.16]
44 * find_lastitem_in_itemidlist()
46 LPSHITEMID WINAPI SHELL32_16(LPITEMIDLIST iil) {
47 LPSHITEMID lastsii,sii;
55 sii = (LPSHITEMID)(((char*)sii)+sii->cb);
59 /*************************************************************************
60 * SHELL32_29 [SHELL32.29]
61 * is_rootdir(const char*path)
63 BOOL32 WINAPI SHELL32_29(LPCSTR x) {
64 if (!lstrcmp32A(x+1,":\\")) /* "X:\" */
66 if (!lstrcmp32A(x,"\\")) /* "\" */
68 if (x[0]=='\\' && x[1]=='\\') { /* UNC "\\<xx>\" */
69 int foundbackslash = 0;
75 if (foundbackslash<=1) /* max 1 \ more ... */
81 /*************************************************************************
82 * SHELL32_30 [SHELL32.30]
83 * get_rootdir(char*path,int drive)
85 LPSTR WINAPI SHELL32_30(LPSTR root,BYTE drive) {
91 /*************************************************************************
92 * SHELL32_31 [SHELL32.31]
93 * returns pointer to last . in last pathcomponent or at \0.
95 LPSTR WINAPI SHELL32_31(LPSTR path) {
96 LPSTR lastpoint = NULL;
99 if (*path=='\\'||*path==' ')
105 return lastpoint?lastpoint:path;
108 /*************************************************************************
109 * SHELL32_32 [SHELL32.32]
110 * append \ if there is none
112 LPSTR WINAPI SHELL32_32(LPSTR path) {
115 len = lstrlen32A(path);
116 if (len && path[len-1]!='\\') {
124 /*************************************************************************
125 * SHELL32_33 [SHELL32.33]
126 * remove spaces from beginning and end of passed string
128 LPSTR WINAPI SHELL32_33(LPSTR str) {
145 /*************************************************************************
146 * SHELL32_34 [SHELL32.34]
147 * basename(char *fn);
149 LPSTR WINAPI SHELL32_34(LPSTR fn) {
154 if (((fn[0]=='\\') || (fn[0]==':')) && fn[1] && fn[1]!='\\')
161 /*************************************************************************
162 * SHELL32_35 [SHELL32.35]
163 * bool getpath(char *pathname); truncates passed argument to a valid path
164 * returns if the string was modified or not.
165 * "\foo\xx\foo"-> "\foo\xx"
169 DWORD WINAPI SHELL32_35(LPSTR fn) {
185 continue; /* already x++ed */
203 /*************************************************************************
204 * SHELL32_37 [SHELL32.37]
205 * concat_paths(char*target,const char*add);
206 * concats "target\\add" and writes them to target
208 LPSTR WINAPI SHELL32_37(LPSTR target,LPSTR x1,LPSTR x2) {
212 lstrcpy32A(target,x1);
216 SHELL32_32(buf); /* append \ if not there */
218 lstrcpy32A(target,buf);
222 /*************************************************************************
223 * SHELL32_36 [SHELL32.36]
224 * concat_paths(char*target,const char*add);
225 * concats "target\\add" and writes them to target
227 LPSTR WINAPI SHELL32_36(LPSTR x1,LPSTR x2) {
228 while (x2[0]=='\\') x2++;
229 return SHELL32_37(x1,x1,x2);
232 /*************************************************************************
233 * SHELL32_39 [SHELL32.39]
234 * isUNC(const char*path);
236 BOOL32 WINAPI SHELL32_39(LPCSTR path) {
237 if ((path[0]=='\\') && (path[1]=='\\'))
242 /*************************************************************************
243 * SHELL32_45 [SHELL32.45]
244 * file_exists(char *fn);
246 BOOL32 WINAPI SHELL32_45(LPSTR fn) {
247 if (GetFileAttributes32A(fn)==-1)
253 /*************************************************************************
254 * SHELL32_52 [SHELL32.52]
255 * look for next arg in string. handle "quoted" strings
256 * returns pointer to argument *AFTER* the space. Or to the \0.
258 LPSTR WINAPI SHELL32_52(LPSTR cmdline) {
259 BOOL32 qflag = FALSE;
262 if ((*cmdline==' ') && !qflag)
271 /*************************************************************************
272 * SHELL32_56 [SHELL32.56]
273 * unquote string (remove ")
275 VOID WINAPI SHELL32_56(LPSTR str) {
276 DWORD len = lstrlen32A(str);
278 if (*str!='"') return;
279 if (str[len-1]!='"') return;
281 lstrcpy32A(str,str+1);
285 /*************************************************************************
286 * SHELL32_58 [SHELL32.58]
288 DWORD WINAPI SHELL32_58(LPCSTR src,DWORD x2,LPSTR target,DWORD pathlen) {
289 fprintf(stderr,"SHELL32_58(%s,0x%08lx,%p,%ld),STUB!\n",
290 src,x2,target,pathlen
297 /*************************************************************************
298 * SHELL32_62 [SHELL32.62]
300 DWORD WINAPI SHELL32_62(DWORD x,DWORD y,DWORD z,DWORD a) {
301 fprintf(stderr,"SHELL32_62(%08lx,%08lx,%08lx,%08lx),stub!\n",x,y,z,a);
305 /*************************************************************************
306 * SHELL32_63 [SHELL32.63]
308 DWORD WINAPI SHELL32_63(HWND32 howner, LPSTR targetbuf, DWORD len, DWORD x, LPCSTR suffix, LPCSTR y, LPCSTR cmd) {
309 fprintf(stderr,"SHELL32_63(%04x,%p,%ld,%08lx,%s,%s,%s),stub!\n",
310 howner,targetbuf,len,x,suffix,y,cmd
312 /* puts up a Open Dialog and requests input into targetbuf */
313 /* OFN_HIDEREADONLY|OFN_NOCHANGEDIR|OFN_FILEMUSTEXIST|OFN_unknown */
314 lstrcpy32A(targetbuf,"x:\\s3.exe");
318 /*************************************************************************
319 * SHELL32_68 [SHELL32.68]
321 DWORD WINAPI SHELL32_68(DWORD x,DWORD y,DWORD z) {
322 fprintf(stderr,"SHELL32_68(0x%08lx,0x%08lx,0x%08lx),stub!\n",
327 /*************************************************************************
328 * SHELL32_71 [SHELL32.71]
329 * returns internal shell values in the passed pointers
331 BOOL32 WINAPI SHELL32_71(LPDWORD x,LPDWORD y) {
333 fprintf(stderr,"SHELL32_71(%p,%p),stub!\n",x,y);
337 /*************************************************************************
338 * SHELL32_72 [SHELL32.72]
339 * dunno. something with icons
341 void WINAPI SHELL32_72(LPSTR x,DWORD y,DWORD z) {
342 fprintf(stderr,"SHELL32_72(%s,%08lx,%08lx),stub!\n",x,y,z);
345 /*************************************************************************
346 * SHELL32_89 [SHELL32.89]
348 DWORD WINAPI SHELL32_89(DWORD x1,DWORD x2,DWORD x3) {
349 fprintf(stderr,"SHELL32_89(0x%08lx,0x%08lx,0x%08lx),stub!\n",
355 /*************************************************************************
356 * SHELL32_119 [SHELL32.119]
359 void WINAPI SHELL32_119(LPVOID x) {
360 fprintf(stderr,"SHELL32_119(%p(%s)),stub\n",x,(char *)x);
363 /*************************************************************************
364 * SHELL32_175 [SHELL32.175]
367 void WINAPI SHELL32_175(DWORD x1,DWORD x2,DWORD x3,DWORD x4) {
368 fprintf(stdnimp,"SHELL32_175(0x%08lx,0x%08lx,0x%08lx,0x%08lx),stub\n",
373 /*************************************************************************
374 * SHELL32_181 [SHELL32.181]
377 void WINAPI SHELL32_181(DWORD x,DWORD y) {
378 fprintf(stderr,"SHELL32_181(0x%08lx,0x%08lx)\n",x,y);
381 /*************************************************************************
382 * SHELL32_75 [SHELL32.75]
385 BOOL32 WINAPI SHELL32_75(LPDWORD x,LPDWORD y) {
386 fprintf(stderr,"SHELL32_75(%p,%p),stub\n",x,y);
390 /*************************************************************************
391 * SHELL32_77 [SHELL32.77]
393 DWORD WINAPI SHELL32_77(DWORD x,DWORD y,DWORD z) {
394 fprintf(stderr,"SHELL32_77(%08lx,%08lx,%08lx),stub!\n",x,y,z);
398 /*************************************************************************
399 * SHELL32_79 [SHELL32.79]
400 * create_directory_and_notify(...)
402 DWORD WINAPI SHELL32_79(LPCSTR dir,LPVOID xvoid) {
403 fprintf(stderr,"mkdir %s,%p\n",dir,xvoid);
404 if (!CreateDirectory32A(dir,xvoid))
406 /* SHChangeNotify(8,1,dir,0); */
410 static FARPROC32 _find_moduleproc(LPSTR dllname,HMODULE32 *xhmod,LPSTR name) {
412 FARPROC32 dllunload,nameproc;
414 if (xhmod) *xhmod = 0;
415 if (!lstrcmpi32A(SHELL32_34(dllname),"shell32.dll"))
416 return (FARPROC32)SHELL32_DllGetClassObject;
418 hmod = LoadLibraryEx32A(dllname,0,LOAD_WITH_ALTERED_SEARCH_PATH);
421 dllunload = GetProcAddress32(hmod,"DllCanUnloadNow");
423 if (xhmod) *xhmod = hmod;
424 nameproc = GetProcAddress32(hmod,name);
429 /* register unloadable dll with unloadproc ... */
433 static DWORD _get_instance(REFCLSID clsid,LPSTR dllname,
434 LPVOID unknownouter,REFIID refiid,LPVOID inst
436 DWORD WINAPI (*dllgetclassob)(REFCLSID,REFIID,LPVOID);
439 LPCLASSFACTORY classfac;
442 dllgetclassob = (DWORD(*)(REFCLSID,REFIID,LPVOID))_find_moduleproc(dllname,NULL,"DllGetClassObject");
444 return 0x80070000|GetLastError();
447 hres = (*dllgetclassob)(clsid,(REFIID)&IID_IClassFactory,inst);
452 hres = (*dllgetclassob)(clsid,(REFIID)&IID_IClassFactory,&classfac);
455 classfac->lpvtbl->fnCreateInstance(classfac,unknownouter,refiid,inst);
456 classfac->lpvtbl->fnRelease(classfac);
460 /*************************************************************************
461 * SHELL32_102 [SHELL32.102]
464 LRESULT WINAPI SHELL32_102(
465 LPSTR aclsid,CLSID *clsid,LPUNKNOWN unknownouter,REFIID refiid,LPVOID inst
467 char buffer[256],xclsid[48],xiid[48],path[260],tmodel[100];
469 DWORD pathlen,type,tmodellen;
472 WINE_StringFromCLSID(refiid,xiid);
475 WINE_StringFromCLSID(clsid,xclsid);
479 strcpy(xclsid,aclsid);
481 fprintf(stderr,"SHELL32_102(%p,%s,%p,%s,%p)\n",
482 aclsid,xclsid,unknownouter,xiid,inst
485 sprintf(buffer,"CLSID\\%s\\InProcServer32",xclsid);
486 if (RegOpenKeyEx32A(HKEY_CLASSES_ROOT,buffer,0,0x02000000,&inprockey))
487 return _get_instance(clsid,"shell32.dll",unknownouter,refiid,inst);
488 pathlen=sizeof(path);
489 if (RegQueryValue32A(inprockey,NULL,path,&pathlen)) {
490 RegCloseKey(inprockey);
491 return _get_instance(clsid,"shell32.dll",unknownouter,refiid,inst);
493 fprintf(stderr," -> server dll is %s\n",path);
494 tmodellen=sizeof(tmodel);
496 if (RegQueryValueEx32A(inprockey,"ThreadingModel",NULL,&type,tmodel,&tmodellen)) {
497 RegCloseKey(inprockey);
498 return _get_instance(clsid,"shell32.dll",unknownouter,refiid,inst);
500 fprintf(stderr," -> threading model is %s\n",tmodel);
501 hres=_get_instance(clsid,path,unknownouter,refiid,inst);
503 hres=_get_instance(clsid,"shell32.dll",unknownouter,refiid,inst);
504 RegCloseKey(inprockey);
509 /*************************************************************************
510 * SHELL32_183 [SHELL32.183]
511 * Format and output errormessage.
513 void __cdecl SHELL32_183(HMODULE32 hmod,HWND32 hwnd,DWORD id,DWORD x,DWORD type,LPVOID arglist) {
514 char buf[100],buf2[100],*buf3;
515 LPVOID args = &arglist;
517 if (!LoadString32A(hmod,x,buf,100))
518 strcpy(buf,"Desktop");
519 LoadString32A(hmod,id,buf2,100);
520 /* FIXME: the varargs handling doesn't. */
521 FormatMessage32A(0x500,buf2,0,0,&buf3,256,&args);
523 fprintf(stderr,"SHELL32_183(%08lx,%08lx,%08lx(%s),%08lx(%s),%08lx,%p),stub!\n",
524 (DWORD)hmod,(DWORD)hwnd,id,buf2,x,buf,type,arglist
526 /*MessageBox32A(hwnd,buf3,buf,id|0x10000);*/
530 /*************************************************************************
531 * SHELL32_100 [SHELL32.100]
532 * walks through policy table, queries <app> key, <type> value, returns
533 * queried (DWORD) value.
534 * {0x00001,Explorer,NoRun}
535 * {0x00002,Explorer,NoClose}
536 * {0x00004,Explorer,NoSaveSettings}
537 * {0x00008,Explorer,NoFileMenu}
538 * {0x00010,Explorer,NoSetFolders}
539 * {0x00020,Explorer,NoSetTaskbar}
540 * {0x00040,Explorer,NoDesktop}
541 * {0x00080,Explorer,NoFind}
542 * {0x00100,Explorer,NoDrives}
543 * {0x00200,Explorer,NoDriveAutoRun}
544 * {0x00400,Explorer,NoDriveTypeAutoRun}
545 * {0x00800,Explorer,NoNetHood}
546 * {0x01000,Explorer,NoStartBanner}
547 * {0x02000,Explorer,RestrictRun}
548 * {0x04000,Explorer,NoPrinterTabs}
549 * {0x08000,Explorer,NoDeletePrinter}
550 * {0x10000,Explorer,NoAddPrinter}
551 * {0x20000,Explorer,NoStartMenuSubFolders}
552 * {0x40000,Explorer,MyDocsOnNet}
553 * {0x80000,WinOldApp,NoRealMode}
555 DWORD WINAPI SHELL32_100(DWORD pol) {
558 fprintf(stderr,"SHELL32_100(%08lx),stub!\n",pol);
559 if (RegOpenKey32A(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\CurrentVersion\\Policies",&xhkey))
561 /* FIXME: do nothing for now, just return 0 (== "allowed") */
567 /*************************************************************************
568 * SHELL32_152 [SHELL32.152]
571 DWORD WINAPI SHELL32_152(LPITEMIDLIST iil) {
579 si = (LPSHITEMID)(((char*)si)+si->cb);
584 /*************************************************************************
585 * SHELL32_158 [SHELL32.158]
587 LPSTR WINAPI SHELL32_158(LPSTR path,DWORD y,DWORD z) {
588 fprintf(stderr,"SHELL32_158(%s,%08lx,%08lx)\n",path,y,z);
589 path = SHELL32_31(path);
590 return *path?(path+1):path;
593 /*************************************************************************
594 * SHELL32_165 [SHELL32.165]
595 * create_path_and_notify(...)
597 DWORD WINAPI SHELL32_165(DWORD x,LPCSTR path) {
598 if (SHELL32_79(path,(LPVOID)x))
600 fprintf(stderr,"SHELL32_165(%08lx,%s),stub!\n",x,path);
604 /*************************************************************************
605 * SHELL32_195 [SHELL32.195]
606 * free_ptr() - frees memory using IMalloc
608 DWORD WINAPI SHELL32_195(LPVOID x) {
609 return LocalFree32((HANDLE32)x);
612 /*************************************************************************
613 * SHELL32_196 [SHELL32.196]
614 * void *task_alloc(DWORD len), uses SHMalloc allocator
616 LPVOID WINAPI SHELL32_196(DWORD len) {
617 return (LPVOID)LocalAlloc32(len,LMEM_ZEROINIT); /* FIXME */
620 /*************************************************************************
621 * SHELL32_18 [SHELL32.18]
624 LPITEMIDLIST WINAPI SHELL32_18(LPITEMIDLIST iil) {
628 len = SHELL32_152(iil);
629 newiil = (LPITEMIDLIST)SHELL32_196(len);
630 memcpy(newiil,iil,len);
634 /*************************************************************************
635 * SHELL32_25 [SHELL32.25]
638 LPITEMIDLIST WINAPI SHELL32_25(LPITEMIDLIST iil1,LPITEMIDLIST iil2) {
642 len1 = SHELL32_152(iil1)-2;
643 len2 = SHELL32_152(iil2);
644 newiil = SHELL32_196(len1+len2);
645 memcpy(newiil,iil1,len1);
646 memcpy(((char*)newiil)+len1,iil2,len2);
650 /*************************************************************************
651 * SHELL32_155 [SHELL32.155]
652 * free_check_ptr - frees memory (if not NULL) allocated by SHMalloc allocator
654 DWORD WINAPI SHELL32_155(LPVOID x) {
657 return SHELL32_195(x);