С ресурсами работают иначе.
Вот пример сохранения из ресурса в фаил.
| Код |
Function ExtractFromRes2File(ResType,ResName,SaveTo:PChar):Boolean;
var
ResourceLocation: HRSRC;
ResDataHandle: THandle;
FileHandle: THandle;
ResourceSize,byteswritten: Longword;
ResourcePointer: PChar;
begin
Result:=false;
ResourceLocation := FindResource(HInstance,PChar(ResName),ResType);
if ResourceLocation = 0 then exit;
ResourceSize := SizeofResource(HInstance,ResourceLocation);
if ResourceSize = 0 then exit;
ResDataHandle := LoadResource(HInstance,ResourceLocation);
if ResDataHandle = 0 then exit;
ResourcePointer := LockResource(ResDataHandle);
if ResourcePointer = NIL then exit;
FileHandle := CreateFile(SaveTo,GENERIC_WRITE,FILE_SHARE_WRITE,NIL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
if FileHandle = INVALID_HANDLE_VALUE then exit;
WriteFile(FileHandle,ResourcePointer^,ResourceSize,byteswritten,NIL);
CloseHandle(FileHandle);
Result:=true;
end;
|
|