4 * Copyright 1993 Robert J. Amstadt
5 * Copyright 1995, 2003 Alexandre Julliard
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23 #include "wine/port.h"
27 #define NONAMELESSUNION
28 #define NONAMELESSSTRUCT
35 #include "wine/winbase16.h"
36 #include "wine/debug.h"
38 #include "wine/exception.h"
40 WINE_DEFAULT_DEBUG_CHANNEL(resource
);
42 /* handle conversions */
43 #define HRSRC_32(h16) ((HRSRC)(ULONG_PTR)(h16))
44 #define HRSRC_16(h32) (LOWORD(h32))
45 #define HGLOBAL_32(h16) ((HGLOBAL)(ULONG_PTR)(h16))
46 #define HGLOBAL_16(h32) (LOWORD(h32))
47 #define HMODULE_16(h32) (LOWORD(h32))
49 static WINE_EXCEPTION_FILTER(page_fault
)
51 if (GetExceptionCode() == EXCEPTION_ACCESS_VIOLATION
||
52 GetExceptionCode() == EXCEPTION_PRIV_INSTRUCTION
)
53 return EXCEPTION_EXECUTE_HANDLER
;
54 return EXCEPTION_CONTINUE_SEARCH
;
57 /* retrieve the resource name to pass to the ntdll functions */
58 static NTSTATUS
get_res_nameA( LPCSTR name
, UNICODE_STRING
*str
)
62 str
->Buffer
= (LPWSTR
)name
;
63 return STATUS_SUCCESS
;
68 if (RtlCharToInteger( name
+ 1, 10, &value
) != STATUS_SUCCESS
|| HIWORD(value
))
69 return STATUS_INVALID_PARAMETER
;
70 str
->Buffer
= (LPWSTR
)value
;
71 return STATUS_SUCCESS
;
73 RtlCreateUnicodeStringFromAsciiz( str
, name
);
74 RtlUpcaseUnicodeString( str
, str
, FALSE
);
75 return STATUS_SUCCESS
;
78 /* retrieve the resource name to pass to the ntdll functions */
79 static NTSTATUS
get_res_nameW( LPCWSTR name
, UNICODE_STRING
*str
)
83 str
->Buffer
= (LPWSTR
)name
;
84 return STATUS_SUCCESS
;
89 RtlInitUnicodeString( str
, name
+ 1 );
90 if (RtlUnicodeStringToInteger( str
, 10, &value
) != STATUS_SUCCESS
|| HIWORD(value
))
91 return STATUS_INVALID_PARAMETER
;
92 str
->Buffer
= (LPWSTR
)value
;
93 return STATUS_SUCCESS
;
95 RtlCreateUnicodeString( str
, name
);
96 RtlUpcaseUnicodeString( str
, str
, FALSE
);
97 return STATUS_SUCCESS
;
100 /* retrieve the resource names for the 16-bit FindResource function */
101 static BOOL
get_res_name_type_WtoA( LPCWSTR name
, LPCWSTR type
, LPSTR
*nameA
, LPSTR
*typeA
)
103 *nameA
= *typeA
= NULL
;
109 DWORD len
= WideCharToMultiByte( CP_ACP
, 0, name
, -1, NULL
, 0, NULL
, NULL
);
110 *nameA
= HeapAlloc( GetProcessHeap(), 0, len
);
111 if (*nameA
) WideCharToMultiByte( CP_ACP
, 0, name
, -1, *nameA
, len
, NULL
, NULL
);
113 else *nameA
= (LPSTR
)name
;
117 DWORD len
= WideCharToMultiByte( CP_ACP
, 0, type
, -1, NULL
, 0, NULL
, NULL
);
118 *typeA
= HeapAlloc( GetProcessHeap(), 0, len
);
119 if (*typeA
) WideCharToMultiByte( CP_ACP
, 0, type
, -1, *typeA
, len
, NULL
, NULL
);
121 else *typeA
= (LPSTR
)type
;
125 if (HIWORD(*nameA
)) HeapFree( GetProcessHeap(), 0, *nameA
);
126 if (HIWORD(*typeA
)) HeapFree( GetProcessHeap(), 0, *typeA
);
127 SetLastError( ERROR_INVALID_PARAMETER
);
134 /* implementation of FindResourceExA */
135 static HRSRC
find_resourceA( HMODULE hModule
, LPCSTR type
, LPCSTR name
, WORD lang
)
138 UNICODE_STRING nameW
, typeW
;
139 LDR_RESOURCE_INFO info
;
140 const IMAGE_RESOURCE_DATA_ENTRY
*entry
= NULL
;
144 if ((status
= get_res_nameA( name
, &nameW
)) != STATUS_SUCCESS
) goto done
;
145 if ((status
= get_res_nameA( type
, &typeW
)) != STATUS_SUCCESS
) goto done
;
146 info
.Type
= (ULONG
)typeW
.Buffer
;
147 info
.Name
= (ULONG
)nameW
.Buffer
;
148 info
.Language
= lang
;
149 status
= LdrFindResource_U( hModule
, &info
, 3, &entry
);
151 if (status
!= STATUS_SUCCESS
) SetLastError( RtlNtStatusToDosError(status
) );
155 SetLastError( ERROR_INVALID_PARAMETER
);
159 if (HIWORD(nameW
.Buffer
)) HeapFree( GetProcessHeap(), 0, nameW
.Buffer
);
160 if (HIWORD(typeW
.Buffer
)) HeapFree( GetProcessHeap(), 0, typeW
.Buffer
);
165 /* implementation of FindResourceExW */
166 static HRSRC
find_resourceW( HMODULE hModule
, LPCWSTR type
, LPCWSTR name
, WORD lang
)
169 UNICODE_STRING nameW
, typeW
;
170 LDR_RESOURCE_INFO info
;
171 const IMAGE_RESOURCE_DATA_ENTRY
*entry
= NULL
;
173 nameW
.Buffer
= typeW
.Buffer
= NULL
;
177 if ((status
= get_res_nameW( name
, &nameW
)) != STATUS_SUCCESS
) goto done
;
178 if ((status
= get_res_nameW( type
, &typeW
)) != STATUS_SUCCESS
) goto done
;
179 info
.Type
= (ULONG
)typeW
.Buffer
;
180 info
.Name
= (ULONG
)nameW
.Buffer
;
181 info
.Language
= lang
;
182 status
= LdrFindResource_U( hModule
, &info
, 3, &entry
);
184 if (status
!= STATUS_SUCCESS
) SetLastError( RtlNtStatusToDosError(status
) );
188 SetLastError( ERROR_INVALID_PARAMETER
);
192 if (HIWORD(nameW
.Buffer
)) HeapFree( GetProcessHeap(), 0, nameW
.Buffer
);
193 if (HIWORD(typeW
.Buffer
)) HeapFree( GetProcessHeap(), 0, typeW
.Buffer
);
197 /**********************************************************************
198 * FindResourceExA (KERNEL32.@)
200 HRSRC WINAPI
FindResourceExA( HMODULE hModule
, LPCSTR type
, LPCSTR name
, WORD lang
)
202 TRACE( "%p %s %s %04x\n", hModule
, debugstr_a(type
), debugstr_a(name
), lang
);
204 if (!hModule
) hModule
= GetModuleHandleW(0);
205 else if (!HIWORD(hModule
))
207 return HRSRC_32( FindResource16( HMODULE_16(hModule
), name
, type
) );
209 return find_resourceA( hModule
, type
, name
, lang
);
213 /**********************************************************************
214 * FindResourceA (KERNEL32.@)
216 HRSRC WINAPI
FindResourceA( HMODULE hModule
, LPCSTR name
, LPCSTR type
)
218 return FindResourceExA( hModule
, type
, name
, MAKELANGID( LANG_NEUTRAL
, SUBLANG_NEUTRAL
) );
222 /**********************************************************************
223 * FindResourceExW (KERNEL32.@)
225 HRSRC WINAPI
FindResourceExW( HMODULE hModule
, LPCWSTR type
, LPCWSTR name
, WORD lang
)
227 TRACE( "%p %s %s %04x\n", hModule
, debugstr_w(type
), debugstr_w(name
), lang
);
229 if (!hModule
) hModule
= GetModuleHandleW(0);
230 else if (!HIWORD(hModule
))
235 if (!get_res_name_type_WtoA( name
, type
, &nameA
, &typeA
)) return NULL
;
237 ret
= FindResource16( HMODULE_16(hModule
), nameA
, typeA
);
238 if (HIWORD(nameA
)) HeapFree( GetProcessHeap(), 0, nameA
);
239 if (HIWORD(typeA
)) HeapFree( GetProcessHeap(), 0, typeA
);
240 return HRSRC_32(ret
);
243 return find_resourceW( hModule
, type
, name
, lang
);
247 /**********************************************************************
248 * FindResourceW (KERNEL32.@)
250 HRSRC WINAPI
FindResourceW( HINSTANCE hModule
, LPCWSTR name
, LPCWSTR type
)
252 return FindResourceExW( hModule
, type
, name
, MAKELANGID( LANG_NEUTRAL
, SUBLANG_NEUTRAL
) );
256 /**********************************************************************
257 * EnumResourceTypesA (KERNEL32.@)
259 BOOL WINAPI
EnumResourceTypesA( HMODULE hmod
, ENUMRESTYPEPROCA lpfun
, LONG_PTR lparam
)
264 DWORD len
= 0, newlen
;
266 const IMAGE_RESOURCE_DIRECTORY
*resdir
;
267 const IMAGE_RESOURCE_DIRECTORY_ENTRY
*et
;
268 const IMAGE_RESOURCE_DIR_STRING_U
*str
;
270 TRACE( "%p %p %lx\n", hmod
, lpfun
, lparam
);
272 if (!hmod
) hmod
= GetModuleHandleA( NULL
);
274 if ((status
= LdrFindResourceDirectory_U( hmod
, NULL
, 0, &resdir
)) != STATUS_SUCCESS
)
276 SetLastError( RtlNtStatusToDosError(status
) );
279 et
= (PIMAGE_RESOURCE_DIRECTORY_ENTRY
)(resdir
+ 1);
280 for (i
= 0; i
< resdir
->NumberOfNamedEntries
+resdir
->NumberOfIdEntries
; i
++)
282 if (et
[i
].u1
.s1
.NameIsString
)
284 str
= (PIMAGE_RESOURCE_DIR_STRING_U
) ((LPBYTE
) resdir
+ et
[i
].u1
.s1
.NameOffset
);
285 newlen
= WideCharToMultiByte( CP_ACP
, 0, str
->NameString
, str
->Length
, NULL
, 0, NULL
, NULL
);
286 if (newlen
+ 1 > len
)
289 if (type
) HeapFree( GetProcessHeap(), 0, type
);
290 if (!(type
= HeapAlloc( GetProcessHeap(), 0, len
))) return FALSE
;
292 WideCharToMultiByte( CP_ACP
, 0, str
->NameString
, str
->Length
, type
, len
, NULL
, NULL
);
294 ret
= lpfun(hmod
,type
,lparam
);
298 ret
= lpfun( hmod
, (LPSTR
)(int)et
[i
].u1
.s2
.Id
, lparam
);
302 if (type
) HeapFree( GetProcessHeap(), 0, type
);
307 /**********************************************************************
308 * EnumResourceTypesW (KERNEL32.@)
310 BOOL WINAPI
EnumResourceTypesW( HMODULE hmod
, ENUMRESTYPEPROCW lpfun
, LONG_PTR lparam
)
317 const IMAGE_RESOURCE_DIRECTORY
*resdir
;
318 const IMAGE_RESOURCE_DIRECTORY_ENTRY
*et
;
319 const IMAGE_RESOURCE_DIR_STRING_U
*str
;
321 TRACE( "%p %p %lx\n", hmod
, lpfun
, lparam
);
323 if (!hmod
) hmod
= GetModuleHandleW( NULL
);
325 if ((status
= LdrFindResourceDirectory_U( hmod
, NULL
, 0, &resdir
)) != STATUS_SUCCESS
)
327 SetLastError( RtlNtStatusToDosError(status
) );
330 et
= (PIMAGE_RESOURCE_DIRECTORY_ENTRY
)(resdir
+ 1);
331 for (i
= 0; i
< resdir
->NumberOfNamedEntries
+ resdir
->NumberOfIdEntries
; i
++)
333 if (et
[i
].u1
.s1
.NameIsString
)
335 str
= (PIMAGE_RESOURCE_DIR_STRING_U
) ((LPBYTE
) resdir
+ et
[i
].u1
.s1
.NameOffset
);
336 if (str
->Length
+ 1 > len
)
338 len
= str
->Length
+ 1;
339 if (type
) HeapFree( GetProcessHeap(), 0, type
);
340 if (!(type
= HeapAlloc( GetProcessHeap(), 0, len
* sizeof(WCHAR
) ))) return FALSE
;
342 memcpy(type
, str
->NameString
, str
->Length
* sizeof (WCHAR
));
343 type
[str
->Length
] = 0;
344 ret
= lpfun(hmod
,type
,lparam
);
348 ret
= lpfun( hmod
, (LPWSTR
)(int)et
[i
].u1
.s2
.Id
, lparam
);
352 if (type
) HeapFree( GetProcessHeap(), 0, type
);
357 /**********************************************************************
358 * EnumResourceNamesA (KERNEL32.@)
360 BOOL WINAPI
EnumResourceNamesA( HMODULE hmod
, LPCSTR type
, ENUMRESNAMEPROCA lpfun
, LONG_PTR lparam
)
364 DWORD len
= 0, newlen
;
367 UNICODE_STRING typeW
;
368 LDR_RESOURCE_INFO info
;
369 const IMAGE_RESOURCE_DIRECTORY
*basedir
, *resdir
;
370 const IMAGE_RESOURCE_DIRECTORY_ENTRY
*et
;
371 const IMAGE_RESOURCE_DIR_STRING_U
*str
;
373 TRACE( "%p %s %p %lx\n", hmod
, debugstr_a(type
), lpfun
, lparam
);
375 if (!hmod
) hmod
= GetModuleHandleA( NULL
);
377 if ((status
= LdrFindResourceDirectory_U( hmod
, NULL
, 0, &basedir
)) != STATUS_SUCCESS
)
379 if ((status
= get_res_nameA( type
, &typeW
)) != STATUS_SUCCESS
)
381 info
.Type
= (ULONG
)typeW
.Buffer
;
382 if ((status
= LdrFindResourceDirectory_U( hmod
, &info
, 1, &resdir
)) != STATUS_SUCCESS
)
385 et
= (IMAGE_RESOURCE_DIRECTORY_ENTRY
*)(resdir
+ 1);
386 for (i
= 0; i
< resdir
->NumberOfNamedEntries
+resdir
->NumberOfIdEntries
; i
++)
388 if (et
[i
].u1
.s1
.NameIsString
)
390 str
= (IMAGE_RESOURCE_DIR_STRING_U
*) ((LPBYTE
) basedir
+ et
[i
].u1
.s1
.NameOffset
);
391 newlen
= WideCharToMultiByte(CP_ACP
, 0, str
->NameString
, str
->Length
, NULL
, 0, NULL
, NULL
);
392 if (newlen
+ 1 > len
)
395 if (name
) HeapFree( GetProcessHeap(), 0, name
);
396 if (!(name
= HeapAlloc(GetProcessHeap(), 0, len
+ 1 )))
402 WideCharToMultiByte( CP_ACP
, 0, str
->NameString
, str
->Length
, name
, len
, NULL
, NULL
);
404 ret
= lpfun(hmod
,type
,name
,lparam
);
408 ret
= lpfun( hmod
, type
, (LPSTR
)(int)et
[i
].u1
.s2
.Id
, lparam
);
413 if (name
) HeapFree( GetProcessHeap(), 0, name
);
414 if (HIWORD(typeW
.Buffer
)) HeapFree( GetProcessHeap(), 0, typeW
.Buffer
);
415 if (status
!= STATUS_SUCCESS
) SetLastError( RtlNtStatusToDosError(status
) );
420 /**********************************************************************
421 * EnumResourceNamesW (KERNEL32.@)
423 BOOL WINAPI
EnumResourceNamesW( HMODULE hmod
, LPCWSTR type
, ENUMRESNAMEPROCW lpfun
, LONG_PTR lparam
)
430 UNICODE_STRING typeW
;
431 LDR_RESOURCE_INFO info
;
432 const IMAGE_RESOURCE_DIRECTORY
*basedir
, *resdir
;
433 const IMAGE_RESOURCE_DIRECTORY_ENTRY
*et
;
434 const IMAGE_RESOURCE_DIR_STRING_U
*str
;
436 TRACE( "%p %s %p %lx\n", hmod
, debugstr_w(type
), lpfun
, lparam
);
438 if (!hmod
) hmod
= GetModuleHandleW( NULL
);
440 if ((status
= LdrFindResourceDirectory_U( hmod
, NULL
, 0, &basedir
)) != STATUS_SUCCESS
)
442 if ((status
= get_res_nameW( type
, &typeW
)) != STATUS_SUCCESS
)
444 info
.Type
= (ULONG
)typeW
.Buffer
;
445 if ((status
= LdrFindResourceDirectory_U( hmod
, &info
, 1, &resdir
)) != STATUS_SUCCESS
)
448 et
= (PIMAGE_RESOURCE_DIRECTORY_ENTRY
)(resdir
+ 1);
449 for (i
= 0; i
< resdir
->NumberOfNamedEntries
+resdir
->NumberOfIdEntries
; i
++)
451 if (et
[i
].u1
.s1
.NameIsString
)
453 str
= (IMAGE_RESOURCE_DIR_STRING_U
*) ((LPBYTE
) basedir
+ et
[i
].u1
.s1
.NameOffset
);
454 if (str
->Length
+ 1 > len
)
456 len
= str
->Length
+ 1;
457 if (name
) HeapFree( GetProcessHeap(), 0, name
);
458 if (!(name
= HeapAlloc( GetProcessHeap(), 0, len
* sizeof(WCHAR
) )))
464 memcpy(name
, str
->NameString
, str
->Length
* sizeof (WCHAR
));
465 name
[str
->Length
] = 0;
466 ret
= lpfun(hmod
,type
,name
,lparam
);
470 ret
= lpfun( hmod
, type
, (LPWSTR
)(int)et
[i
].u1
.s2
.Id
, lparam
);
475 if (name
) HeapFree( GetProcessHeap(), 0, name
);
476 if (HIWORD(typeW
.Buffer
)) HeapFree( GetProcessHeap(), 0, typeW
.Buffer
);
477 if (status
!= STATUS_SUCCESS
) SetLastError( RtlNtStatusToDosError(status
) );
482 /**********************************************************************
483 * EnumResourceLanguagesA (KERNEL32.@)
485 BOOL WINAPI
EnumResourceLanguagesA( HMODULE hmod
, LPCSTR type
, LPCSTR name
,
486 ENUMRESLANGPROCA lpfun
, LONG_PTR lparam
)
491 UNICODE_STRING typeW
, nameW
;
492 LDR_RESOURCE_INFO info
;
493 const IMAGE_RESOURCE_DIRECTORY
*basedir
, *resdir
;
494 const IMAGE_RESOURCE_DIRECTORY_ENTRY
*et
;
496 TRACE( "%p %s %s %p %lx\n", hmod
, debugstr_a(type
), debugstr_a(name
), lpfun
, lparam
);
498 if (!hmod
) hmod
= GetModuleHandleA( NULL
);
499 typeW
.Buffer
= nameW
.Buffer
= NULL
;
500 if ((status
= LdrFindResourceDirectory_U( hmod
, NULL
, 0, &basedir
)) != STATUS_SUCCESS
)
502 if ((status
= get_res_nameA( type
, &typeW
)) != STATUS_SUCCESS
)
504 if ((status
= get_res_nameA( name
, &nameW
)) != STATUS_SUCCESS
)
506 info
.Type
= (ULONG
)typeW
.Buffer
;
507 info
.Name
= (ULONG
)nameW
.Buffer
;
508 if ((status
= LdrFindResourceDirectory_U( hmod
, &info
, 2, &resdir
)) != STATUS_SUCCESS
)
511 et
= (PIMAGE_RESOURCE_DIRECTORY_ENTRY
)(resdir
+ 1);
512 for (i
= 0; i
< resdir
->NumberOfNamedEntries
+ resdir
->NumberOfIdEntries
; i
++)
514 ret
= lpfun( hmod
, type
, name
, et
[i
].u1
.s2
.Id
, lparam
);
518 if (HIWORD(typeW
.Buffer
)) HeapFree( GetProcessHeap(), 0, typeW
.Buffer
);
519 if (HIWORD(nameW
.Buffer
)) HeapFree( GetProcessHeap(), 0, nameW
.Buffer
);
520 if (status
!= STATUS_SUCCESS
) SetLastError( RtlNtStatusToDosError(status
) );
525 /**********************************************************************
526 * EnumResourceLanguagesW (KERNEL32.@)
528 BOOL WINAPI
EnumResourceLanguagesW( HMODULE hmod
, LPCWSTR type
, LPCWSTR name
,
529 ENUMRESLANGPROCW lpfun
, LONG_PTR lparam
)
534 UNICODE_STRING typeW
, nameW
;
535 LDR_RESOURCE_INFO info
;
536 const IMAGE_RESOURCE_DIRECTORY
*basedir
, *resdir
;
537 const IMAGE_RESOURCE_DIRECTORY_ENTRY
*et
;
539 TRACE( "%p %s %s %p %lx\n", hmod
, debugstr_w(type
), debugstr_w(name
), lpfun
, lparam
);
541 if (!hmod
) hmod
= GetModuleHandleW( NULL
);
542 typeW
.Buffer
= nameW
.Buffer
= NULL
;
543 if ((status
= LdrFindResourceDirectory_U( hmod
, NULL
, 0, &basedir
)) != STATUS_SUCCESS
)
545 if ((status
= get_res_nameW( type
, &typeW
)) != STATUS_SUCCESS
)
547 if ((status
= get_res_nameW( name
, &nameW
)) != STATUS_SUCCESS
)
549 info
.Type
= (ULONG
)typeW
.Buffer
;
550 info
.Name
= (ULONG
)nameW
.Buffer
;
551 if ((status
= LdrFindResourceDirectory_U( hmod
, &info
, 2, &resdir
)) != STATUS_SUCCESS
)
554 et
= (PIMAGE_RESOURCE_DIRECTORY_ENTRY
)(resdir
+ 1);
555 for (i
= 0; i
< resdir
->NumberOfNamedEntries
+ resdir
->NumberOfIdEntries
; i
++)
557 ret
= lpfun( hmod
, type
, name
, et
[i
].u1
.s2
.Id
, lparam
);
561 if (HIWORD(typeW
.Buffer
)) HeapFree( GetProcessHeap(), 0, typeW
.Buffer
);
562 if (HIWORD(nameW
.Buffer
)) HeapFree( GetProcessHeap(), 0, nameW
.Buffer
);
563 if (status
!= STATUS_SUCCESS
) SetLastError( RtlNtStatusToDosError(status
) );
568 /**********************************************************************
569 * LoadResource (KERNEL32.@)
571 HGLOBAL WINAPI
LoadResource( HINSTANCE hModule
, HRSRC hRsrc
)
576 TRACE( "%p %p\n", hModule
, hRsrc
);
578 if (hModule
&& !HIWORD(hModule
))
579 /* FIXME: should convert return to 32-bit resource */
580 return HGLOBAL_32( LoadResource16( HMODULE_16(hModule
), HRSRC_16(hRsrc
) ) );
582 if (!hRsrc
) return 0;
583 if (!hModule
) hModule
= GetModuleHandleA( NULL
);
584 status
= LdrAccessResource( hModule
, (IMAGE_RESOURCE_DATA_ENTRY
*)hRsrc
, &ret
, NULL
);
585 if (status
!= STATUS_SUCCESS
) SetLastError( RtlNtStatusToDosError(status
) );
590 /**********************************************************************
591 * LockResource (KERNEL32.@)
593 LPVOID WINAPI
LockResource( HGLOBAL handle
)
595 TRACE("(%p)\n", handle
);
597 if (HIWORD( handle
)) /* 32-bit memory handle */
598 return (LPVOID
)handle
;
600 /* 16-bit memory handle */
601 return LockResource16( HGLOBAL_16(handle
) );
605 /**********************************************************************
606 * FreeResource (KERNEL32.@)
608 BOOL WINAPI
FreeResource( HGLOBAL handle
)
610 if (HIWORD(handle
)) return 0; /* 32-bit memory handle: nothing to do */
611 return FreeResource16( HGLOBAL_16(handle
) );
615 /**********************************************************************
616 * SizeofResource (KERNEL32.@)
618 DWORD WINAPI
SizeofResource( HINSTANCE hModule
, HRSRC hRsrc
)
620 if (hModule
&& !HIWORD(hModule
))
621 return SizeofResource16( HMODULE_16(hModule
), HRSRC_16(hRsrc
) );
623 if (!hRsrc
) return 0;
624 return ((PIMAGE_RESOURCE_DATA_ENTRY
)hRsrc
)->Size
;
628 /***********************************************************************
629 * BeginUpdateResourceA (KERNEL32.@)
631 HANDLE WINAPI
BeginUpdateResourceA( LPCSTR pFileName
, BOOL bDeleteExistingResources
)
633 FIXME("(%s,%d): stub\n",debugstr_a(pFileName
),bDeleteExistingResources
);
634 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
639 /***********************************************************************
640 * BeginUpdateResourceW (KERNEL32.@)
642 HANDLE WINAPI
BeginUpdateResourceW( LPCWSTR pFileName
, BOOL bDeleteExistingResources
)
644 FIXME("(%s,%d): stub\n",debugstr_w(pFileName
),bDeleteExistingResources
);
645 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
650 /***********************************************************************
651 * EndUpdateResourceA (KERNEL32.@)
653 BOOL WINAPI
EndUpdateResourceA( HANDLE hUpdate
, BOOL fDiscard
)
655 FIXME("(%p,%d): stub\n",hUpdate
, fDiscard
);
656 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
661 /***********************************************************************
662 * EndUpdateResourceW (KERNEL32.@)
664 BOOL WINAPI
EndUpdateResourceW( HANDLE hUpdate
, BOOL fDiscard
)
666 FIXME("(%p,%d): stub\n",hUpdate
, fDiscard
);
667 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
672 /***********************************************************************
673 * UpdateResourceA (KERNEL32.@)
675 BOOL WINAPI
UpdateResourceA(
684 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);
689 /***********************************************************************
690 * UpdateResourceW (KERNEL32.@)
692 BOOL WINAPI
UpdateResourceW(
701 SetLastError(ERROR_CALL_NOT_IMPLEMENTED
);