VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 确定是 WINDOWS 的可执行文件
发表评论(0)作者:, 平台:, 阅读:12869, 日期:2000-03-12
确定是 WINDOWS 的可执行文件 98-6-17

在文件的第 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

Get fh, 25, t

Close #fh

WinExe = (Asc(t) = &H40&)

End Function