Собственно Subj Вот таким кодом я пытаюсь это сделать но толку ноль возращаеться ошибка ERROR_SHARING_VIOLATION хотя при запущенном файле я могу делать с ним физически все что вздумаеться удалять, перемещать, переименовывать и даже изменять но из длл ничего не получаеться. Код (Text): mov hFile,$invoke(CreateFile,WarPath,GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0) .if hFile!=-1 mov FileSize,$invoke(GetFileSize,hFile,0) mov hFileMap,$invoke(CreateFileMapping,hFile,0,PAGE_READONLY,0,0,0) .if eax!=0 mov FileMapping,$invoke(MapViewOfFile,hFileMap,FILE_MAP_READ,0,0,0) mov edi,FileMapping assume edi:ptr IMAGE_DOS_HEADER .if [edi].e_magic==IMAGE_DOS_SIGNATURE add edi,[edi].e_lfanew assume edi:ptr IMAGE_NT_HEADERS .if [edi].Signature==IMAGE_NT_SIGNATURE mov eax,[edi].OptionalHeader.ImageBase mov ImageBase,eax mov ax,[edi].FileHeader.NumberOfSections mov NumberSection,ax add edi,sizeof IMAGE_NT_HEADERS mov ecx,sizeof IMAGE_SECTION_HEADER.Name1 mov esi,offset NameSection repe cmpsb sub edi,sizeof IMAGE_SECTION_HEADER.Name1 .if zero? assume edi:ptr IMAGE_SECTION_HEADER mov eax,[edi].VirtualAddress mov WarRVA,eax mov eax,[edi].SizeOfRawData mov WarSizeOfData,eax .endif .endif .else push $CTA0("Can't mapping file") call ErrorMEssage mov Error,1 ret .endif .else push $CTA0("Can't create map file") call ErrorMEssage mov Error,1 ret .endif .else push $CTA0("Can't open file") call ErrorMEssage mov Error,1 ret .endif ret
