source: trunk/src/shell32/shell32_main.c@ 21494

Last change on this file since 21494 was 21494, checked in by dmik, 15 years ago

Fixed broken build after r21492 by sorting out a huuuuge wagon of duplicates, wrong include order and other dirty mess.
File size: 30.1 KB
Line 
1/* $Id: shell32_main.c,v 1.9 2003-10-16 10:30:54 sandervl Exp $ */
2/*
3 * Shell basics
4 *
5 * 1998 Marcus Meissner
6 * 1998 Juergen Schmied (jsch) * <juergen.schmied@metronet.de>
7 */
8#ifdef __WIN32OS2__
9#define CINTERFACE
10#include <odin.h>
11#endif
12
13#include <stdlib.h>
14#include <string.h>
15#include <stdio.h>
16
17#include "windef.h"
18#include "wingdi.h"
19#include "wine/winuser16.h"
20#include "winerror.h"
21#include "heap.h"
22#include "dlgs.h"
23#include "ldt.h"
24#include "debugtools.h"
25#include "winreg.h"
26#include "authors.h"
27
28#include "shellapi.h"
29#include "pidl.h"
30
31#include "shell32_main.h"
32#include "undocshell.h"
33#include "shlobj.h"
34#include "shlguid.h"
35#include "shlwapi.h"
36
37#ifdef __WIN32OS2__
38#include <heapstring.h>
39#include <misc.h>
40#endif
41
42DEFAULT_DEBUG_CHANNEL(shell);
43
44#define MORE_DEBUG 1
45/*************************************************************************
46 * CommandLineToArgvW [SHELL32.7]
47 */
48/*************************************************************************
49 * CommandLineToArgvW[SHELL32.@]
50 *
51 * NOTE: The procedure is moved to KERNEL32.DLL (wprocess.cpp) and is now simply
52 * re-exported from SHELL32.DLL by importing it from there.
53 */
54
55/*************************************************************************
56 * SHGetFileInfoA [SHELL32.@]
57 *
58 */
59
60DWORD WINAPI SHGetFileInfoA(LPCSTR path,DWORD dwFileAttributes,
61 SHFILEINFOA *psfi, UINT sizeofpsfi,
62 UINT flags )
63{
64 char szLoaction[MAX_PATH];
65 int iIndex;
66 DWORD ret = TRUE, dwAttributes = 0;
67 IShellFolder * psfParent = NULL;
68 IExtractIconA * pei = NULL;
69 LPITEMIDLIST pidlLast = NULL, pidl = NULL;
70 HRESULT hr = S_OK;
71 BOOL IconNotYetLoaded=TRUE;
72
73 TRACE("(%s fattr=0x%lx sfi=%p(attr=0x%08lx) size=0x%x flags=0x%x)\n",
74 (flags & SHGFI_PIDL)? "pidl" : path, dwFileAttributes, psfi, psfi->dwAttributes, sizeofpsfi, flags);
75
76 if ((flags & SHGFI_USEFILEATTRIBUTES) && (flags & (SHGFI_ATTRIBUTES|SHGFI_EXETYPE|SHGFI_PIDL)))
77 return FALSE;
78
79 /* windows initializes this values regardless of the flags */
80 psfi->szDisplayName[0] = '\0';
81 psfi->szTypeName[0] = '\0';
82 psfi->iIcon = 0;
83
84 if (flags & SHGFI_EXETYPE) {
85 BOOL status = FALSE;
86 HANDLE hfile;
87 DWORD BinaryType;
88 IMAGE_DOS_HEADER mz_header;
89 IMAGE_NT_HEADERS nt;
90 DWORD len;
91 char magic[4];
92
93 if (flags != SHGFI_EXETYPE) return 0;
94
95 status = GetBinaryTypeA (path, &BinaryType);
96 if (!status) return 0;
97 if ((BinaryType == SCS_DOS_BINARY)
98 || (BinaryType == SCS_PIF_BINARY)) return 0x4d5a;
99
100 hfile = CreateFileA( path, GENERIC_READ, FILE_SHARE_READ,
101 NULL, OPEN_EXISTING, 0, 0 );
102 if ( hfile == INVALID_HANDLE_VALUE ) return 0;
103
104 /* The next section is adapted from MODULE_GetBinaryType, as we need
105 * to examine the image header to get OS and version information. We
106 * know from calling GetBinaryTypeA that the image is valid and either
107 * an NE or PE, so much error handling can be omitted.
108 * Seek to the start of the file and read the header information.
109 */
110
111 SetFilePointer( hfile, 0, NULL, SEEK_SET );
112 ReadFile( hfile, &mz_header, sizeof(mz_header), &len, NULL );
113
114 SetFilePointer( hfile, mz_header.e_lfanew, NULL, SEEK_SET );
115 ReadFile( hfile, magic, sizeof(magic), &len, NULL );
116 if ( *(DWORD*)magic == IMAGE_NT_SIGNATURE )
117 {
118 SetFilePointer( hfile, mz_header.e_lfanew, NULL, SEEK_SET );
119 ReadFile( hfile, &nt, sizeof(nt), &len, NULL );
120 CloseHandle( hfile );
121 if (nt.OptionalHeader.Subsystem == IMAGE_SUBSYSTEM_WINDOWS_GUI) {
122 return IMAGE_NT_SIGNATURE
123 | (nt.OptionalHeader.MajorSubsystemVersion << 24)
124 | (nt.OptionalHeader.MinorSubsystemVersion << 16);
125 }
126 return IMAGE_NT_SIGNATURE;
127 }
128 else if ( *(WORD*)magic == IMAGE_OS2_SIGNATURE )
129 {
130 IMAGE_OS2_HEADER ne;
131 SetFilePointer( hfile, mz_header.e_lfanew, NULL, SEEK_SET );
132 ReadFile( hfile, &ne, sizeof(ne), &len, NULL );
133 CloseHandle( hfile );
134 if (ne.ne_exetyp == 2) return IMAGE_OS2_SIGNATURE
135 | (ne.ne_expver << 16);
136 return 0;
137 }
138 CloseHandle( hfile );
139 return 0;
140 }
141
142
143 /* translate the path into a pidl only when SHGFI_USEFILEATTRIBUTES in not specified
144 the pidl functions fail on not existing file names */
145 if (flags & SHGFI_PIDL)
146 {
147 pidl = (LPCITEMIDLIST) path;
148 if (!pidl )
149 {
150 ERR("pidl is null!\n");
151 return FALSE;
152 }
153 }
154 else if (!(flags & SHGFI_USEFILEATTRIBUTES))
155 {
156 hr = SHILCreateFromPathA ( path, &pidl, &dwAttributes);
157 /* note: the attributes in ISF::ParseDisplayName are not implemented */
158 }
159
160 /* get the parent shellfolder */
161 if (pidl)
162 {
163 hr = SHBindToParent( pidl, &IID_IShellFolder, (LPVOID*)&psfParent, &pidlLast);
164 }
165
166 /* get the attributes of the child */
167 if (SUCCEEDED(hr) && (flags & SHGFI_ATTRIBUTES))
168 {
169 if (!(flags & SHGFI_ATTR_SPECIFIED))
170 {
171 psfi->dwAttributes = 0xffffffff;
172 }
173 IShellFolder_GetAttributesOf(psfParent, 1 , &pidlLast, &(psfi->dwAttributes));
174 }
175
176 /* get the displayname */
177 if (SUCCEEDED(hr) && (flags & SHGFI_DISPLAYNAME))
178 {
179 if (flags & SHGFI_USEFILEATTRIBUTES)
180 {
181 strcpy (psfi->szDisplayName, PathFindFileNameA(path));
182 }
183 else
184 {
185 STRRET str;
186 hr = IShellFolder_GetDisplayNameOf(psfParent, pidlLast, SHGDN_INFOLDER, &str);
187 StrRetToStrNA (psfi->szDisplayName, MAX_PATH, &str, pidlLast);
188 }
189 }
190
191 /* get the type name */
192 if (SUCCEEDED(hr) && (flags & SHGFI_TYPENAME))
193 {
194 if (!(flags & SHGFI_USEFILEATTRIBUTES))
195 _ILGetFileType(pidlLast, psfi->szTypeName, 80);
196 else
197 {
198 char sTemp[64];
199 strcpy(sTemp,PathFindExtensionA(path));
200 if (!( HCR_MapTypeToValue(sTemp, sTemp, 64, TRUE)
201 && HCR_MapTypeToValue(sTemp, psfi->szTypeName, 80, FALSE )))
202 {
203 lstrcpynA (psfi->szTypeName, sTemp, 80 - 6);
204 strcat (psfi->szTypeName, "-file");
205 }
206 }
207 }
208
209 /* ### icons ###*/
210 if (flags & SHGFI_LINKOVERLAY)
211 FIXME("set icon to link, stub\n");
212
213 if (flags & SHGFI_SELECTED)
214 FIXME("set icon to selected, stub\n");
215
216 if (flags & SHGFI_SHELLICONSIZE)
217 FIXME("set icon to shell size, stub\n");
218
219 /* get the iconlocation */
220 if (SUCCEEDED(hr) && (flags & SHGFI_ICONLOCATION ))
221 {
222 UINT uDummy,uFlags;
223 hr = IShellFolder_GetUIObjectOf(psfParent, 0, 1, &pidlLast, &IID_IExtractIconA, &uDummy, (LPVOID*)&pei);
224
225 if (SUCCEEDED(hr))
226 {
227 hr = IExtractIconA_GetIconLocation(pei, (flags & SHGFI_OPENICON)? GIL_OPENICON : 0,szLoaction, MAX_PATH, &iIndex, &uFlags);
228 /* FIXME what to do with the index? */
229
230 if(uFlags != GIL_NOTFILENAME)
231 strcpy (psfi->szDisplayName, szLoaction);
232 else
233 ret = FALSE;
234
235 IExtractIconA_Release(pei);
236 }
237 }
238
239 /* get icon index (or load icon)*/
240 if (SUCCEEDED(hr) && (flags & (SHGFI_ICON | SHGFI_SYSICONINDEX)))
241 {
242
243 if (flags & SHGFI_USEFILEATTRIBUTES)
244 {
245 char sTemp [MAX_PATH];
246 char * szExt;
247 DWORD dwNr=0;
248
249 lstrcpynA(sTemp, path, MAX_PATH);
250 szExt = (LPSTR) PathFindExtensionA(sTemp);
251 if( szExt && HCR_MapTypeToValue(szExt, sTemp, MAX_PATH, TRUE)
252 && HCR_GetDefaultIcon(sTemp, sTemp, MAX_PATH, &dwNr))
253 {
254 if (!strcmp("%1",sTemp)) /* icon is in the file */
255 {
256 strcpy(sTemp, path);
257 }
258 IconNotYetLoaded=FALSE;
259 psfi->iIcon = 0;
260 if (SHGFI_LARGEICON)
261 PrivateExtractIconsA(sTemp,dwNr,GetSystemMetrics(SM_CXICON),
262 GetSystemMetrics(SM_CYICON),
263 &psfi->hIcon,0,1,0);
264 else
265 PrivateExtractIconsA(sTemp,dwNr,GetSystemMetrics(SM_CXSMICON),
266 GetSystemMetrics(SM_CYSMICON),
267 &psfi->hIcon,0,1,0);
268 }
269 else /* default icon */
270 {
271 psfi->iIcon = 0;
272 }
273 }
274 else
275 {
276 if (!(PidlToSicIndex(psfParent, pidlLast, (flags & SHGFI_LARGEICON),
277 (flags & SHGFI_OPENICON)? GIL_OPENICON : 0, &(psfi->iIcon))))
278 {
279 ret = FALSE;
280 }
281 }
282 if (ret)
283 {
284 ret = (DWORD) ((flags & SHGFI_LARGEICON) ? ShellBigIconList : ShellSmallIconList);
285 }
286 }
287
288 /* icon handle */
289 if (SUCCEEDED(hr) && (flags & SHGFI_ICON) && IconNotYetLoaded)
290 psfi->hIcon = ImageList_GetIcon((flags & SHGFI_LARGEICON) ? ShellBigIconList:ShellSmallIconList, psfi->iIcon, ILD_NORMAL);
291
292 if (flags & (SHGFI_UNKNOWN1 | SHGFI_UNKNOWN2 | SHGFI_UNKNOWN3))
293 FIXME("unknown attribute!\n");
294
295 if (psfParent)
296 IShellFolder_Release(psfParent);
297
298 if (hr != S_OK)
299 ret = FALSE;
300
301 if(pidlLast) SHFree(pidlLast);
302#ifdef MORE_DEBUG
303 TRACE ("icon=0x%08x index=0x%08x attr=0x%08lx name=%s type=%s ret=0x%08lx\n",
304 psfi->hIcon, psfi->iIcon, psfi->dwAttributes, psfi->szDisplayName, psfi->szTypeName, ret);
305#endif
306 return ret;
307}
308
309/*************************************************************************
310 * SHGetFileInfoW [SHELL32.@]
311 */
312
313DWORD WINAPI SHGetFileInfoW(LPCWSTR path,DWORD dwFileAttributes,
314 SHFILEINFOW *psfi, UINT sizeofpsfi,
315 UINT flags )
316{
317 INT len;
318 LPSTR temppath;
319 DWORD ret;
320 SHFILEINFOA temppsfi;
321
322 len = WideCharToMultiByte(CP_ACP, 0, path, -1, NULL, 0, NULL, NULL);
323 temppath = HeapAlloc(GetProcessHeap(), 0, len);
324 WideCharToMultiByte(CP_ACP, 0, path, -1, temppath, len, NULL, NULL);
325
326 WideCharToMultiByte(CP_ACP, 0, psfi->szDisplayName, -1, temppsfi.szDisplayName,
327 sizeof(temppsfi.szDisplayName), NULL, NULL);
328 WideCharToMultiByte(CP_ACP, 0, psfi->szTypeName, -1, temppsfi.szTypeName,
329 sizeof(temppsfi.szTypeName), NULL, NULL);
330
331 ret = SHGetFileInfoA(temppath, dwFileAttributes, &temppsfi, sizeof(temppsfi), flags);
332
333 HeapFree(GetProcessHeap(), 0, temppath);
334
335 return ret;
336}
337
338/*************************************************************************
339 * SHGetFileInfo [SHELL32.@]
340 */
341DWORD WINAPI SHGetFileInfoAW(
342 LPCVOID path,
343 DWORD dwFileAttributes,
344 LPVOID psfi,
345 UINT sizeofpsfi,
346 UINT flags)
347{
348 if(SHELL_OsIsUnicode())
349 return SHGetFileInfoW(path, dwFileAttributes, psfi, sizeofpsfi, flags );
350 return SHGetFileInfoA(path, dwFileAttributes, psfi, sizeofpsfi, flags );
351}
352
353/*************************************************************************
354 * DuplicateIcon [SHELL32.188]
355 */
356HICON WINAPI DuplicateIcon( HINSTANCE hInstance, HICON hIcon)
357{
358 ICONINFO IconInfo;
359 HICON hDupIcon = 0;
360
361 TRACE("(%04x, %04x)\n", hInstance, hIcon);
362
363 if(GetIconInfo(hIcon, &IconInfo))
364 {
365 hDupIcon = CreateIconIndirect(&IconInfo);
366
367 /* clean up hbmMask and hbmColor */
368 DeleteObject(IconInfo.hbmMask);
369 DeleteObject(IconInfo.hbmColor);
370 }
371
372 return hDupIcon;
373}
374
375
376/*************************************************************************
377 * ExtractIconA [SHELL32.133]
378 *
379 * fixme
380 * is the filename is not a file return 1
381 */
382#ifdef __WIN32OS2__
383HICON WINAPI ExtractIconA( HINSTANCE hInstance, LPCSTR lpszExeFileName,
384 UINT nIconIndex )
385{
386 HGLOBAL handle = InternalExtractIcon(hInstance,lpszExeFileName,nIconIndex, 1);
387 TRACE_(shell)("\n");
388 if( handle )
389 {
390 HICON* ptr = (HICON*)GlobalLock(handle);
391 HICON hIcon = *ptr;
392
393 GlobalFree(handle);
394 return hIcon;
395 }
396 return 0;
397}
398#else
399HICON WINAPI ExtractIconA( HINSTANCE hInstance, LPCSTR lpszExeFileName,
400 UINT nIconIndex )
401{ HGLOBAL16 handle = InternalExtractIcon16(hInstance,lpszExeFileName,nIconIndex, 1);
402 TRACE("\n");
403 if( handle )
404 {
405 HICON16* ptr = (HICON16*)GlobalLock16(handle);
406 HICON16 hIcon = *ptr;
407
408 GlobalFree16(handle);
409 return hIcon;
410 }
411 return 0;
412}
413#endif
414
415/*************************************************************************
416 * ExtractIconW [SHELL32.180]
417 *
418 * fixme
419 * is the filename is not a file return 1
420 */
421HICON WINAPI ExtractIconW( HINSTANCE hInstance, LPCWSTR lpszExeFileName,
422 UINT nIconIndex )
423{ LPSTR exefn;
424 HICON ret;
425 TRACE("\n");
426
427 exefn = HEAP_strdupWtoA(GetProcessHeap(),0,lpszExeFileName);
428 ret = ExtractIconA(hInstance,exefn,nIconIndex);
429
430 HeapFree(GetProcessHeap(),0,exefn);
431 return ret;
432}
433
434/*************************************************************************
435 * FindExecutableA [SHELL32.184]
436 */
437HINSTANCE WINAPI FindExecutableA( LPCSTR lpFile, LPCSTR lpDirectory,
438 LPSTR lpResult )
439{ HINSTANCE retval=31; /* default - 'No association was found' */
440 char old_dir[1024];
441
442 TRACE("File %s, Dir %s\n",
443 (lpFile != NULL?lpFile:"-"),
444 (lpDirectory != NULL?lpDirectory:"-"));
445
446 lpResult[0]='\0'; /* Start off with an empty return string */
447
448 /* trap NULL parameters on entry */
449 if (( lpFile == NULL ) || ( lpResult == NULL ))
450 { /* FIXME - should throw a warning, perhaps! */
451 return 2; /* File not found. Close enough, I guess. */
452 }
453
454 if (lpDirectory)
455 { GetCurrentDirectoryA( sizeof(old_dir), old_dir );
456 SetCurrentDirectoryA( lpDirectory );
457 }
458
459 retval = SHELL_FindExecutable( lpFile, "open", lpResult );
460
461 TRACE("returning %s\n", lpResult);
462 if (lpDirectory)
463 SetCurrentDirectoryA( old_dir );
464 return retval;
465}
466
467/*************************************************************************
468 * FindExecutableW [SHELL32.219]
469 */
470HINSTANCE WINAPI FindExecutableW(LPCWSTR lpFile, LPCWSTR lpDirectory,
471 LPWSTR lpResult)
472{
473 FIXME("(%p,%p,%p): stub\n", lpFile, lpDirectory, lpResult);
474 return 31; /* default - 'No association was found' */
475}
476
477typedef struct
478{ LPCSTR szApp;
479 LPCSTR szOtherStuff;
480 HICON hIcon;
481} ABOUT_INFO;
482
483#define IDC_STATIC_TEXT 100
484#define IDC_LISTBOX 99
485#define IDC_WINE_TEXT 98
486
487#define DROP_FIELD_TOP (-15)
488#define DROP_FIELD_HEIGHT 15
489
490extern HICON hIconTitleFont;
491
492static BOOL __get_dropline( HWND hWnd, LPRECT lprect )
493{ HWND hWndCtl = GetDlgItem(hWnd, IDC_WINE_TEXT);
494 if( hWndCtl )
495 { GetWindowRect( hWndCtl, lprect );
496 MapWindowPoints( 0, hWnd, (LPPOINT)lprect, 2 );
497 lprect->bottom = (lprect->top += DROP_FIELD_TOP);
498 return TRUE;
499 }
500 return FALSE;
501}
502
503/*************************************************************************
504 * SHAppBarMessage [SHELL32.207]
505 */
506UINT WINAPI SHAppBarMessage(DWORD msg, PAPPBARDATA data)
507{
508 int width=data->rc.right - data->rc.left;
509 int height=data->rc.bottom - data->rc.top;
510 RECT rec=data->rc;
511 switch (msg)
512 { case ABM_GETSTATE:
513 return ABS_ALWAYSONTOP | ABS_AUTOHIDE;
514 case ABM_GETTASKBARPOS:
515 GetWindowRect(data->hWnd, &rec);
516 data->rc=rec;
517 return TRUE;
518 case ABM_ACTIVATE:
519 SetActiveWindow(data->hWnd);
520 return TRUE;
521 case ABM_GETAUTOHIDEBAR:
522 data->hWnd=GetActiveWindow();
523 return TRUE;
524 case ABM_NEW:
525 SetWindowPos(data->hWnd,HWND_TOP,rec.left,rec.top,
526 width,height,SWP_SHOWWINDOW);
527 return TRUE;
528 case ABM_QUERYPOS:
529 GetWindowRect(data->hWnd, &(data->rc));
530 return TRUE;
531 case ABM_REMOVE:
532 FIXME("ABM_REMOVE broken\n");
533 /* FIXME: this is wrong; should it be DestroyWindow instead? */
534 /*CloseHandle(data->hWnd);*/
535 return TRUE;
536 case ABM_SETAUTOHIDEBAR:
537 SetWindowPos(data->hWnd,HWND_TOP,rec.left+1000,rec.top,
538 width,height,SWP_SHOWWINDOW);
539 return TRUE;
540 case ABM_SETPOS:
541 data->uEdge=(ABE_RIGHT | ABE_LEFT);
542 SetWindowPos(data->hWnd,HWND_TOP,data->rc.left,data->rc.top,
543 width,height,SWP_SHOWWINDOW);
544 return TRUE;
545 case ABM_WINDOWPOSCHANGED:
546 SetWindowPos(data->hWnd,HWND_TOP,rec.left,rec.top,
547 width,height,SWP_SHOWWINDOW);
548 return TRUE;
549 }
550 return FALSE;
551}
552
553/*************************************************************************
554 * SHHelpShortcuts_RunDLL [SHELL32.224]
555 *
556 */
557DWORD WINAPI SHHelpShortcuts_RunDLL (DWORD dwArg1, DWORD dwArg2, DWORD dwArg3, DWORD dwArg4)
558{ FIXME("(%lx, %lx, %lx, %lx) empty stub!\n",
559 dwArg1, dwArg2, dwArg3, dwArg4);
560
561 return 0;
562}
563
564/*************************************************************************
565 * SHLoadInProc [SHELL32.225]
566 * Create an instance of specified object class from within
567 * the shell process and release it immediately
568 */
569
570DWORD WINAPI SHLoadInProc (REFCLSID rclsid)
571{
572 IUnknown * pUnk = NULL;
573 TRACE("%s\n", debugstr_guid(rclsid));
574
575 CoCreateInstance(rclsid, NULL, CLSCTX_INPROC_SERVER, &IID_IUnknown,(LPVOID*)pUnk);
576 if(pUnk)
577 {
578 IUnknown_Release(pUnk);
579 return NOERROR;
580 }
581 return DISP_E_MEMBERNOTFOUND;
582}
583
584//replacement in shell32_odin.cpp
585#ifndef __WIN32OS2__
586/*************************************************************************
587 * ShellExecuteA [SHELL32.245]
588 */
589HINSTANCE WINAPI ShellExecuteA( HWND hWnd, LPCSTR lpOperation,
590 LPCSTR lpFile, LPCSTR lpParameters,
591 LPCSTR lpDirectory, INT iShowCmd )
592{ TRACE("\n");
593 return ShellExecute16( hWnd, lpOperation, lpFile, lpParameters,
594 lpDirectory, iShowCmd );
595}
596#endif
597
598/*************************************************************************
599 * ShellExecuteW [SHELL32.294]
600 * from shellapi.h
601 * WINSHELLAPI HINSTANCE APIENTRY ShellExecuteW(HWND hwnd, LPCWSTR lpOperation,
602 * LPCWSTR lpFile, LPCWSTR lpParameters, LPCWSTR lpDirectory, INT nShowCmd);
603 */
604HINSTANCE WINAPI
605ShellExecuteW(
606 HWND hwnd,
607 LPCWSTR lpOperation,
608 LPCWSTR lpFile,
609 LPCWSTR lpParameters,
610 LPCWSTR lpDirectory,
611 INT nShowCmd) {
612
613 FIXME(": stub\n");
614 return 0;
615}
616
617//replacement in shell32_odin.cpp
618#ifndef __WIN32OS2__
619/*************************************************************************
620 * AboutDlgProc (internal)
621 */
622BOOL WINAPI AboutDlgProc( HWND hWnd, UINT msg, WPARAM wParam,
623 LPARAM lParam )
624{ HWND hWndCtl;
625 char Template[512], AppTitle[512];
626
627 TRACE("\n");
628
629 switch(msg)
630 { case WM_INITDIALOG:
631 { ABOUT_INFO *info = (ABOUT_INFO *)lParam;
632 if (info)
633 { const char* const *pstr = SHELL_People;
634 SendDlgItemMessageA(hWnd, stc1, STM_SETICON,info->hIcon, 0);
635 GetWindowTextA( hWnd, Template, sizeof(Template) );
636 sprintf( AppTitle, Template, info->szApp );
637 SetWindowTextA( hWnd, AppTitle );
638 SetWindowTextA( GetDlgItem(hWnd, IDC_STATIC_TEXT),
639 info->szOtherStuff );
640 hWndCtl = GetDlgItem(hWnd, IDC_LISTBOX);
641 SendMessageA( hWndCtl, WM_SETREDRAW, 0, 0 );
642 if (!hIconTitleFont)
643 {
644 LOGFONTA logFont;
645 SystemParametersInfoA( SPI_GETICONTITLELOGFONT, 0, &logFont, 0 );
646 hIconTitleFont = CreateFontIndirectA( &logFont );
647 }
648 SendMessageA( hWndCtl, WM_SETFONT, hIconTitleFont, 0 );
649 while (*pstr)
650 { SendMessageA( hWndCtl, LB_ADDSTRING, (WPARAM)-1, (LPARAM)*pstr );
651 pstr++;
652 }
653 SendMessageA( hWndCtl, WM_SETREDRAW, 1, 0 );
654 }
655 }
656 return 1;
657
658 case WM_PAINT:
659 { RECT rect;
660 PAINTSTRUCT ps;
661 HDC hDC = BeginPaint( hWnd, &ps );
662
663 if( __get_dropline( hWnd, &rect ) ) {
664 SelectObject( hDC, GetStockObject( BLACK_PEN ) );
665 MoveToEx( hDC, rect.left, rect.top, NULL );
666 LineTo( hDC, rect.right, rect.bottom );
667 }
668 EndPaint( hWnd, &ps );
669 }
670 break;
671
672 case WM_LBTRACKPOINT:
673 hWndCtl = GetDlgItem(hWnd, IDC_LISTBOX);
674 if( (INT16)GetKeyState( VK_CONTROL ) < 0 )
675 { if( DragDetect( hWndCtl, *((LPPOINT)&lParam) ) )
676 { INT idx = SendMessageA( hWndCtl, LB_GETCURSEL, 0, 0 );
677 if( idx != -1 )
678 { INT length = SendMessageA( hWndCtl, LB_GETTEXTLEN, (WPARAM)idx, 0 );
679 HGLOBAL16 hMemObj = GlobalAlloc16( GMEM_MOVEABLE, length + 1 );
680 char* pstr = (char*)GlobalLock16( hMemObj );
681
682 if( pstr )
683 { HCURSOR hCursor = LoadCursorA( 0, MAKEINTRESOURCEA(OCR_DRAGOBJECT) );
684 SendMessageA( hWndCtl, LB_GETTEXT, (WPARAM)idx, (LPARAM)pstr );
685 SendMessageA( hWndCtl, LB_DELETESTRING, (WPARAM)idx, 0 );
686 UpdateWindow( hWndCtl );
687 if( !DragObject16((HWND16)hWnd, (HWND16)hWnd, DRAGOBJ_DATA, 0, (WORD)hMemObj, hCursor) )
688 SendMessageA( hWndCtl, LB_ADDSTRING, (WPARAM)-1, (LPARAM)pstr );
689 }
690 if( hMemObj )
691 GlobalFree16( hMemObj );
692 }
693 }
694 }
695 break;
696
697 case WM_QUERYDROPOBJECT:
698 if( wParam == 0 )
699 { LPDRAGINFO lpDragInfo = (LPDRAGINFO)PTR_SEG_TO_LIN((SEGPTR)lParam);
700 if( lpDragInfo && lpDragInfo->wFlags == DRAGOBJ_DATA )
701 { RECT rect;
702 if( __get_dropline( hWnd, &rect ) )
703 { POINT pt;
704 pt.x=lpDragInfo->pt.x;
705 pt.x=lpDragInfo->pt.y;
706 rect.bottom += DROP_FIELD_HEIGHT;
707 if( PtInRect( &rect, pt ) )
708 { SetWindowLongA( hWnd, DWL_MSGRESULT, 1 );
709 return TRUE;
710 }
711 }
712 }
713 }
714 break;
715
716 case WM_DROPOBJECT:
717 if( wParam == hWnd )
718 { LPDRAGINFO lpDragInfo = (LPDRAGINFO)PTR_SEG_TO_LIN((SEGPTR)lParam);
719 if( lpDragInfo && lpDragInfo->wFlags == DRAGOBJ_DATA && lpDragInfo->hList )
720 { char* pstr = (char*)GlobalLock16( (HGLOBAL16)(lpDragInfo->hList) );
721 if( pstr )
722 { static char __appendix_str[] = " with";
723
724 hWndCtl = GetDlgItem( hWnd, IDC_WINE_TEXT );
725 SendMessageA( hWndCtl, WM_GETTEXT, 512, (LPARAM)Template );
726 if( !strncmp( Template, "WINE", 4 ) )
727 SetWindowTextA( GetDlgItem(hWnd, IDC_STATIC_TEXT), Template );
728 else
729 { char* pch = Template + strlen(Template) - strlen(__appendix_str);
730 *pch = '\0';
731 SendMessageA( GetDlgItem(hWnd, IDC_LISTBOX), LB_ADDSTRING,
732 (WPARAM)-1, (LPARAM)Template );
733 }
734
735 strcpy( Template, pstr );
736 strcat( Template, __appendix_str );
737 SetWindowTextA( hWndCtl, Template );
738 SetWindowLongA( hWnd, DWL_MSGRESULT, 1 );
739 return TRUE;
740 }
741 }
742 }
743 break;
744
745 case WM_COMMAND:
746 if (wParam == IDOK)
747 { EndDialog(hWnd, TRUE);
748 return TRUE;
749 }
750 break;
751 case WM_CLOSE:
752 EndDialog(hWnd, TRUE);
753 break;
754 }
755
756 return 0;
757}
758
759
760/*************************************************************************
761 * ShellAboutA [SHELL32.243]
762 */
763BOOL WINAPI ShellAboutA( HWND hWnd, LPCSTR szApp, LPCSTR szOtherStuff,
764 HICON hIcon )
765{ ABOUT_INFO info;
766 HRSRC hRes;
767 LPVOID template;
768 TRACE("\n");
769
770 if(!(hRes = FindResourceA(shell32_hInstance, "SHELL_ABOUT_MSGBOX", RT_DIALOGA)))
771 return FALSE;
772 if(!(template = (LPVOID)LoadResource(shell32_hInstance, hRes)))
773 return FALSE;
774
775 info.szApp = szApp;
776 info.szOtherStuff = szOtherStuff;
777 info.hIcon = hIcon;
778 if (!hIcon) info.hIcon = LoadIcon16( 0, MAKEINTRESOURCE16(OIC_WINEICON) );
779 return DialogBoxIndirectParamA( GetWindowLongA( hWnd, GWL_HINSTANCE ),
780 template, hWnd, AboutDlgProc, (LPARAM)&info );
781}
782
783
784/*************************************************************************
785 * ShellAboutW [SHELL32.244]
786 */
787BOOL WINAPI ShellAboutW( HWND hWnd, LPCWSTR szApp, LPCWSTR szOtherStuff,
788 HICON hIcon )
789{ BOOL ret;
790 ABOUT_INFO info;
791 HRSRC hRes;
792 LPVOID template;
793
794 TRACE("\n");
795
796 if(!(hRes = FindResourceA(shell32_hInstance, "SHELL_ABOUT_MSGBOX", RT_DIALOGA)))
797 return FALSE;
798 if(!(template = (LPVOID)LoadResource(shell32_hInstance, hRes)))
799 return FALSE;
800
801 info.szApp = HEAP_strdupWtoA( GetProcessHeap(), 0, szApp );
802 info.szOtherStuff = HEAP_strdupWtoA( GetProcessHeap(), 0, szOtherStuff );
803 info.hIcon = hIcon;
804 if (!hIcon) info.hIcon = LoadIcon16( 0, MAKEINTRESOURCE16(OIC_WINEICON) );
805 ret = DialogBoxIndirectParamA( GetWindowLongA( hWnd, GWL_HINSTANCE ),
806 template, hWnd, AboutDlgProc, (LPARAM)&info );
807 HeapFree( GetProcessHeap(), 0, (LPSTR)info.szApp );
808 HeapFree( GetProcessHeap(), 0, (LPSTR)info.szOtherStuff );
809 return ret;
810}
811#endif //#ifndef __WIN32OS2__
812
813/*************************************************************************
814 * FreeIconList
815 */
816void WINAPI FreeIconList( DWORD dw )
817{ FIXME("(%lx): stub\n",dw);
818}
819
820/***********************************************************************
821 * DllGetVersion [SHELL32]
822 *
823 * Retrieves version information of the 'SHELL32.DLL'
824 *
825 * PARAMS
826 * pdvi [O] pointer to version information structure.
827 *
828 * RETURNS
829 * Success: S_OK
830 * Failure: E_INVALIDARG
831 *
832 * NOTES
833 * Returns version of a shell32.dll from IE4.01 SP1.
834 */
835
836HRESULT WINAPI SHELL32_DllGetVersion (DLLVERSIONINFO *pdvi)
837{
838 if (pdvi->cbSize != sizeof(DLLVERSIONINFO))
839 {
840 WARN("wrong DLLVERSIONINFO size from app");
841 return E_INVALIDARG;
842 }
843
844 pdvi->dwMajorVersion = 4;
845 pdvi->dwMinorVersion = 72;
846 pdvi->dwBuildNumber = 3110;
847 pdvi->dwPlatformID = 1;
848
849 TRACE("%lu.%lu.%lu.%lu\n",
850 pdvi->dwMajorVersion, pdvi->dwMinorVersion,
851 pdvi->dwBuildNumber, pdvi->dwPlatformID);
852
853 return S_OK;
854}
855/*************************************************************************
856 * global variables of the shell32.dll
857 * all are once per process
858 *
859 */
860void (* WINAPI pDLLInitComctl)(LPVOID);
861LPVOID (* WINAPI pCOMCTL32_Alloc) (INT);
862BOOL (* WINAPI pCOMCTL32_Free) (LPVOID);
863
864/* 2001-10-17 @@@PH
865 either me or VAC308 seems to be confused here:
866 if complains about redeclaration of the corresponding functions
867 in commctrl.h
868
869 Even more strangely, all variables "pFunction" are automatically
870 percieved as "Function".
871*/
872#if 0
873HDPA (* WINAPI lpDPA_Create) (INT);
874INT (* WINAPI lpDPA_InsertPtr) (const HDPA, INT, LPVOID);
875BOOL (* WINAPI lpDPA_Sort) (const HDPA, PFNDPACOMPARE, LPARAM);
876LPVOID (* WINAPI lpDPA_GetPtr) (const HDPA, INT);
877BOOL (* WINAPI lpDPA_Destroy) (const HDPA);
878INT (* WINAPI lpDPA_Search) (const HDPA, LPVOID, INT, PFNDPACOMPARE, LPARAM, UINT);
879LPVOID (* WINAPI lpDPA_DeletePtr) (const HDPA hdpa, INT i);
880HANDLE (* WINAPI lpCreateMRUListA) (LPVOID lpcml);
881DWORD (* WINAPI lpFreeMRUListA) (HANDLE hMRUList);
882INT (* WINAPI lpAddMRUData) (HANDLE hList, LPCVOID lpData, DWORD cbData);
883INT (* WINAPI lpFindMRUData) (HANDLE hList, LPCVOID lpData, DWORD cbData, LPINT lpRegNum);
884INT (* WINAPI lpEnumMRUListA) (HANDLE hList, INT nItemPos, LPVOID lpBuffer, DWORD nBufferSize);
885#endif
886
887static HINSTANCE hComctl32;
888static INT shell32_RefCount = 0;
889
890LONG shell32_ObjCount = 0;
891HINSTANCE shell32_hInstance = 0;
892HIMAGELIST ShellSmallIconList = 0;
893HIMAGELIST ShellBigIconList = 0;
894
895
896/*************************************************************************
897 * SHELL32 LibMain
898 *
899 * NOTES
900 * calling oleinitialize here breaks sone apps.
901 */
902
903BOOL WINAPI Shell32LibMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID fImpLoad)
904{
905 TRACE("0x%x 0x%lx %p\n", hinstDLL, fdwReason, fImpLoad);
906
907 switch (fdwReason)
908 {
909 case DLL_PROCESS_ATTACH:
910 shell32_RefCount++;
911 if (shell32_hInstance) return TRUE;
912
913 shell32_hInstance = hinstDLL;
914 hComctl32 = GetModuleHandleA("COMCTL32.DLL");
915 DisableThreadLibraryCalls(shell32_hInstance);
916
917 if (!hComctl32)
918 {
919 ERR("P A N I C SHELL32 loading failed\n");
920 return FALSE;
921 }
922
923 /* comctl32 */
924 pDLLInitComctl=(void*)GetProcAddress(hComctl32, "InitCommonControlsEx");
925 pCOMCTL32_Alloc=(void*)GetProcAddress(hComctl32, (LPCSTR)71L);
926 pCOMCTL32_Free=(void*)GetProcAddress(hComctl32, (LPCSTR)73L);
927#if 0
928 lpDPA_Create=(void*)GetProcAddress(hComctl32, (LPCSTR)328L);
929 lpDPA_Destroy=(void*)GetProcAddress(hComctl32, (LPCSTR)329L);
930 lpDPA_GetPtr=(void*)GetProcAddress(hComctl32, (LPCSTR)332L);
931 lpDPA_InsertPtr=(void*)GetProcAddress(hComctl32, (LPCSTR)334L);
932 lpDPA_DeletePtr=(void*)GetProcAddress(hComctl32, (LPCSTR)336L);
933 lpDPA_Sort=(void*)GetProcAddress(hComctl32, (LPCSTR)338L);
934 lpDPA_Search=(void*)GetProcAddress(hComctl32, (LPCSTR)339L);
935 lpCreateMRUListA=(void*)GetProcAddress(hComctl32, (LPCSTR)151L /*"CreateMRUListA"*/);
936 lpFreeMRUListA=(void*)GetProcAddress(hComctl32, (LPCSTR)152L /*"FreeMRUList"*/);
937 lpAddMRUData=(void*)GetProcAddress(hComctl32, (LPCSTR)167L /*"AddMRUData"*/);
938 lpFindMRUData=(void*)GetProcAddress(hComctl32, (LPCSTR)169L /*"FindMRUData"*/);
939 lpEnumMRUListA=(void*)GetProcAddress(hComctl32, (LPCSTR)154L /*"EnumMRUListA"*/);
940#endif
941 /* initialize the common controls */
942 if (pDLLInitComctl)
943 {
944 pDLLInitComctl(NULL);
945 }
946 InitCommonControlsEx(NULL);
947
948 SIC_Initialize();
949 SYSTRAY_Init();
950 InitChangeNotifications();
951 SHInitRestricted(NULL, NULL);
952 break;
953
954 case DLL_THREAD_ATTACH:
955 shell32_RefCount++;
956 break;
957
958 case DLL_THREAD_DETACH:
959 shell32_RefCount--;
960 break;
961
962 case DLL_PROCESS_DETACH:
963 shell32_RefCount--;
964
965 if ( !shell32_RefCount )
966 {
967 shell32_hInstance = 0;
968
969 if (pdesktopfolder)
970 {
971 IShellFolder_Release(pdesktopfolder);
972 pdesktopfolder = NULL;
973 }
974
975 SIC_Destroy();
976 FreeChangeNotifications();
977
978 /* this one is here to check if AddRef/Release is balanced */
979 if (shell32_ObjCount)
980 {
981 WARN("leaving with %lu objects left (memory leak)\n", shell32_ObjCount);
982 }
983 }
984
985 TRACE("refcount=%u objcount=%lu \n", shell32_RefCount, shell32_ObjCount);
986 break;
987 }
988 return TRUE;
989}
990
991/*************************************************************************
992 * DllInstall [SHELL32.202]
993 *
994 * PARAMETERS
995 *
996 * BOOL bInstall - TRUE for install, FALSE for uninstall
997 * LPCWSTR pszCmdLine - command line (unused by shell32?)
998 */
999
1000HRESULT WINAPI SHELL32_DllInstall(BOOL bInstall, LPCWSTR cmdline)
1001{
1002 FIXME("(%s, %s): stub!\n", bInstall ? "TRUE":"FALSE", debugstr_w(cmdline));
1003
1004 return S_OK; /* indicate success */
1005}
1006
1007/***********************************************************************
1008 * DllCanUnloadNow (SHELL32.@)
1009 */
1010HRESULT WINAPI SHELL32_DllCanUnloadNow(void)
1011{
1012 FIXME("(void): stub\n");
1013
1014 return S_FALSE;
1015}
Note: See TracBrowser for help on using the repository browser.