[Back to FILES SWAG index] [Back to Main SWAG index] [Original]

    {
    Altho it doesn't have the write & readthat yours has, I just found no need,
    esp. cuz I was using "COPY PROGRAM.EXE + DATA.FIL NEWPROG.EXE".
    }
    Unit ExeEnd;

    Interface

    Uses Dos;

    Var EndOfExe, SizeOfData: LongInt;
        Data: Boolean;

      Function GetExeInfo(Const Name: PathStr; var Data: Boolean; var EndOfExe,
        SizeOfData: LongInt): Boolean;

    Implementation

    Function GetExeInfo(Const Name: PathStr; var Data: Boolean; var EndOfExe,
      SizeOfData: LongInt): Boolean;
    Const CorrectExe=$5A4D; {'MZ'}
    Var Header: Array[1..3] of Word; {ID, ByteMod, Pages}
        F: File;
        ReadIn: Word;
    Begin
      Data:=False;
      EndOfExe:=0;
      SizeOfData:=0;
      If Name='.' then Exit;
      Assign(F, Name);
      {$I-} Reset(F, 1); {$I+}
      If IOResult=0 then Begin
        BlockRead(F, Header, SizeOf(Header), ReadIn);
        If (ReadIn=SizeOf(Header)) and (Header[1]=CorrectExe) then
          EndOfExe:=LongInt(Header[3]-1)*512+Header[2];
        SizeOfData:=FileSize(F)-EndOfExe;
        Close(F);
        Data:=SizeOfData>0;
        GetExeInfo:=True;
      End Else GetExeInfo:=False;
    End;

    Begin
      If Lo(DosVersion)>=3 then GetExeInfo(ParamStr(0), Data, EndOfExe,
        SizeOfData) Else GetExeInfo('.', Data, EndOfExe, SizeOfData);
    End.

[Back to FILES SWAG index] [Back to Main SWAG index] [Original]