Add Korean translation.
[wine] / dlls / shell32 / shell.c
1 /*
2  *                              Shell Library Functions
3  *
4  * Copyright 1998 Marcus Meissner
5  * Copyright 2000 Juergen Schmied
6  * Copyright 2002 Eric Pouech
7  *
8  * This library is free software; you can redistribute it and/or
9  * modify it under the terms of the GNU Lesser General Public
10  * License as published by the Free Software Foundation; either
11  * version 2.1 of the License, or (at your option) any later version.
12  *
13  * This library is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16  * Lesser General Public License for more details.
17  *
18  * You should have received a copy of the GNU Lesser General Public
19  * License along with this library; if not, write to the Free Software
20  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
21  */
22
23 #include "config.h"
24 #include "wine/port.h"
25
26 #include <stdarg.h>
27 #include <stdlib.h>
28 #include <string.h>
29 #ifdef HAVE_UNISTD_H
30 # include <unistd.h>
31 #endif
32 #include <ctype.h>
33
34 #include "windef.h"
35 #include "winbase.h"
36 #include "winerror.h"
37 #include "winreg.h"
38 #include "wownt32.h"
39 #include "dlgs.h"
40 #include "shellapi.h"
41 #include "winuser.h"
42 #include "wingdi.h"
43 #include "shlobj.h"
44 #include "shlwapi.h"
45 #include "ddeml.h"
46
47 #include "wine/winbase16.h"
48 #include "wine/winuser16.h"
49 #include "shell32_main.h"
50
51 #include "wine/debug.h"
52
53 WINE_DEFAULT_DEBUG_CHANNEL(shell);
54
55
56 typedef struct {     /* structure for dropped files */
57  WORD     wSize;
58  POINT16  ptMousePos;
59  BOOL16   fInNonClientArea;
60  /* memory block with filenames follows */
61 } DROPFILESTRUCT16, *LPDROPFILESTRUCT16;
62
63 static const char*      lpstrMsgWndCreated = "OTHERWINDOWCREATED";
64 static const char*      lpstrMsgWndDestroyed = "OTHERWINDOWDESTROYED";
65 static const char*      lpstrMsgShellActivate = "ACTIVATESHELLWINDOW";
66
67 static HWND     SHELL_hWnd = 0;
68 static HHOOK    SHELL_hHook = 0;
69 static UINT     uMsgWndCreated = 0;
70 static UINT     uMsgWndDestroyed = 0;
71 static UINT     uMsgShellActivate = 0;
72
73 /***********************************************************************
74  * DllEntryPoint [SHELL.101]
75  *
76  * Initialization code for shell.dll. Automatically loads the
77  * 32-bit shell32.dll to allow thunking up to 32-bit code.
78  *
79  * RETURNS
80  *  Success: TRUE. Initialization completed successfully.
81  *  Failure: FALSE.
82  */
83 BOOL WINAPI SHELL_DllEntryPoint(DWORD Reason, HINSTANCE16 hInst,
84                                 WORD ds, WORD HeapSize, DWORD res1, WORD res2)
85 {
86     return TRUE;
87 }
88
89 /*************************************************************************
90  *                              DragAcceptFiles         [SHELL.9]
91  */
92 void WINAPI DragAcceptFiles16(HWND16 hWnd, BOOL16 b)
93 {
94   DragAcceptFiles(HWND_32(hWnd), b);
95 }
96
97 /*************************************************************************
98  *                              DragQueryFile           [SHELL.11]
99  */
100 UINT16 WINAPI DragQueryFile16(
101         HDROP16 hDrop,
102         WORD wFile,
103         LPSTR lpszFile,
104         WORD wLength)
105 {
106         LPSTR lpDrop;
107         UINT i = 0;
108         LPDROPFILESTRUCT16 lpDropFileStruct = (LPDROPFILESTRUCT16) GlobalLock16(hDrop);
109
110         TRACE("(%04x, %x, %p, %u)\n", hDrop,wFile,lpszFile,wLength);
111
112         if(!lpDropFileStruct) goto end;
113
114         lpDrop = (LPSTR) lpDropFileStruct + lpDropFileStruct->wSize;
115
116         while (i++ < wFile)
117         {
118           while (*lpDrop++); /* skip filename */
119           if (!*lpDrop)
120           {
121             i = (wFile == 0xFFFF) ? i : 0;
122             goto end;
123           }
124         }
125
126         i = strlen(lpDrop);
127         i++;
128         if (!lpszFile ) goto end;   /* needed buffer size */
129         i = (wLength > i) ? i : wLength;
130         lstrcpynA (lpszFile,  lpDrop,  i);
131 end:
132         GlobalUnlock16(hDrop);
133         return i;
134 }
135
136 /*************************************************************************
137  *                              DragFinish              [SHELL.12]
138  */
139 void WINAPI DragFinish16(HDROP16 h)
140 {
141     TRACE("\n");
142     GlobalFree16((HGLOBAL16)h);
143 }
144
145
146 /*************************************************************************
147  *                              DragQueryPoint          [SHELL.13]
148  */
149 BOOL16 WINAPI DragQueryPoint16(HDROP16 hDrop, POINT16 *p)
150 {
151   LPDROPFILESTRUCT16 lpDropFileStruct;
152   BOOL16           bRet;
153   TRACE("\n");
154   lpDropFileStruct = (LPDROPFILESTRUCT16) GlobalLock16(hDrop);
155
156   memcpy(p,&lpDropFileStruct->ptMousePos,sizeof(POINT16));
157   bRet = lpDropFileStruct->fInNonClientArea;
158
159   GlobalUnlock16(hDrop);
160   return bRet;
161 }
162
163 /*************************************************************************
164  *             FindExecutable   (SHELL.21)
165  */
166 HINSTANCE16 WINAPI FindExecutable16( LPCSTR lpFile, LPCSTR lpDirectory,
167                                      LPSTR lpResult )
168 { return HINSTANCE_16(FindExecutableA( lpFile, lpDirectory, lpResult ));
169 }
170
171 /*************************************************************************
172  *             AboutDlgProc   (SHELL.33)
173  */
174 BOOL16 WINAPI AboutDlgProc16( HWND16 hWnd, UINT16 msg, WPARAM16 wParam,
175                                LPARAM lParam )
176 { return (BOOL16)AboutDlgProc( HWND_32(hWnd), msg, wParam, lParam );
177 }
178
179
180 /*************************************************************************
181  *             ShellAbout   (SHELL.22)
182  */
183 BOOL16 WINAPI ShellAbout16( HWND16 hWnd, LPCSTR szApp, LPCSTR szOtherStuff,
184                             HICON16 hIcon )
185 { return ShellAboutA( HWND_32(hWnd), szApp, szOtherStuff, HICON_32(hIcon) );
186 }
187
188 /*************************************************************************
189  *                      InternalExtractIcon             [SHELL.39]
190  *
191  * This abortion is called directly by Progman
192  */
193 HGLOBAL16 WINAPI InternalExtractIcon16(HINSTANCE16 hInstance,
194                                      LPCSTR lpszExeFileName, UINT16 nIconIndex, WORD n )
195 {
196     HGLOBAL16 hRet = 0;
197     HICON16 *RetPtr = NULL;
198     OFSTRUCT ofs;
199
200         TRACE("(%04x,file %s,start %d,extract %d\n",
201                        hInstance, lpszExeFileName, nIconIndex, n);
202
203         if (!n)
204           return 0;
205
206         hRet = GlobalAlloc16(GMEM_FIXED | GMEM_ZEROINIT, sizeof(*RetPtr) * n);
207         RetPtr = (HICON16*)GlobalLock16(hRet);
208
209         if (nIconIndex == (UINT16)-1)  /* get number of icons */
210         {
211           RetPtr[0] = PrivateExtractIconsA(ofs.szPathName, 0, 0, 0, NULL, NULL, 0, LR_DEFAULTCOLOR);
212         }
213         else
214         {
215           UINT ret;
216           HICON *icons;
217
218           icons = HeapAlloc(GetProcessHeap(), 0, n * sizeof(*icons));
219           ret = PrivateExtractIconsA(ofs.szPathName, nIconIndex,
220                                      GetSystemMetrics(SM_CXICON),
221                                      GetSystemMetrics(SM_CYICON),
222                                      icons, NULL, n, LR_DEFAULTCOLOR);
223           if ((ret != 0xffffffff) && ret)
224           {
225             int i;
226             for (i = 0; i < n; i++) RetPtr[i] = HICON_16(icons[i]);
227           }
228           else
229           {
230             GlobalFree16(hRet);
231             hRet = 0;
232           }
233           HeapFree(GetProcessHeap(), 0, icons);
234         }
235         return hRet;
236 }
237
238 /*************************************************************************
239  *             ExtractIcon   (SHELL.34)
240  */
241 HICON16 WINAPI ExtractIcon16( HINSTANCE16 hInstance, LPCSTR lpszExeFileName,
242         UINT16 nIconIndex )
243 {   TRACE("\n");
244     return HICON_16(ExtractIconA(HINSTANCE_32(hInstance), lpszExeFileName, nIconIndex));
245 }
246
247 /*************************************************************************
248  *             ExtractIconEx   (SHELL.40)
249  */
250 HICON16 WINAPI ExtractIconEx16(
251         LPCSTR lpszFile, INT16 nIconIndex, HICON16 *phiconLarge,
252         HICON16 *phiconSmall, UINT16 nIcons
253 ) {
254     HICON       *ilarge,*ismall;
255     UINT16      ret;
256     int         i;
257
258     if (phiconLarge)
259         ilarge = HeapAlloc(GetProcessHeap(),0,nIcons*sizeof(HICON));
260     else
261         ilarge = NULL;
262     if (phiconSmall)
263         ismall = HeapAlloc(GetProcessHeap(),0,nIcons*sizeof(HICON));
264     else
265         ismall = NULL;
266     ret = HICON_16(ExtractIconExA(lpszFile,nIconIndex,ilarge,ismall,nIcons));
267     if (ilarge) {
268         for (i=0;i<nIcons;i++)
269             phiconLarge[i]=HICON_16(ilarge[i]);
270         HeapFree(GetProcessHeap(),0,ilarge);
271     }
272     if (ismall) {
273         for (i=0;i<nIcons;i++)
274             phiconSmall[i]=HICON_16(ismall[i]);
275         HeapFree(GetProcessHeap(),0,ismall);
276     }
277     return ret;
278 }
279
280 /*************************************************************************
281  *                              ExtractAssociatedIcon   [SHELL.36]
282  *
283  * Return icon for given file (either from file itself or from associated
284  * executable) and patch parameters if needed.
285  */
286 HICON16 WINAPI ExtractAssociatedIcon16(HINSTANCE16 hInst, LPSTR lpIconPath, LPWORD lpiIcon)
287 {
288     return HICON_16(ExtractAssociatedIconA(HINSTANCE_32(hInst), lpIconPath,
289                     lpiIcon));
290 }
291
292 /*************************************************************************
293  *                              FindEnvironmentString   [SHELL.38]
294  *
295  * Returns a pointer into the DOS environment... Ugh.
296  */
297 static LPSTR SHELL_FindString(LPSTR lpEnv, LPCSTR entry)
298 { UINT16 l;
299
300   TRACE("\n");
301
302   l = strlen(entry);
303   for( ; *lpEnv ; lpEnv+=strlen(lpEnv)+1 )
304   { if( strncasecmp(lpEnv, entry, l) )
305       continue;
306         if( !*(lpEnv+l) )
307             return (lpEnv + l);                 /* empty entry */
308         else if ( *(lpEnv+l)== '=' )
309             return (lpEnv + l + 1);
310     }
311     return NULL;
312 }
313
314 /**********************************************************************/
315
316 SEGPTR WINAPI FindEnvironmentString16(LPSTR str)
317 { SEGPTR  spEnv;
318   LPSTR lpEnv,lpString;
319   TRACE("\n");
320
321   spEnv = GetDOSEnvironment16();
322
323   lpEnv = MapSL(spEnv);
324   lpString = (spEnv)?SHELL_FindString(lpEnv, str):NULL;
325
326     if( lpString )              /*  offset should be small enough */
327         return spEnv + (lpString - lpEnv);
328     return (SEGPTR)NULL;
329 }
330
331 /*************************************************************************
332  *                              DoEnvironmentSubst      [SHELL.37]
333  *
334  * Replace %KEYWORD% in the str with the value of variable KEYWORD
335  * from "DOS" environment. If it is not found the %KEYWORD% is left
336  * intact. If the buffer is too small, str is not modified.
337  *
338  * PARAMS
339  *  str        [I] '\0' terminated string with %keyword%.
340  *             [O] '\0' terminated string with %keyword% substituted.
341  *  length     [I] size of str.
342  *
343  * RETURNS
344  *  str length in the LOWORD and 1 in HIWORD if subst was successful.
345  */
346 DWORD WINAPI DoEnvironmentSubst16(LPSTR str,WORD length)
347 {
348   LPSTR   lpEnv = MapSL(GetDOSEnvironment16());
349   LPSTR   lpstr = str;
350   LPSTR   lpend;
351   LPSTR   lpBuffer = HeapAlloc( GetProcessHeap(), 0, length);
352   WORD    bufCnt = 0;
353   WORD    envKeyLen;
354   LPSTR   lpKey;
355   WORD    retStatus = 0;
356   WORD    retLength = length;
357
358   CharToOemA(str,str);
359
360   TRACE("accept %s\n", str);
361
362   while( *lpstr && bufCnt <= length - 1 ) {
363      if ( *lpstr != '%' ) {
364         lpBuffer[bufCnt++] = *lpstr++;
365         continue;
366      }
367
368      for( lpend = lpstr + 1; *lpend && *lpend != '%'; lpend++) /**/;
369
370      envKeyLen = lpend - lpstr - 1;
371      if( *lpend != '%' || envKeyLen == 0)
372         goto err; /* "%\0" or "%%" found; back off and whine */
373
374      *lpend = '\0';
375      lpKey = SHELL_FindString(lpEnv, lpstr+1);
376      *lpend = '%';
377      if( lpKey ) {
378          int l = strlen(lpKey);
379
380          if( bufCnt + l > length - 1 )
381                 goto err;
382
383         memcpy(lpBuffer + bufCnt, lpKey, l);
384         bufCnt += l;
385      } else { /* Keyword not found; Leave the %KEYWORD% intact */
386         if( bufCnt + envKeyLen + 2 > length - 1 )
387             goto err;
388
389          memcpy(lpBuffer + bufCnt, lpstr, envKeyLen + 2);
390         bufCnt += envKeyLen + 2;
391      }
392
393      lpstr = lpend + 1;
394   }
395
396   if (!*lpstr && bufCnt <= length - 1) {
397       memcpy(str,lpBuffer, bufCnt);
398       str[bufCnt] = '\0';
399       retLength = bufCnt + 1;
400       retStatus = 1;
401   }
402
403   err:
404   if (!retStatus)
405       WARN("-- Env subst aborted - string too short or invalid input\n");
406   TRACE("-- return %s\n", str);
407
408   OemToCharA(str,str);
409   HeapFree( GetProcessHeap(), 0, lpBuffer);
410
411   return (DWORD)MAKELONG(retLength, retStatus);
412 }
413
414 /*************************************************************************
415  *                              SHELL_HookProc
416  *
417  * 32-bit version of the system-wide WH_SHELL hook.
418  */
419 static LRESULT WINAPI SHELL_HookProc(INT code, WPARAM wParam, LPARAM lParam)
420 {
421     TRACE("%i, %x, %08lx\n", code, wParam, lParam );
422
423     if (SHELL_hWnd)
424     {
425         switch( code )
426         {
427         case HSHELL_WINDOWCREATED:
428             PostMessageA( SHELL_hWnd, uMsgWndCreated, wParam, 0 );
429             break;
430         case HSHELL_WINDOWDESTROYED:
431             PostMessageA( SHELL_hWnd, uMsgWndDestroyed, wParam, 0 );
432             break;
433         case HSHELL_ACTIVATESHELLWINDOW:
434             PostMessageA( SHELL_hWnd, uMsgShellActivate, wParam, 0 );
435             break;
436         }
437     }
438     return CallNextHookEx( SHELL_hHook, code, wParam, lParam );
439 }
440
441 /*************************************************************************
442  *                              ShellHookProc           [SHELL.103]
443  * System-wide WH_SHELL hook.
444  */
445 LRESULT WINAPI ShellHookProc16(INT16 code, WPARAM16 wParam, LPARAM lParam)
446 {
447     return SHELL_HookProc( code, wParam, lParam );
448 }
449
450 /*************************************************************************
451  *                              RegisterShellHook       [SHELL.102]
452  */
453 BOOL WINAPI RegisterShellHook16(HWND16 hWnd, UINT16 uAction)
454 {
455     TRACE("%04x [%u]\n", hWnd, uAction );
456
457     switch( uAction )
458     {
459     case 2:  /* register hWnd as a shell window */
460         if( !SHELL_hHook )
461         {
462             SHELL_hHook = SetWindowsHookExA( WH_SHELL, SHELL_HookProc,
463                                              GetModuleHandleA("shell32.dll"), 0 );
464             if ( SHELL_hHook )
465             {
466                 uMsgWndCreated = RegisterWindowMessageA( lpstrMsgWndCreated );
467                 uMsgWndDestroyed = RegisterWindowMessageA( lpstrMsgWndDestroyed );
468                 uMsgShellActivate = RegisterWindowMessageA( lpstrMsgShellActivate );
469             }
470             else
471                 WARN("-- unable to install ShellHookProc()!\n");
472         }
473
474         if ( SHELL_hHook )
475             return ((SHELL_hWnd = HWND_32(hWnd)) != 0);
476         break;
477
478     default:
479         WARN("-- unknown code %i\n", uAction );
480         SHELL_hWnd = 0; /* just in case */
481     }
482     return FALSE;
483 }
484
485
486 /***********************************************************************
487  *           DriveType   (SHELL.262)
488  */
489 UINT16 WINAPI DriveType16( UINT16 drive )
490 {
491     UINT ret;
492     char path[] = "A:\\";
493     path[0] += drive;
494     ret = GetDriveTypeA(path);
495     switch(ret)  /* some values are not supported in Win16 */
496     {
497     case DRIVE_CDROM:
498         ret = DRIVE_REMOTE;
499         break;
500     case DRIVE_NO_ROOT_DIR:
501         ret = DRIVE_UNKNOWN;
502         break;
503     }
504     return ret;
505 }
506
507
508 /* 0 and 1 are valid rootkeys in win16 shell.dll and are used by
509  * some programs. Do not remove those cases. -MM
510  */
511 static inline void fix_win16_hkey( HKEY *hkey )
512 {
513     if (*hkey == 0 || *hkey == (HKEY)1) *hkey = HKEY_CLASSES_ROOT;
514 }
515
516 /******************************************************************************
517  *           RegOpenKey   [SHELL.1]
518  */
519 DWORD WINAPI RegOpenKey16( HKEY hkey, LPCSTR name, PHKEY retkey )
520 {
521     fix_win16_hkey( &hkey );
522     return RegOpenKeyA( hkey, name, retkey );
523 }
524
525 /******************************************************************************
526  *           RegCreateKey   [SHELL.2]
527  */
528 DWORD WINAPI RegCreateKey16( HKEY hkey, LPCSTR name, PHKEY retkey )
529 {
530     fix_win16_hkey( &hkey );
531     return RegCreateKeyA( hkey, name, retkey );
532 }
533
534 /******************************************************************************
535  *           RegCloseKey   [SHELL.3]
536  */
537 DWORD WINAPI RegCloseKey16( HKEY hkey )
538 {
539     fix_win16_hkey( &hkey );
540     return RegCloseKey( hkey );
541 }
542
543 /******************************************************************************
544  *           RegDeleteKey   [SHELL.4]
545  */
546 DWORD WINAPI RegDeleteKey16( HKEY hkey, LPCSTR name )
547 {
548     fix_win16_hkey( &hkey );
549     return RegDeleteKeyA( hkey, name );
550 }
551
552 /******************************************************************************
553  *           RegSetValue   [SHELL.5]
554  */
555 DWORD WINAPI RegSetValue16( HKEY hkey, LPCSTR name, DWORD type, LPCSTR data, DWORD count )
556 {
557     fix_win16_hkey( &hkey );
558     return RegSetValueA( hkey, name, type, data, count );
559 }
560
561 /******************************************************************************
562  *           RegQueryValue   [SHELL.6]
563  *
564  * NOTES
565  *    Is this HACK still applicable?
566  *
567  * HACK
568  *    The 16bit RegQueryValue doesn't handle selectorblocks anyway, so we just
569  *    mask out the high 16 bit.  This (not so much incidently) hopefully fixes
570  *    Aldus FH4)
571  */
572 DWORD WINAPI RegQueryValue16( HKEY hkey, LPCSTR name, LPSTR data, LPDWORD count
573 )
574 {
575     fix_win16_hkey( &hkey );
576     if (count) *count &= 0xffff;
577     return RegQueryValueA( hkey, name, data, (LONG*) count );
578 }
579
580 /******************************************************************************
581  *           RegEnumKey   [SHELL.7]
582  */
583 DWORD WINAPI RegEnumKey16( HKEY hkey, DWORD index, LPSTR name, DWORD name_len )
584 {
585     fix_win16_hkey( &hkey );
586     return RegEnumKeyA( hkey, index, name, name_len );
587 }
588
589 /*************************************************************************
590  *           SHELL_Execute16 [Internal]
591  */
592 static UINT SHELL_Execute16(const WCHAR *lpCmd, WCHAR *env, BOOL shWait,
593                             LPSHELLEXECUTEINFOW psei, LPSHELLEXECUTEINFOW psei_out)
594 {
595     UINT ret;
596     char sCmd[MAX_PATH];
597     WideCharToMultiByte(CP_ACP, 0, lpCmd, -1, sCmd, MAX_PATH, NULL, NULL);
598     ret = WinExec16(sCmd, (UINT16)psei->nShow);
599     psei_out->hInstApp = HINSTANCE_32(ret);
600     return ret;
601 }
602
603 /*************************************************************************
604  *                              ShellExecute            [SHELL.20]
605  */
606 HINSTANCE16 WINAPI ShellExecute16( HWND16 hWnd, LPCSTR lpOperation,
607                                    LPCSTR lpFile, LPCSTR lpParameters,
608                                    LPCSTR lpDirectory, INT16 iShowCmd )
609 {
610     SHELLEXECUTEINFOW seiW;
611     WCHAR *wVerb = NULL, *wFile = NULL, *wParameters = NULL, *wDirectory = NULL;
612     HANDLE hProcess = 0;
613
614     seiW.lpVerb = lpOperation ? __SHCloneStrAtoW(&wVerb, lpOperation) : NULL;
615     seiW.lpFile = lpFile ? __SHCloneStrAtoW(&wFile, lpFile) : NULL;
616     seiW.lpParameters = lpParameters ? __SHCloneStrAtoW(&wParameters, lpParameters) : NULL;
617     seiW.lpDirectory = lpDirectory ? __SHCloneStrAtoW(&wDirectory, lpDirectory) : NULL;
618
619     seiW.cbSize = sizeof(seiW);
620     seiW.fMask = 0;
621     seiW.hwnd = HWND_32(hWnd);
622     seiW.nShow = iShowCmd;
623     seiW.lpIDList = 0;
624     seiW.lpClass = 0;
625     seiW.hkeyClass = 0;
626     seiW.dwHotKey = 0;
627     seiW.hProcess = hProcess;
628
629     SHELL_execute( &seiW, SHELL_Execute16 );
630
631     if (wVerb) SHFree(wVerb);
632     if (wFile) SHFree(wFile);
633     if (wParameters) SHFree(wParameters);
634     if (wDirectory) SHFree(wDirectory);
635
636     return HINSTANCE_16(seiW.hInstApp);
637 }