确定是WINDOWS的可执行文件

  • 来源: 互联网 作者: 若水   2008-03-17/16:59
  •   在文件的第24字节,如果为40h,就是Windows的可执行文件。
    Function WinExe(ByVal Exe As String) As Integer
    Dim fh As Integer
    Dim t As String*1
    fh=FreeFile
    Open Exe For Binary As #fh
    Getfh,25,t
    Close #fh
    WinExe=(Asc(t)=&H40&)
    End Function

    评论 {{userinfo.comments}}

    {{money}}

    {{question.question}}

    A {{question.A}}
    B {{question.B}}
    C {{question.C}}
    D {{question.D}}
    提交

    驱动号 更多