source: trunk/src/shell32/shell32_main.cpp@ 1323

Last change on this file since 1323 was 1252, checked in by sandervl, 26 years ago

Added version info, compile resource with wrc (shell about fixed), call Wine dll entrypoint
File size: 27.4 KB
Line 
1/* $Id: shell32_main.cpp,v 1.3 1999-10-11 20:17:11 sandervl Exp $ */
2/*
3 * Shell basics
4 *
5 * 1998 Marcus Meissner
6 * 1998 Juergen Schmied (jsch) * <juergen.schmied@metronet.de>
7 */
8#include <stdlib.h>
9#include <string.h>
10#include <odin.h>
11
12#define ICOM_CINTERFACE 1
13#define CINTERFACE 1
14
15#include "wine/winuser16.h"
16#include "winerror.h"
17#include "heap.h"
18#include "resource.h"
19#include "dlgs.h"
20//#include "ldt.h"
21#include "sysmetrics.h"
22#include "debugtools.h"
23#include "winreg.h"
24#include "authors.h"
25#include "winversion.h"
26
27#include "shellapi.h"
28#include "pidl.h"
29
30#include "shlobj.h"
31#include "shell32_main.h"
32#include "shlguid.h"
33#include "wine/undocshell.h"
34
35#include <heapstring.h>
36#include <misc.h>
37
38DECLARE_DEBUG_CHANNEL(exec)
39DECLARE_DEBUG_CHANNEL(shell)
40
41#define MORE_DEBUG 1
42/*************************************************************************
43 * CommandLineToArgvW [SHELL32.7]
44 */
45LPWSTR* WINAPI CommandLineToArgvW(LPWSTR cmdline,LPDWORD numargs)
46{ LPWSTR *argv,s,t;
47 int i;
48 TRACE_(shell)("\n");
49
50 /* to get writeable copy */
51 cmdline = HEAP_strdupW( GetProcessHeap(), 0, cmdline);
52 s=cmdline;i=0;
53 while (*s)
54 { /* space */
55 if (*s==0x0020)
56 { i++;
57 s++;
58 while (*s && *s==0x0020)
59 s++;
60 continue;
61 }
62 s++;
63 }
64 argv=(LPWSTR*)HeapAlloc( GetProcessHeap(), 0, sizeof(LPWSTR)*(i+1) );
65 s=t=cmdline;
66 i=0;
67 while (*s)
68 { if (*s==0x0020)
69 { *s=0;
70 argv[i++]=HEAP_strdupW( GetProcessHeap(), 0, t );
71 *s=0x0020;
72 while (*s && *s==0x0020)
73 s++;
74 if (*s)
75 t=s+1;
76 else
77 t=s;
78 continue;
79 }
80 s++;
81 }
82 if (*t)
83 argv[i++]=(LPWSTR)HEAP_strdupW( GetProcessHeap(), 0, t );
84
85 HeapFree( GetProcessHeap(), 0, cmdline );
86 argv[i]=NULL;
87 *numargs=i;
88 return argv;
89}
90
91/*************************************************************************
92 * Control_RunDLL [SHELL32.12]
93 *
94 * Wild speculation in the following!
95 *
96 * http://premium.microsoft.com/msdn/library/techart/msdn193.htm
97 */
98
99void WINAPI Control_RunDLL( HWND hwnd, LPCVOID code, LPCSTR cmd, DWORD arg4 )
100{
101 FIXME_(shell)("(0x%08x, %p, %s, 0x%08lx): stub\n", hwnd, code,
102 debugstr_a(cmd), arg4);
103}
104
105/*************************************************************************
106 * SHGetFileInfoA [SHELL32.254]
107 */
108
109DWORD WINAPI SHGetFileInfoA(LPCSTR path,DWORD dwFileAttributes,
110 SHFILEINFOA *psfi, UINT sizeofpsfi,
111 UINT flags )
112{
113 char szLoaction[MAX_PATH];
114 int iIndex;
115 DWORD ret = TRUE, dwAttributes = 0;
116 IShellFolder * psfParent = NULL;
117 IExtractIcon * pei = NULL;
118 LPITEMIDLIST pidlLast, pidl = NULL;
119 HRESULT hr = S_OK;
120
121 TRACE_(shell)("(%s,0x%lx,%p,0x%x,0x%x)\n",
122 (flags & SHGFI_PIDL)? "pidl" : path, dwFileAttributes, psfi, sizeofpsfi, flags);
123
124#ifdef MORE_DEBUG
125 ZeroMemory(psfi, sizeof(SHFILEINFOA));
126#endif
127 if ((flags & SHGFI_USEFILEATTRIBUTES) && (flags & (SHGFI_ATTRIBUTES|SHGFI_EXETYPE|SHGFI_PIDL)))
128 return FALSE;
129
130 /* translate the path into a pidl only when SHGFI_USEFILEATTRIBUTES in not specified
131 the pidl functions fail on not existing file names */
132 if (flags & SHGFI_PIDL)
133 {
134 pidl = (LPCITEMIDLIST) path;
135 }
136 else if (!(flags & SHGFI_USEFILEATTRIBUTES))
137 {
138 hr = SHILCreateFromPathA ( path, &pidl, &dwAttributes);
139 /* note: the attributes in ISF::ParseDisplayName are not implemented */
140 }
141
142 /* get the parent shellfolder */
143 if (pidl)
144 {
145 hr = SHBindToParent( pidl, &IID_IShellFolder, (LPVOID*)&psfParent, &pidlLast);
146 }
147
148 /* get the attributes of the child */
149 if (SUCCEEDED(hr) && (flags & SHGFI_ATTRIBUTES))
150 {
151 if (!(flags & SHGFI_ATTR_SPECIFIED))
152 {
153 psfi->dwAttributes = 0xffffffff;
154 }
155 IShellFolder_GetAttributesOf(psfParent, 1 , &pidlLast, &(psfi->dwAttributes));
156 }
157
158 /* get the displayname */
159 if (SUCCEEDED(hr) && (flags & SHGFI_DISPLAYNAME))
160 {
161 if (flags & SHGFI_USEFILEATTRIBUTES)
162 {
163 strcpy (psfi->szDisplayName, PathFindFilenameA(path));
164 }
165 else
166 {
167 STRRET str;
168 hr = IShellFolder_GetDisplayNameOf(psfParent, pidlLast, SHGDN_INFOLDER, &str);
169 StrRetToStrNA (psfi->szDisplayName, MAX_PATH, &str, pidlLast);
170 }
171 }
172
173 /* get the type name */
174 if (SUCCEEDED(hr) && (flags & SHGFI_TYPENAME))
175 {
176 if(_ILIsValue(pidlLast))
177 {
178 char sTemp[64];
179 if (_ILGetExtension (pidlLast, sTemp, 64))
180 {
181 if (!( HCR_MapTypeToValue(sTemp, sTemp, 64, TRUE)
182 && HCR_MapTypeToValue(sTemp, psfi->szTypeName, 80, FALSE )))
183 {
184 lstrcpynA (psfi->szTypeName, sTemp, 74);
185 strcat (psfi->szTypeName, "-file");
186 }
187 }
188 }
189 else
190 {
191 strcpy(psfi->szTypeName, "Folder");
192 }
193 }
194
195 /* ### icons ###*/
196 if (flags & SHGFI_LINKOVERLAY)
197 FIXME_(shell)("set icon to link, stub\n");
198
199 if (flags & SHGFI_OPENICON)
200 FIXME_(shell)("set to open icon, stub\n");
201
202 if (flags & SHGFI_SELECTED)
203 FIXME_(shell)("set icon to selected, stub\n");
204
205 if (flags & SHGFI_SHELLICONSIZE)
206 FIXME_(shell)("set icon to shell size, stub\n");
207
208 /* get the iconlocation */
209 if (SUCCEEDED(hr) && (flags & SHGFI_ICONLOCATION ))
210 {
211 UINT uDummy,uFlags;
212 hr = IShellFolder_GetUIObjectOf(psfParent, 0, 1, &pidlLast, &IID_IExtractIconA, &uDummy, (LPVOID*)&pei);
213
214 if (SUCCEEDED(hr))
215 {
216 hr = IExtractIconA_GetIconLocation(pei, 0, szLoaction, MAX_PATH, &iIndex, &uFlags);
217 /* fixme what to do with the index? */
218
219 if(uFlags != GIL_NOTFILENAME)
220 strcpy (psfi->szDisplayName, szLoaction);
221 else
222 ret = FALSE;
223
224 IExtractIconA_Release(pei);
225 }
226 }
227
228 /* get icon index (or load icon)*/
229 if (SUCCEEDED(hr) && (flags & (SHGFI_ICON | SHGFI_SYSICONINDEX)))
230 {
231 if (flags & SHGFI_USEFILEATTRIBUTES)
232 {
233 char sTemp [MAX_PATH];
234 char * szExt;
235 DWORD dwNr=0;
236
237 lstrcpynA(sTemp, path, MAX_PATH);
238 szExt = (LPSTR) PathFindExtensionA(sTemp);
239 if( szExt && HCR_MapTypeToValue(szExt, sTemp, MAX_PATH, TRUE)
240 && HCR_GetDefaultIcon(sTemp, sTemp, MAX_PATH, &dwNr))
241 {
242 if (!strcmp("%1",sTemp)) /* icon is in the file */
243 {
244 strcpy(sTemp, path);
245 }
246 /* FIXME: if sTemp contains a valid filename, get the icon
247 from there, index is in dwNr
248 */
249 psfi->iIcon = 2;
250 }
251 else /* default icon */
252 {
253 psfi->iIcon = 0;
254 }
255 }
256 else
257 {
258 if (!(PidlToSicIndex(psfParent, pidlLast, (flags && SHGFI_LARGEICON), (PUINT)&(psfi->iIcon))))
259 {
260 ret = FALSE;
261 }
262 }
263 if (ret)
264 {
265 ret = (DWORD) ((flags && SHGFI_LARGEICON) ? ShellBigIconList : ShellSmallIconList);
266 }
267 }
268
269 /* icon handle */
270 if (SUCCEEDED(hr) && (flags & SHGFI_ICON))
271 psfi->hIcon = pImageList_GetIcon((flags && SHGFI_LARGEICON) ? ShellBigIconList:ShellSmallIconList, psfi->iIcon, ILD_NORMAL);
272
273
274 if (flags & SHGFI_EXETYPE)
275 FIXME_(shell)("type of executable, stub\n");
276
277 if (flags & (SHGFI_UNKNOWN1 | SHGFI_UNKNOWN2 | SHGFI_UNKNOWN3))
278 FIXME_(shell)("unknown attribute!\n");
279
280 if (psfParent)
281 IShellFolder_Release(psfParent);
282
283 if (hr != S_OK)
284 ret = FALSE;
285
286#ifdef MORE_DEBUG
287 TRACE_(shell) ("icon=0x%08x index=0x%08x attr=0x%08lx name=%s type=%s\n",
288 psfi->hIcon, psfi->iIcon, psfi->dwAttributes, psfi->szDisplayName, psfi->szTypeName);
289#endif
290 return ret;
291}
292
293/*************************************************************************
294 * SHGetFileInfoW [SHELL32.255]
295 */
296
297DWORD WINAPI SHGetFileInfoW(LPCWSTR path,DWORD dwFileAttributes,
298 SHFILEINFOW *psfi, UINT sizeofpsfi,
299 UINT flags )
300{ FIXME_(shell)("(%s,0x%lx,%p,0x%x,0x%x)\n",
301 debugstr_w(path),dwFileAttributes,psfi,sizeofpsfi,flags);
302 return 0;
303}
304
305
306/*************************************************************************
307 * ExtractIconA [SHELL32.133]
308 */
309HICON WINAPI ExtractIconA( HINSTANCE hInstance, LPCSTR lpszExeFileName,
310 UINT nIconIndex )
311{
312#if 0
313//@@@PH
314HGLOBAL handle = InternalExtractIconA(hInstance,lpszExeFileName,nIconIndex, 1);
315 TRACE_(shell)("\n");
316 if( handle )
317 {
318 HICON* ptr = (HICON*)GlobalLock(handle);
319 HICON hIcon = *ptr;
320
321 GlobalFree(handle);
322 return hIcon;
323 }
324#endif
325 return 0;
326}
327
328/*************************************************************************
329 * ExtractIconW [SHELL32.180]
330 */
331HICON WINAPI ExtractIconW( HINSTANCE hInstance, LPCWSTR lpszExeFileName,
332 UINT nIconIndex )
333{ LPSTR exefn;
334 HICON ret;
335 TRACE_(shell)("\n");
336
337 exefn = HEAP_strdupWtoA(GetProcessHeap(),0,lpszExeFileName);
338 ret = ExtractIconA(hInstance,exefn,nIconIndex);
339
340 HeapFree(GetProcessHeap(),0,exefn);
341 return ret;
342}
343
344/*************************************************************************
345 * FindExecutableA [SHELL32.184]
346 */
347HINSTANCE WINAPI FindExecutableA( LPCSTR lpFile, LPCSTR lpDirectory,
348 LPSTR lpResult )
349{ HINSTANCE retval=31; /* default - 'No association was found' */
350 char old_dir[1024];
351
352 TRACE_(shell)("File %s, Dir %s\n",
353 (lpFile != NULL?lpFile:"-"),
354 (lpDirectory != NULL?lpDirectory:"-"));
355
356 lpResult[0]='\0'; /* Start off with an empty return string */
357
358 /* trap NULL parameters on entry */
359 if (( lpFile == NULL ) || ( lpResult == NULL ))
360 { /* FIXME - should throw a warning, perhaps! */
361 return 2; /* File not found. Close enough, I guess. */
362 }
363
364 if (lpDirectory)
365 { GetCurrentDirectoryA( sizeof(old_dir), old_dir );
366 SetCurrentDirectoryA( lpDirectory );
367 }
368
369 retval = SHELL_FindExecutable( lpFile, "open", lpResult );
370
371 TRACE_(shell)("returning %s\n", lpResult);
372 if (lpDirectory)
373 SetCurrentDirectoryA( old_dir );
374 return retval;
375}
376
377/*************************************************************************
378 * FindExecutableW [SHELL32.219]
379 */
380HINSTANCE WINAPI FindExecutableW(LPCWSTR lpFile, LPCWSTR lpDirectory,
381 LPWSTR lpResult)
382{
383 FIXME_(shell)("(%p,%p,%p): stub\n", lpFile, lpDirectory, lpResult);
384 return 31; /* default - 'No association was found' */
385}
386
387typedef struct
388{ LPCSTR szApp;
389 LPCSTR szOtherStuff;
390 HICON hIcon;
391} ABOUT_INFO;
392
393#define IDC_STATIC_TEXT 100
394#define IDC_LISTBOX 99
395#define IDC_WINE_TEXT 98
396
397#define DROP_FIELD_TOP (-15)
398#define DROP_FIELD_HEIGHT 15
399
400static BOOL __get_dropline( HWND hWnd, LPRECT lprect )
401{ HWND hWndCtl = GetDlgItem(hWnd, IDC_WINE_TEXT);
402 if( hWndCtl )
403 { GetWindowRect( hWndCtl, lprect );
404 MapWindowPoints( 0, hWnd, (LPPOINT)lprect, 2 );
405 lprect->bottom = (lprect->top += DROP_FIELD_TOP);
406 return TRUE;
407 }
408 return FALSE;
409}
410
411/*************************************************************************
412 * SHAppBarMessage32 [SHELL32.207]
413 */
414UINT WINAPI SHAppBarMessage(DWORD msg, PAPPBARDATA data)
415{
416 FIXME_(shell)("(0x%08lx,%p hwnd=0x%08x): stub\n", msg, data, data->hWnd);
417
418 switch (msg)
419 { case ABM_GETSTATE:
420 return ABS_ALWAYSONTOP | ABS_AUTOHIDE;
421 case ABM_GETTASKBARPOS:
422 /* fake a taskbar on the bottom of the desktop */
423 { RECT rec;
424 GetWindowRect(GetDesktopWindow(), &rec);
425 rec.left = 0;
426 rec.top = rec.bottom - 2;
427 }
428 return TRUE;
429 case ABM_ACTIVATE:
430 case ABM_GETAUTOHIDEBAR:
431 case ABM_NEW:
432 case ABM_QUERYPOS:
433 case ABM_REMOVE:
434 case ABM_SETAUTOHIDEBAR:
435 case ABM_SETPOS:
436 case ABM_WINDOWPOSCHANGED:
437 return FALSE;
438 }
439 return 0;
440}
441
442/*************************************************************************
443 * SHHelpShortcuts_RunDLL [SHELL32.224]
444 *
445 */
446DWORD WINAPI SHHelpShortcuts_RunDLL (DWORD dwArg1, DWORD dwArg2, DWORD dwArg3, DWORD dwArg4)
447{ FIXME_(exec)("(%lx, %lx, %lx, %lx) empty stub!\n",
448 dwArg1, dwArg2, dwArg3, dwArg4);
449
450 return 0;
451}
452
453/*************************************************************************
454 * SHLoadInProc [SHELL32.225]
455 *
456 */
457
458DWORD WINAPI SHLoadInProc (DWORD dwArg1)
459{ FIXME_(shell)("(%lx) empty stub!\n", dwArg1);
460 return 0;
461}
462
463
464
465/*************************************************************************
466 * ShellExecuteA [SHELL32.245]
467 */
468
469HINSTANCE WINAPI ShellExecuteA( HWND hWnd, LPCSTR lpOperation,
470 LPCSTR lpFile, LPCSTR lpParameters,
471 LPCSTR lpDirectory, INT iShowCmd )
472{ HINSTANCE retval=31;
473 char old_dir[1024];
474 char cmd[256];
475
476 TRACE_(shell)("(%04x,'%s','%s','%s','%s',%x)\n",
477 hWnd, lpOperation ? lpOperation:"<null>", lpFile ? lpFile:"<null>",
478 lpParameters ? lpParameters : "<null>",
479 lpDirectory ? lpDirectory : "<null>", iShowCmd);
480
481 if (lpFile==NULL) return 0; /* should not happen */
482 if (lpOperation==NULL) /* default is open */
483 lpOperation="open";
484
485 if (lpDirectory)
486 { GetCurrentDirectoryA( sizeof(old_dir), old_dir );
487 SetCurrentDirectoryA( lpDirectory );
488 }
489
490 retval = SHELL_FindExecutable( lpFile, lpOperation, cmd );
491
492 if (retval > 32) /* Found */
493 {
494 if (lpParameters)
495 {
496 strcat(cmd," ");
497 strcat(cmd,lpParameters);
498 }
499
500 TRACE_(shell)("starting %s\n",cmd);
501 retval = WinExec( cmd, iShowCmd );
502 }
503 if (lpDirectory)
504 SetCurrentDirectoryA( old_dir );
505 return retval;
506}
507
508
509/*************************************************************************
510 * ShellExecuteW [SHELL32.294]
511 * from shellapi.h
512 * WINSHELLAPI HINSTANCE APIENTRY ShellExecuteW(HWND hwnd, LPCWSTR lpOperation,
513 * LPCWSTR lpFile, LPCWSTR lpParameters, LPCWSTR lpDirectory, INT nShowCmd);
514 */
515HINSTANCE WINAPI
516ShellExecuteW(
517 HWND hwnd,
518 LPCWSTR lpOperation,
519 LPCWSTR lpFile,
520 LPCWSTR lpParameters,
521 LPCWSTR lpDirectory,
522 INT nShowCmd) {
523
524 FIXME_(shell)(": stub\n");
525 return 0;
526}
527
528/*************************************************************************
529 * AboutDlgProc32 (internal)
530 */
531
532BOOL WINAPI AboutDlgProc( HWND hWnd, UINT msg, WPARAM wParam,
533 LPARAM lParam )
534{ HWND hWndCtl;
535 char Template[512], AppTitle[512];
536
537 TRACE_(shell)("\n");
538
539 switch(msg)
540 { case WM_INITDIALOG:
541 { ABOUT_INFO *info = (ABOUT_INFO *)lParam;
542 if (info)
543 { const char* const *pstr = SHELL_People;
544 SendDlgItemMessageA(hWnd, stc1, STM_SETICON,info->hIcon, 0);
545 GetWindowTextA( hWnd, Template, sizeof(Template) );
546 sprintf( AppTitle, Template, info->szApp );
547 SetWindowTextA( hWnd, AppTitle );
548 SetWindowTextA( GetDlgItem(hWnd, IDC_STATIC_TEXT),
549 info->szOtherStuff );
550 hWndCtl = GetDlgItem(hWnd, IDC_LISTBOX);
551 SendMessageA( hWndCtl, WM_SETREDRAW, 0, 0 );
552 while (*pstr)
553 { SendMessageA( hWndCtl, LB_ADDSTRING, (WPARAM)-1, (LPARAM)*pstr );
554 pstr++;
555 }
556 SendMessageA( hWndCtl, WM_SETREDRAW, 1, 0 );
557 }
558 }
559 return 1;
560
561 case WM_PAINT:
562 { RECT rect;
563 PAINTSTRUCT ps;
564 HDC hDC = BeginPaint( hWnd, &ps );
565
566 if( __get_dropline( hWnd, &rect ) ) {
567 SelectObject( hDC, GetStockObject( BLACK_PEN ) );
568 MoveToEx( hDC, rect.left, rect.top, NULL );
569 LineTo( hDC, rect.right, rect.bottom );
570 }
571 EndPaint( hWnd, &ps );
572 }
573 break;
574
575#if 0
576// @@@PH turned off
577 case WM_LBTRACKPOINT:
578 hWndCtl = GetDlgItem(hWnd, IDC_LISTBOX);
579 if( (INT)GetKeyState( VK_CONTROL ) < 0 )
580 { if( DragDetect( hWndCtl, *((LPPOINT)&lParam) ) )
581 { INT idx = SendMessageA( hWndCtl, LB_GETCURSEL, 0, 0 );
582 if( idx != -1 )
583 { INT length = SendMessageA( hWndCtl, LB_GETTEXTLEN, (WPARAM)idx, 0 );
584 HGLOBAL hMemObj = GlobalAlloc( GMEM_MOVEABLE, length + 1 );
585 char* pstr = (char*)GlobalLock( hMemObj );
586
587 if( pstr )
588 { HCURSOR hCursor = LoadCursorA( 0, (LPCSTR)OCR_DRAGOBJECT );
589 SendMessageA( hWndCtl, LB_GETTEXT, (WPARAM)idx, (LPARAM)pstr );
590 SendMessageA( hWndCtl, LB_DELETESTRING, (WPARAM)idx, 0 );
591 UpdateWindow( hWndCtl );
592 //@@@PH DragObject16 experimentally replaced by DragObject
593 if( !DragObject(hWnd, hWnd, DRAGOBJ_DATA, hMemObj, hCursor) )
594 SendMessageA( hWndCtl, LB_ADDSTRING, (WPARAM)-1, (LPARAM)pstr );
595 }
596 if( hMemObj )
597 GlobalFree( hMemObj );
598 }
599 }
600 }
601 break;
602
603 case WM_QUERYDROPOBJECT:
604 if( wParam == 0 )
605 { LPDRAGINFO lpDragInfo = (LPDRAGINFO)PTR_SEG_TO_LIN((SEGPTR)lParam);
606 if( lpDragInfo && lpDragInfo->wFlags == DRAGOBJ_DATA )
607 { RECT rect;
608 if( __get_dropline( hWnd, &rect ) )
609 { POINT pt;
610 pt.x=lpDragInfo->pt.x;
611 pt.x=lpDragInfo->pt.y;
612 rect.bottom += DROP_FIELD_HEIGHT;
613 if( PtInRect( &rect, pt ) )
614 { SetWindowLongA( hWnd, DWL_MSGRESULT, 1 );
615 return TRUE;
616 }
617 }
618 }
619 }
620 break;
621
622 case WM_DROPOBJECT:
623 if( wParam == hWnd )
624 { LPDRAGINFO lpDragInfo = (LPDRAGINFO)PTR_SEG_TO_LIN((SEGPTR)lParam);
625 if( lpDragInfo && lpDragInfo->wFlags == DRAGOBJ_DATA && lpDragInfo->hList )
626 { char* pstr = (char*)GlobalLock( (HGLOBAL)(lpDragInfo->hList) );
627 if( pstr )
628 { static char __appendix_str[] = " with";
629
630 hWndCtl = GetDlgItem( hWnd, IDC_WINE_TEXT );
631 SendMessageA( hWndCtl, WM_GETTEXT, 512, (LPARAM)Template );
632 if( !strncmp( Template, "WINE", 4 ) )
633 SetWindowTextA( GetDlgItem(hWnd, IDC_STATIC_TEXT), Template );
634 else
635 { char* pch = Template + strlen(Template) - strlen(__appendix_str);
636 *pch = '\0';
637 SendMessageA( GetDlgItem(hWnd, IDC_LISTBOX), LB_ADDSTRING,
638 (WPARAM)-1, (LPARAM)Template );
639 }
640
641 strcpy( Template, pstr );
642 strcat( Template, __appendix_str );
643 SetWindowTextA( hWndCtl, Template );
644 SetWindowLongA( hWnd, DWL_MSGRESULT, 1 );
645 return TRUE;
646 }
647 }
648 }
649 break;
650#endif
651
652
653 case WM_COMMAND:
654 if (wParam == IDOK)
655 { EndDialog(hWnd, TRUE);
656 return TRUE;
657 }
658 break;
659 case WM_CLOSE:
660 EndDialog(hWnd, TRUE);
661 break;
662 }
663 return 0;
664}
665
666
667/*************************************************************************
668 * ShellAboutA [SHELL32.243]
669 */
670INT WINAPI ShellAboutA( HWND hWnd, LPCSTR szApp, LPCSTR szOtherStuff,
671 HICON hIcon )
672{ ABOUT_INFO info;
673 HRSRC hRes;
674 LPVOID dlgTemplate;
675
676 TRACE_(shell)("\n");
677
678 if(!(hRes = FindResourceA(shell32_hInstance, "SHELL_ABOUT_MSGBOX", RT_DIALOGA)))
679 return FALSE;
680 if(!(dlgTemplate = (LPVOID)LoadResource(shell32_hInstance, hRes)))
681 return FALSE;
682
683 info.szApp = szApp;
684 info.szOtherStuff = szOtherStuff;
685 info.hIcon = hIcon;
686 if (!hIcon) info.hIcon = LoadIconA( 0, (LPCSTR)OIC_WINEICON );
687 return DialogBoxIndirectParamA( GetWindowLongA( hWnd, GWL_HINSTANCE ),
688 (DLGTEMPLATE*)dlgTemplate , hWnd, AboutDlgProc, (LPARAM)&info );
689}
690
691
692/*************************************************************************
693 * ShellAboutW [SHELL32.244]
694 */
695INT WINAPI ShellAboutW( HWND hWnd, LPCWSTR szApp, LPCWSTR szOtherStuff,
696 HICON hIcon )
697{ INT ret;
698 ABOUT_INFO info;
699 HRSRC hRes;
700 LPVOID dlgTemplate;
701
702 TRACE_(shell)("\n");
703
704 if(!(hRes = FindResourceA(shell32_hInstance, "SHELL_ABOUT_MSGBOX", RT_DIALOGA)))
705 return FALSE;
706 if(!(dlgTemplate = (LPVOID)LoadResource(shell32_hInstance, hRes)))
707 return FALSE;
708
709 info.szApp = HEAP_strdupWtoA( GetProcessHeap(), 0, szApp );
710 info.szOtherStuff = HEAP_strdupWtoA( GetProcessHeap(), 0, szOtherStuff );
711 info.hIcon = hIcon;
712 if (!hIcon) info.hIcon = LoadIconA( 0, (LPCSTR)OIC_WINEICON );
713 ret = DialogBoxIndirectParamA( GetWindowLongA( hWnd, GWL_HINSTANCE ),
714 (DLGTEMPLATE*)dlgTemplate, hWnd, AboutDlgProc, (LPARAM)&info );
715 HeapFree( GetProcessHeap(), 0, (LPSTR)info.szApp );
716 HeapFree( GetProcessHeap(), 0, (LPSTR)info.szOtherStuff );
717 return ret;
718}
719
720/*************************************************************************
721 * Shell_NotifyIcon [SHELL32.297]
722 * FIXME
723 * This function is supposed to deal with the systray.
724 * Any ideas on how this is to be implimented?
725 */
726BOOL WINAPI Shell_NotifyIconA(DWORD dwMessage, PNOTIFYICONDATAA pnid )
727{ TRACE_(shell)("\n");
728 return FALSE;
729}
730
731/*************************************************************************
732 * Shell_NotifyIcon [SHELL32.?]
733 * FIXME
734 * This function is supposed to deal with the systray.
735 * Any ideas on how this is to be implimented?
736 */
737BOOL WINAPI Shell_NotifyIconW(DWORD dwMessage, PNOTIFYICONDATAW pnid )
738{ TRACE_(shell)("\n");
739 return FALSE;
740}
741
742
743/*************************************************************************
744 * Shell_NotifyIcon [SHELL32.296]
745 * FIXME
746 * This function is supposed to deal with the systray.
747 * Any ideas on how this is to be implimented?
748 */
749BOOL WINAPI Shell_NotifyIcon( DWORD dwMessage, PNOTIFYICONDATAA pnid )
750{ TRACE_(shell)("\n");
751 if (VERSION_OsIsUnicode())
752 return(Shell_NotifyIconW(dwMessage,(PNOTIFYICONDATAW)pnid));
753 else
754 return(Shell_NotifyIconA(dwMessage,pnid));
755}
756
757/*************************************************************************
758 * FreeIconList
759 */
760void WINAPI FreeIconList( DWORD dw )
761{ FIXME_(shell)("(%lx): stub\n",dw);
762}
763
764/***********************************************************************
765 * DllGetVersion [COMCTL32.25]
766 *
767 * Retrieves version information of the 'SHELL32.DLL'
768 *
769 * PARAMS
770 * pdvi [O] pointer to version information structure.
771 *
772 * RETURNS
773 * Success: S_OK
774 * Failure: E_INVALIDARG
775 *
776 * NOTES
777 * Returns version of a shell32.dll from IE4.01 SP1.
778 */
779
780HRESULT WINAPI SHELL32_DllGetVersion (DLLVERSIONINFO *pdvi)
781{
782 if (pdvi->cbSize != sizeof(DLLVERSIONINFO))
783 { WARN_(shell)("wrong DLLVERSIONINFO size from app");
784 return E_INVALIDARG;
785 }
786
787 pdvi->dwMajorVersion = 4;
788 pdvi->dwMinorVersion = 72;
789 pdvi->dwBuildNumber = 3110;
790 pdvi->dwPlatformID = 1;
791
792 TRACE_(shell)("%lu.%lu.%lu.%lu\n",
793 pdvi->dwMajorVersion, pdvi->dwMinorVersion,
794 pdvi->dwBuildNumber, pdvi->dwPlatformID);
795
796 return S_OK;
797}
798/*************************************************************************
799 * global variables of the shell32.dll
800 * all are once per process
801 *
802 */
803void (WINAPI* pDLLInitComctl)(LPVOID);
804INT (WINAPI* pImageList_AddIcon) (HIMAGELIST himl, HICON hIcon);
805INT (WINAPI* pImageList_ReplaceIcon) (HIMAGELIST, INT, HICON);
806HIMAGELIST (WINAPI * pImageList_Create) (INT,INT,UINT,INT,INT);
807BOOL (WINAPI* pImageList_Draw) (HIMAGELIST himl, int i, HDC hdcDest, int x, int y, UINT fStyle);
808HICON (WINAPI * pImageList_GetIcon) (HIMAGELIST, INT, UINT);
809INT (WINAPI* pImageList_GetImageCount)(HIMAGELIST);
810COLORREF (WINAPI *pImageList_SetBkColor)(HIMAGELIST, COLORREF);
811
812LPVOID (WINAPI* pCOMCTL32_Alloc) (INT);
813BOOL (WINAPI* pCOMCTL32_Free) (LPVOID);
814
815HDPA (WINAPI* pDPA_Create) (INT);
816INT (WINAPI* pDPA_InsertPtr) (const HDPA, INT, LPVOID);
817BOOL (WINAPI* pDPA_Sort) (const HDPA, PFNDPACOMPARE, LPARAM);
818LPVOID (WINAPI* pDPA_GetPtr) (const HDPA, INT);
819BOOL (WINAPI* pDPA_Destroy) (const HDPA);
820INT (WINAPI *pDPA_Search) (const HDPA, LPVOID, INT, PFNDPACOMPARE, LPARAM, UINT);
821LPVOID (WINAPI *pDPA_DeletePtr) (const HDPA hdpa, INT i);
822
823/* user32 */
824HICON (WINAPI *pLookupIconIdFromDirectoryEx)(LPBYTE dir, BOOL bIcon, INT width, INT height, UINT cFlag);
825HICON (WINAPI *pCreateIconFromResourceEx)(LPBYTE bits,UINT cbSize, BOOL bIcon, DWORD dwVersion, INT width, INT height,UINT cFlag);
826
827/* ole2 */
828HRESULT (WINAPI* pOleInitialize)(LPVOID reserved);
829void (WINAPI* pOleUninitialize)(void);
830HRESULT (WINAPI* pDoDragDrop)(IDataObject* pDataObject, IDropSource * pDropSource, DWORD dwOKEffect, DWORD *pdwEffect);
831HRESULT (WINAPI* pRegisterDragDrop)(HWND hwnd, IDropTarget* pDropTarget);
832HRESULT (WINAPI* pRevokeDragDrop)(HWND hwnd);
833
834static HINSTANCE hComctl32;
835static HINSTANCE hOle32;
836static INT shell32_RefCount = 0;
837
838INT shell32_ObjCount = 0;
839HINSTANCE shell32_hInstance = 0;
840HIMAGELIST ShellSmallIconList = 0;
841HIMAGELIST ShellBigIconList = 0;
842
843/*************************************************************************
844 * SHELL32 LibMain
845 *
846 * NOTES
847 * calling oleinitialize here breaks sone apps.
848 */
849
850static void Shell32ProcLoadHelper(LPVOID* pAddr,
851 HANDLE hModule,
852 LPCSTR lpstrName)
853{
854 *pAddr = (void*)GetProcAddress(hModule,lpstrName);
855}
856
857
858BOOL WINAPI Shell32LibMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID fImpLoad)
859{
860 HMODULE hUser32;
861
862 TRACE_(shell)("0x%x 0x%lx %p\n", hinstDLL, fdwReason, fImpLoad);
863
864 switch (fdwReason)
865 {
866 case DLL_PROCESS_ATTACH:
867 shell32_RefCount++;
868 if (shell32_hInstance)
869 {
870 ERR_(shell)("shell32.dll instantiated twice in one address space!\n");
871 }
872
873 shell32_hInstance = hinstDLL;
874
875 hComctl32 = LoadLibraryA("COMCTL32.DLL");
876 hOle32 = LoadLibraryA("OLE32.DLL");
877 hUser32 = GetModuleHandleA("USER32");
878
879 if (!hComctl32 || !hUser32 || !hOle32)
880 {
881 ERR_(shell)("P A N I C SHELL32 loading failed\n");
882 return FALSE;
883 }
884
885 /* comctl32 */
886 Shell32ProcLoadHelper((LPVOID*)&pDLLInitComctl,hComctl32,"InitCommonControlsEx");
887 Shell32ProcLoadHelper((LPVOID*)&pImageList_Create,hComctl32,"ImageList_Create");
888 Shell32ProcLoadHelper((LPVOID*)&pImageList_AddIcon,hComctl32,"ImageList_AddIcon");
889 Shell32ProcLoadHelper((LPVOID*)&pImageList_ReplaceIcon,hComctl32,"ImageList_ReplaceIcon");
890 Shell32ProcLoadHelper((LPVOID*)&pImageList_GetIcon,hComctl32,"ImageList_GetIcon");
891 Shell32ProcLoadHelper((LPVOID*)&pImageList_GetImageCount,hComctl32,"ImageList_GetImageCount");
892 Shell32ProcLoadHelper((LPVOID*)&pImageList_Draw,hComctl32,"ImageList_Draw");
893 Shell32ProcLoadHelper((LPVOID*)&pImageList_SetBkColor,hComctl32,"ImageList_SetBkColor");
894 Shell32ProcLoadHelper((LPVOID*)&pCOMCTL32_Alloc,hComctl32, (LPCSTR)71L);
895 Shell32ProcLoadHelper((LPVOID*)&pCOMCTL32_Free,hComctl32, (LPCSTR)73L);
896 Shell32ProcLoadHelper((LPVOID*)&pDPA_Create,hComctl32, (LPCSTR)328L);
897 Shell32ProcLoadHelper((LPVOID*)&pDPA_Destroy,hComctl32, (LPCSTR)329L);
898 Shell32ProcLoadHelper((LPVOID*)&pDPA_GetPtr,hComctl32, (LPCSTR)332L);
899 Shell32ProcLoadHelper((LPVOID*)&pDPA_InsertPtr,hComctl32, (LPCSTR)334L);
900 Shell32ProcLoadHelper((LPVOID*)&pDPA_DeletePtr,hComctl32, (LPCSTR)336L);
901 Shell32ProcLoadHelper((LPVOID*)&pDPA_Sort,hComctl32, (LPCSTR)338L);
902 Shell32ProcLoadHelper((LPVOID*)&pDPA_Search,hComctl32, (LPCSTR)339L);
903 /* user32 */
904 Shell32ProcLoadHelper((LPVOID*)&pLookupIconIdFromDirectoryEx,hUser32,"LookupIconIdFromDirectoryEx");
905 Shell32ProcLoadHelper((LPVOID*)&pCreateIconFromResourceEx,hUser32,"CreateIconFromResourceEx");
906 /* ole2 */
907 Shell32ProcLoadHelper((LPVOID*)&pOleInitialize,hOle32,"OleInitialize");
908 Shell32ProcLoadHelper((LPVOID*)&pOleUninitialize,hOle32,"OleUninitialize");
909 Shell32ProcLoadHelper((LPVOID*)&pDoDragDrop,hOle32,"DoDragDrop");
910 Shell32ProcLoadHelper((LPVOID*)&pRegisterDragDrop,hOle32,"RegisterDragDrop");
911 Shell32ProcLoadHelper((LPVOID*)&pRevokeDragDrop,hOle32,"RevokeDragDrop");
912
913 /* initialize the common controls */
914 if (pDLLInitComctl)
915 {
916 pDLLInitComctl(NULL);
917 }
918
919 SIC_Initialize();
920
921 break;
922
923 case DLL_THREAD_ATTACH:
924 shell32_RefCount++;
925 break;
926
927 case DLL_THREAD_DETACH:
928 shell32_RefCount--;
929 break;
930
931 case DLL_PROCESS_DETACH:
932 shell32_RefCount--;
933
934 pOleUninitialize();
935 FreeLibrary(hOle32);
936 FreeLibrary(hComctl32);
937
938 if ( !shell32_RefCount )
939 {
940 shell32_hInstance = 0;
941
942 if (pdesktopfolder)
943 {
944 IShellFolder_Release(pdesktopfolder);
945 pdesktopfolder = NULL;
946 }
947
948 SIC_Destroy();
949
950 /* this one is here to check if AddRef/Release is balanced */
951 if (shell32_ObjCount)
952 {
953 WARN_(shell)("leaving with %u objects left (memory leak)\n", shell32_ObjCount);
954 }
955 }
956 TRACE_(shell)("refcount=%u objcount=%u \n", shell32_RefCount, shell32_ObjCount);
957 break;
958 }
959 return TRUE;
960}
Note: See TracBrowser for help on using the repository browser.