xsharp.eu

Code: Select all

static bool LargeAware(string file) {
        using (var fs = File.Open(file, FileMode.Open, FileAccess.ReadWrite, FileShare.None)) {
            bool b = LargeAware(fs);
            fs.Close();
            return b;
        }
    }

    const int IMAGE_FILE_LARGE_ADDRESS_AWARE = 0x20;
    static bool LargeAware(Stream stream) {

        var br = new BinaryReader(stream);
        var bw = new BinaryWriter(stream);

        if (br.ReadInt16() != 0x5A4D)       //No MZ Header 
            return false;

        br.BaseStream.Position = 0x3C;
        var peloc = br.ReadInt32();         //Get the PE header location.

        br.BaseStream.Position = peloc;
        if (br.ReadInt32() != 0x4550)       //No PE header
            return false;

        br.BaseStream.Position += 0x12;
        long nFilePos = (int)br.BaseStream.Position;
        Int16 nLgaInt = br.ReadInt16();
        bool bIsLGA = (nLgaInt & IMAGE_FILE_LARGE_ADDRESS_AWARE) == IMAGE_FILE_LARGE_ADDRESS_AWARE;
        if (bIsLGA)
            return true;
        nLgaInt |= IMAGE_FILE_LARGE_ADDRESS_AWARE;
        long nFilePos1 = bw.Seek((int)nFilePos, SeekOrigin.Begin);
        bw.Write(nLgaInt);
        bw.Flush();
        long nFilePos2 = br.BaseStream.Seek(nFilePos, SeekOrigin.Begin);
        nLgaInt = br.ReadInt16();
        bIsLGA = (nLgaInt & IMAGE_FILE_LARGE_ADDRESS_AWARE) == IMAGE_FILE_LARGE_ADDRESS_AWARE;
        return bIsLGA;
    }

Code: Select all

USING System
USING System.Collections.Generic
USING System.Linq
USING System.Text
USING System.IO

BEGIN NAMESPACE XSharpMakeLargeAddressAware
    #DEFINE IMAGE_FILE_LARGE_ADDRESS_AWARE 0x20
    
    FUNCTION Start() AS VOID
           MakeLargeAware("c:somefolderprogramname.exe")   // replace with your own exe path   
    return     

    function MakeLargeAware(file as string) as logic
        
            LOCAL b AS LOGIC
            
            begin using var fs := File.Open(file, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
        
                b := LargeAware(fs)
                fs.Close()                
            end using
    return b    

       
        function LargeAware(stream as Stream) as logic
       

            var br := BinaryReader{stream}
            var bw := BinaryWriter{stream}

            if (br.ReadInt16() != 0x5A4D)       //No MZ Header
                return false
            ENDIF
            
            br:BaseStream:Position := 0x3C
            var peloc := br:ReadInt32()         //Get the PE header location.

            br:BaseStream:Position := peloc
            if (br.ReadInt32() != 0x4550)       //No PE header
                return false
            ENDIF
            
            br:BaseStream:Position += 0x12
            local nFilePos := (int)br:BaseStream:Position as longint
            local nLgaInt := br:ReadInt16() as SHORT
            local bIsLGA := (_And(nLgaInt, IMAGE_FILE_LARGE_ADDRESS_AWARE) == IMAGE_FILE_LARGE_ADDRESS_AWARE) AS LOGIC
            if (bIsLGA)
                RETURN TRUE
            ENDIF
            
            nLgaInt |= IMAGE_FILE_LARGE_ADDRESS_AWARE
            local nFilePos1 := bw:Seek((int)nFilePos, SeekOrigin.Begin) as int64
            bw.Write(nLgaInt)
            bw.Flush()
            local nFilePos2 := br:BaseStream:Seek(nFilePos, SeekOrigin.Begin) as int64
            nLgaInt := br:ReadInt16()
            bIsLGA := (nLgaInt & IMAGE_FILE_LARGE_ADDRESS_AWARE) == IMAGE_FILE_LARGE_ADDRESS_AWARE
            return bIsLGA
    
END NAMESPACE