You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
818 lines
24 KiB
818 lines
24 KiB
#include <windows.h>
|
|
#include <windowsx.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
#include "filever.h"
|
|
|
|
// command line flags
|
|
UINT fFlags = 0;
|
|
|
|
VOID
|
|
usage(CHAR *szProgName)
|
|
{
|
|
puts ("Prints file version information.\n");
|
|
printf("%s [/S] [/V] [/E] [/X] [/B] [/A] [/D] [[drive:][path][filename]]\n", szProgName);
|
|
puts ("\n"
|
|
"/S\tDisplays files in specified directory and all subdirectories.\n"
|
|
"/V\tList verbose version information if available.\n"
|
|
"/E\tList executables only.\n"
|
|
"/X\tDisplays short names generated for non-8dot3 file names.\n"
|
|
"/B\tUses bare format (no dir listing).\n"
|
|
"/A\tDon't display file attributes.\n"
|
|
"/D\tDon't display file date and time."
|
|
#ifdef DEBUG
|
|
"\n/z\tPrint debug messages."
|
|
#endif
|
|
);
|
|
}
|
|
|
|
int __cdecl
|
|
main(INT argc, CHAR **argv)
|
|
{
|
|
INT i;
|
|
LPTSTR szT;
|
|
UINT cDirs = 0;
|
|
|
|
if (argc < 2)
|
|
{
|
|
usage(argv[0]);
|
|
exit(0);
|
|
}
|
|
|
|
// Loop through and process all the args
|
|
for(i = 1; i < argc; ++i)
|
|
{
|
|
if(argv[i][0] != '/' && argv[i][0] != '-')
|
|
{
|
|
cDirs++;
|
|
continue;
|
|
}
|
|
|
|
for(szT = &argv[i][1]; *szT; ++szT)
|
|
{
|
|
switch(*szT)
|
|
{
|
|
#ifdef DEBUG
|
|
case 'z':
|
|
fFlags |= FSTR_DEBUG;
|
|
break;
|
|
#endif
|
|
case 'l':
|
|
case 'L':
|
|
// provided for compatability (list format is default now)
|
|
break;
|
|
case 'd':
|
|
case 'D':
|
|
fFlags |= FSTR_NODATETIME;
|
|
break;
|
|
case 'a':
|
|
case 'A':
|
|
fFlags |= FSTR_NOATTRS;
|
|
break;
|
|
case 'b':
|
|
case 'B':
|
|
fFlags |= FSTR_BAREFORMAT;
|
|
break;
|
|
case 'x':
|
|
case 'X':
|
|
fFlags |= FSTR_SHORTNAME;
|
|
break;
|
|
case 'S':
|
|
case 's':
|
|
fFlags |= (FSTR_RECURSE | FSTR_PRINTDIR);
|
|
break;
|
|
case 'V':
|
|
case 'v':
|
|
fFlags |= FSTR_VERBOSE;
|
|
break;
|
|
case 'e':
|
|
case 'E':
|
|
fFlags |= FSTR_EXESONLY;
|
|
break;
|
|
case '?':
|
|
case 'h':
|
|
case 'H':
|
|
usage(argv[0]);
|
|
exit(0);
|
|
default:
|
|
printf("Invalid flag specified: (-%c)\n", *szT);
|
|
usage(argv[0]);
|
|
exit(-1);
|
|
}
|
|
}
|
|
}
|
|
|
|
#ifdef DEBUG
|
|
if(fFlags & FSTR_DEBUG)
|
|
printf("DBG> Command line dir count: %d\n", cDirs);
|
|
#endif
|
|
|
|
// If they didn't specify a dir, default to current one
|
|
if(!cDirs)
|
|
{
|
|
argc = 2;
|
|
argv[1] = ".";
|
|
}
|
|
else if(cDirs > 1)
|
|
{
|
|
// turn on dir printing if we have more than one dir
|
|
fFlags |= FSTR_PRINTDIR;
|
|
}
|
|
|
|
// if we have bareformat on, turn dir printing off
|
|
if(fFlags & FSTR_BAREFORMAT)
|
|
fFlags &= ~FSTR_PRINTDIR;
|
|
|
|
for(i = 1; i < argc; ++i)
|
|
{
|
|
DWORD dwAttr;
|
|
LPTSTR szDir = NULL;
|
|
LPTSTR szPat = NULL;
|
|
TCHAR szFullPath[MAX_PATH + 1];
|
|
TCHAR szPattern[MAX_PATH + 1];
|
|
|
|
// skip flags
|
|
if(argv[i][0] == '/' || argv[i][0] == '-')
|
|
continue;
|
|
|
|
// Grab de dir
|
|
szDir = argv[i];
|
|
|
|
// get the full path to our dir
|
|
if(GetFullPathName(szDir, MAX_PATH, szFullPath, &szT)) {
|
|
szDir = szFullPath;
|
|
} else {
|
|
lstrcpy(szFullPath, szDir);
|
|
szDir = szFullPath;
|
|
}
|
|
|
|
dwAttr = GetFileAttributes(szDir);
|
|
|
|
#ifdef NEVER
|
|
// If it's not a directory or -1, assume a single file and flip on verbose
|
|
if(!(fFlags & FSTR_RECURSE) && !FA_DIR(dwAttr))
|
|
fFlags |= FSTR_VERBOSE;
|
|
#endif
|
|
|
|
// If GetFileAttributes failed or it isn't a directory, grab the pattern
|
|
if((dwAttr == (DWORD)-1) || !FA_DIR(dwAttr))
|
|
{
|
|
for(szT = szDir; *szT; szT++)
|
|
{
|
|
if(*szT == '\\')
|
|
szPat = szT;
|
|
}
|
|
|
|
if(szPat)
|
|
*szPat++ = 0;
|
|
}
|
|
|
|
// make sure we have a pattern
|
|
if(!szPat || !*szPat)
|
|
szPat = "*.*";
|
|
lstrcpy(szPattern, szPat);
|
|
|
|
FListFiles(szDir, szPattern);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
BOOL
|
|
FListFiles(LPTSTR szDir, LPTSTR szPat)
|
|
{
|
|
HANDLE hf;
|
|
WIN32_FIND_DATA fd;
|
|
UINT cchDir;
|
|
TCHAR szFileName[MAX_PATH + 1];
|
|
BOOL fPrintedDir = !(fFlags & FSTR_PRINTDIR);
|
|
|
|
#ifdef DEBUG
|
|
if(fFlags & FSTR_DEBUG)
|
|
printf("DBG> FListFiles('%s', '%s')\n", szDir, szPat);
|
|
#endif
|
|
|
|
// Get short name if that's what they want
|
|
if(fFlags & FSTR_SHORTNAME)
|
|
GetShortPathName(szDir, szDir, MAX_PATH);
|
|
|
|
// Get dir length and add trailing '\' if not there
|
|
cchDir = lstrlen(szDir);
|
|
if(szDir[cchDir - 1] != '\\')
|
|
{
|
|
szDir[cchDir++] = '\\';
|
|
szDir[cchDir] = 0;
|
|
}
|
|
|
|
// Concat pattern to dir
|
|
CharLower(szDir);
|
|
lstrcpy(szFileName, szDir);
|
|
lstrcpy(&szFileName[cchDir], szPat);
|
|
|
|
// list all the files
|
|
hf = FindFirstFile(szFileName, &fd);
|
|
if(hf != INVALID_HANDLE_VALUE)
|
|
{
|
|
do
|
|
{
|
|
DWORD lBinaryType;
|
|
BOOL fIsDir = FA_DIR(fd.dwFileAttributes);
|
|
|
|
if(fIsDir && (fd.cFileName[0] == '.'))
|
|
{
|
|
// skip . and ..
|
|
if(!fd.cFileName[1] ||
|
|
((fd.cFileName[1] == '.') && !fd.cFileName[2]))
|
|
continue;
|
|
}
|
|
|
|
CharLower(fd.cFileName);
|
|
lstrcpy(&szFileName[cchDir], fd.cFileName);
|
|
|
|
// get type of file
|
|
lBinaryType = MyGetBinaryType(szFileName);
|
|
if(!(fFlags & FSTR_EXESONLY) || (lBinaryType != SCS_UNKOWN))
|
|
{
|
|
// Print out our dir name
|
|
if(!fPrintedDir)
|
|
{
|
|
printf("\t%s%s\n", szDir, szPat);
|
|
fPrintedDir = TRUE;
|
|
}
|
|
|
|
// file attributes
|
|
if(!(fFlags & FSTR_NOATTRS))
|
|
PrintFileAttributes(fd.dwFileAttributes);
|
|
// file type
|
|
PrintFileType(lBinaryType);
|
|
// version
|
|
PrintFileVersion(szFileName);
|
|
// size & date
|
|
if(!(fFlags & FSTR_NODATETIME))
|
|
PrintFileSizeAndDate(&fd);
|
|
// print file name
|
|
printf(fIsDir ? " [%s%s]\n" : " %s%s\n",
|
|
fFlags & FSTR_BAREFORMAT ? szDir : "",
|
|
((fFlags & FSTR_SHORTNAME) && fd.cAlternateFileName[0]) ?
|
|
fd.cAlternateFileName : fd.cFileName);
|
|
|
|
// print verbose info if this isn't a dir
|
|
// Win95 also craps out on dos files so ignore those too
|
|
if((fFlags & FSTR_VERBOSE) &&
|
|
(lBinaryType != SCS_UNKOWN) &&
|
|
(lBinaryType != SCS_DOS_BINARY))
|
|
GetVersionStuff(szFileName, NULL, NULL);
|
|
}
|
|
} while(FindNextFile(hf, &fd));
|
|
|
|
FindClose(hf);
|
|
}
|
|
|
|
// dive into all the subdirs
|
|
if(fFlags & FSTR_RECURSE)
|
|
{
|
|
// Concat pattern to dir
|
|
lstrcpy(&szFileName[cchDir], "*.*");
|
|
|
|
hf = FindFirstFile(szFileName, &fd);
|
|
if(hf != INVALID_HANDLE_VALUE)
|
|
{
|
|
do
|
|
{
|
|
if(FA_DIR(fd.dwFileAttributes))
|
|
{
|
|
if(fd.cFileName[0] == '.')
|
|
{
|
|
if(!fd.cFileName[1] ||
|
|
((fd.cFileName[1] == '.') && !fd.cFileName[2]))
|
|
continue;
|
|
}
|
|
|
|
// create new dir name and dive in
|
|
lstrcpy(&szFileName[cchDir], fd.cFileName);
|
|
FListFiles(szFileName, szPat);
|
|
}
|
|
} while(FindNextFile(hf, &fd));
|
|
|
|
FindClose(hf);
|
|
}
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
#define PrintFlagsMap(_structname, _flags) \
|
|
for(iType = 0; iType < sizeof(_structname)/sizeof(TypeTag); iType++) \
|
|
{ \
|
|
if((_flags) & _structname[iType].dwTypeMask) \
|
|
printf(" %s", _structname[iType].szFullStr); \
|
|
}
|
|
|
|
#define PrintFlagsVal(_structname, _flags) \
|
|
for(iType = 0; iType < sizeof(_structname)/sizeof(TypeTag); iType++) \
|
|
{ \
|
|
if((_flags) == _structname[iType].dwTypeMask) \
|
|
{ \
|
|
printf(" %s", _structname[iType].szFullStr); \
|
|
break; \
|
|
} \
|
|
}
|
|
|
|
VOID
|
|
PrintFixedFileInfo(VS_FIXEDFILEINFO *pvs)
|
|
{
|
|
UINT iType;
|
|
|
|
printf("\tVS_FIXEDFILEINFO:\n");
|
|
printf("\tSignature:\t%08.8lx\n", pvs->dwSignature);
|
|
printf("\tStruc Ver:\t%08.8lx\n", pvs->dwStrucVersion);
|
|
printf("\tFileVer:\t%08.8lx:%08.8lx (%d.%d:%d.%d)\n",
|
|
pvs->dwFileVersionMS, pvs->dwFileVersionLS,
|
|
HIWORD(pvs->dwFileVersionMS), LOWORD(pvs->dwFileVersionMS),
|
|
HIWORD(pvs->dwFileVersionLS), LOWORD(pvs->dwFileVersionLS));
|
|
printf("\tProdVer:\t%08.8lx:%08.8lx (%d.%d:%d.%d)\n",
|
|
pvs->dwProductVersionMS, pvs->dwProductVersionLS,
|
|
HIWORD(pvs->dwProductVersionMS), LOWORD(pvs->dwProductVersionMS),
|
|
HIWORD(pvs->dwProductVersionLS), LOWORD(pvs->dwProductVersionLS));
|
|
|
|
printf("\tFlagMask:\t%08.8lx\n", pvs->dwFileFlagsMask);
|
|
printf("\tFlags:\t\t%08.8lx", pvs->dwFileFlags);
|
|
PrintFlagsMap(ttFileFlags, pvs->dwFileFlags);
|
|
|
|
printf("\n\tOS:\t\t%08.8lx", pvs->dwFileOS);
|
|
PrintFlagsVal(ttFileOsHi, pvs->dwFileOS & 0xffff000);
|
|
PrintFlagsVal(ttFileOsLo, LOWORD(pvs->dwFileOS));
|
|
|
|
printf("\n\tFileType:\t%08.8lx", pvs->dwFileType);
|
|
PrintFlagsVal(ttFType, pvs->dwFileType);
|
|
|
|
printf("\n\tSubType:\t%08.8lx", pvs->dwFileSubtype);
|
|
if(pvs->dwFileType == VFT_FONT)
|
|
{
|
|
PrintFlagsVal(ttFTypeFont, pvs->dwFileSubtype);
|
|
}
|
|
else if(pvs->dwFileType == VFT_DRV)
|
|
{
|
|
PrintFlagsVal(ttFTypeDrv, pvs->dwFileSubtype);
|
|
}
|
|
printf("\n\tFileDate:\t%08.8lx:%08.8lx\n", pvs->dwFileDateMS, pvs->dwFileDateLS);
|
|
}
|
|
|
|
|
|
typedef struct tagVERHEAD {
|
|
WORD wTotLen;
|
|
WORD wValLen;
|
|
WORD wType; /* always 0 */
|
|
WCHAR szKey[(sizeof("VS_VERSION_INFO")+3)&~03];
|
|
VS_FIXEDFILEINFO vsf;
|
|
} VERHEAD ;
|
|
|
|
/*
|
|
* [alanau]
|
|
*
|
|
* MyGetFileVersionInfo: Maps a file directly without using LoadLibrary. This ensures
|
|
* that the right version of the file is examined without regard to where the loaded image
|
|
* is. Since this is a local function, it allocates the memory which is freed by the caller.
|
|
* This makes it slightly more efficient than a GetFileVersionInfoSize/GetFileVersionInfo pair.
|
|
*/
|
|
BOOL
|
|
MyGetFileVersionInfo(LPTSTR lpszFilename, LPVOID *lpVersionInfo)
|
|
{
|
|
VS_FIXEDFILEINFO *pvsFFI = NULL;
|
|
UINT uiBytes = 0;
|
|
HINSTANCE hinst;
|
|
HRSRC hVerRes;
|
|
HANDLE FileHandle = NULL;
|
|
HANDLE MappingHandle = NULL;
|
|
LPVOID DllBase = NULL;
|
|
VERHEAD *pVerHead;
|
|
BOOL bResult = FALSE;
|
|
DWORD dwHandle;
|
|
DWORD dwLength;
|
|
|
|
if (!lpVersionInfo)
|
|
return FALSE;
|
|
|
|
*lpVersionInfo = NULL;
|
|
|
|
FileHandle = CreateFile( lpszFilename,
|
|
GENERIC_READ,
|
|
FILE_SHARE_READ,
|
|
NULL,
|
|
OPEN_EXISTING,
|
|
0,
|
|
NULL
|
|
);
|
|
if (FileHandle == INVALID_HANDLE_VALUE)
|
|
goto Cleanup;
|
|
|
|
MappingHandle = CreateFileMapping( FileHandle,
|
|
NULL,
|
|
PAGE_READONLY,
|
|
0,
|
|
0,
|
|
NULL
|
|
);
|
|
|
|
if (MappingHandle == NULL)
|
|
goto Cleanup;
|
|
|
|
DllBase = MapViewOfFileEx( MappingHandle,
|
|
FILE_MAP_READ,
|
|
0,
|
|
0,
|
|
0,
|
|
NULL
|
|
);
|
|
if (DllBase == NULL)
|
|
goto Cleanup;
|
|
|
|
hinst = (HMODULE)((ULONG_PTR)DllBase | 0x00000001);
|
|
__try {
|
|
|
|
hVerRes = FindResource(hinst, MAKEINTRESOURCE(VS_VERSION_INFO), VS_FILE_INFO);
|
|
if (hVerRes == NULL)
|
|
{
|
|
// Probably a 16-bit file. Fall back to system APIs.
|
|
if(!(dwLength = GetFileVersionInfoSize(lpszFilename, &dwHandle)))
|
|
{
|
|
if(!GetLastError())
|
|
SetLastError(ERROR_RESOURCE_DATA_NOT_FOUND);
|
|
__leave;
|
|
}
|
|
|
|
if(!(*lpVersionInfo = GlobalAllocPtr(GHND, dwLength)))
|
|
__leave;
|
|
|
|
if(!GetFileVersionInfo(lpszFilename, 0, dwLength, *lpVersionInfo))
|
|
__leave;
|
|
|
|
bResult = TRUE;
|
|
__leave;
|
|
}
|
|
|
|
pVerHead = (VERHEAD*)LoadResource(hinst, hVerRes);
|
|
if (pVerHead == NULL)
|
|
__leave;
|
|
|
|
*lpVersionInfo = GlobalAllocPtr(GHND, pVerHead->wTotLen + pVerHead->wTotLen/2);
|
|
if (*lpVersionInfo == NULL)
|
|
__leave;
|
|
|
|
memcpy(*lpVersionInfo, (PVOID)pVerHead, pVerHead->wTotLen);
|
|
bResult = TRUE;
|
|
} __except (EXCEPTION_EXECUTE_HANDLER) {
|
|
}
|
|
|
|
Cleanup:
|
|
if (FileHandle)
|
|
CloseHandle(FileHandle);
|
|
if (MappingHandle)
|
|
CloseHandle(MappingHandle);
|
|
if (DllBase)
|
|
UnmapViewOfFile(DllBase);
|
|
if (*lpVersionInfo && bResult == FALSE)
|
|
GlobalFreePtr(*lpVersionInfo);
|
|
|
|
return bResult;
|
|
}
|
|
|
|
|
|
DWORD
|
|
GetVersionStuff(LPTSTR szFileName, DWORD *pdwLangRet, VS_FIXEDFILEINFO *pvsRet)
|
|
{
|
|
LPVOID lpInfo;
|
|
TCHAR key[80];
|
|
DWORD dwLength;
|
|
LPVOID lpvData = NULL;
|
|
DWORD *pdwTranslation;
|
|
UINT i, iType, cch, uLen;
|
|
VS_FIXEDFILEINFO *pvs;
|
|
DWORD dwDefLang = 0x409;
|
|
|
|
if(!MyGetFileVersionInfo(szFileName, &lpvData))
|
|
goto err;
|
|
|
|
if(!VerQueryValue(lpvData, "\\VarFileInfo\\Translation", &pdwTranslation, &uLen))
|
|
{
|
|
if(!pdwLangRet)
|
|
printf("\t- No \\VarFileInfo\\Translation, assuming %08lx\n", dwDefLang);
|
|
pdwTranslation = &dwDefLang;
|
|
uLen = sizeof(DWORD);
|
|
}
|
|
|
|
if(pdwLangRet)
|
|
{
|
|
*pdwLangRet = *pdwTranslation;
|
|
goto fixedfileinfo;
|
|
}
|
|
|
|
while(uLen)
|
|
{
|
|
// Language
|
|
printf("\tLanguage\t0x%04x", LOWORD(*pdwTranslation));
|
|
if(VerLanguageName(LOWORD(*pdwTranslation), key, sizeof(key) / sizeof(TCHAR)))
|
|
printf(" (%s)", key);
|
|
printf("\n");
|
|
|
|
// CharSet
|
|
printf("\tCharSet\t\t0x%04x", HIWORD(*pdwTranslation));
|
|
for(iType = 0; iType < sizeof(ltCharSet)/sizeof(CharSetTag); iType++)
|
|
{
|
|
if(HIWORD(*pdwTranslation) == ltCharSet[iType].wCharSetId)
|
|
printf(" %s", ltCharSet[iType].szDesc);
|
|
}
|
|
printf("\n");
|
|
|
|
tryagain:
|
|
wsprintf(key, "\\StringFileInfo\\%04x%04x\\",
|
|
LOWORD(*pdwTranslation), HIWORD(*pdwTranslation));
|
|
|
|
lstrcat(key, "OleSelfRegister");
|
|
printf("\t%s\t%s\n", "OleSelfRegister",
|
|
VerQueryValue(lpvData, key, &lpInfo, &cch) ? "Enabled" : "Disabled");
|
|
|
|
for(i = 0; i < (sizeof(VersionKeys) / sizeof(VersionKeys[0])); i++)
|
|
{
|
|
wsprintf(key, "\\StringFileInfo\\%04x%04x\\",
|
|
LOWORD(*pdwTranslation), HIWORD(*pdwTranslation));
|
|
lstrcat(key, VersionKeys[i]);
|
|
|
|
if(VerQueryValue(lpvData, key, &lpInfo, &cch))
|
|
{
|
|
lstrcpy(key, VersionKeys[i]);
|
|
key[15] = 0;
|
|
printf("\t%s\t%s\n", key, lpInfo);
|
|
}
|
|
}
|
|
|
|
// if the Lang is neutral, go try again with the default lang
|
|
// (this seems to work with msspell32.dll)
|
|
if(LOWORD(*pdwTranslation) == 0)
|
|
{
|
|
pdwTranslation = &dwDefLang;
|
|
goto tryagain;
|
|
}
|
|
|
|
uLen -= sizeof(DWORD);
|
|
pdwTranslation++;
|
|
printf("\n");
|
|
}
|
|
|
|
fixedfileinfo:
|
|
if(!VerQueryValue(lpvData, "\\", (LPVOID *)&pvs, &uLen))
|
|
goto err;
|
|
|
|
if(pvsRet)
|
|
*pvsRet = *pvs;
|
|
else
|
|
PrintFixedFileInfo(pvs);
|
|
|
|
err:
|
|
dwLength = GetLastError();
|
|
if(dwLength &&
|
|
(dwLength != ERROR_RESOURCE_DATA_NOT_FOUND) &&
|
|
(dwLength != ERROR_RESOURCE_TYPE_NOT_FOUND) &&
|
|
!pvsRet)
|
|
{
|
|
PrintErrorMessage(dwLength, NULL);
|
|
}
|
|
|
|
if(lpvData)
|
|
GlobalFreePtr(lpvData);
|
|
return dwLength;
|
|
}
|
|
|
|
DWORD
|
|
MyGetBinaryType(LPTSTR szFileName)
|
|
{
|
|
HANDLE hFile;
|
|
DWORD cbRead;
|
|
IMAGE_DOS_HEADER img_dos_hdr;
|
|
PIMAGE_OS2_HEADER pimg_os2_hdr;
|
|
IMAGE_NT_HEADERS img_nt_hdrs;
|
|
DWORD lFileType = SCS_UNKOWN;
|
|
|
|
if((hFile = CreateFile(szFileName, GENERIC_READ, FILE_SHARE_READ, NULL,
|
|
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)) == INVALID_HANDLE_VALUE)
|
|
goto err;
|
|
|
|
if(!ReadFile(hFile, &img_dos_hdr, sizeof(img_dos_hdr), &cbRead, NULL))
|
|
goto err;
|
|
|
|
if(img_dos_hdr.e_magic != IMAGE_DOS_SIGNATURE)
|
|
goto err;
|
|
lFileType = SCS_DOS_BINARY;
|
|
|
|
if(SetFilePointer(hFile, img_dos_hdr.e_lfanew, 0, FILE_BEGIN) == -1)
|
|
goto err;
|
|
if(!ReadFile(hFile, &img_nt_hdrs, sizeof(img_nt_hdrs), &cbRead, NULL))
|
|
goto err;
|
|
if((img_nt_hdrs.Signature & 0xffff) == IMAGE_OS2_SIGNATURE)
|
|
{
|
|
pimg_os2_hdr = (PIMAGE_OS2_HEADER)&img_nt_hdrs;
|
|
switch(pimg_os2_hdr->ne_exetyp)
|
|
{
|
|
case NE_OS2:
|
|
lFileType = SCS_OS216_BINARY;
|
|
break;
|
|
case NE_DEV386:
|
|
case NE_WINDOWS:
|
|
lFileType = SCS_WOW_BINARY;
|
|
break;
|
|
case NE_DOS4:
|
|
case NE_UNKNOWN:
|
|
default:
|
|
// lFileType = SCS_DOS_BINARY;
|
|
break;
|
|
}
|
|
}
|
|
else if(img_nt_hdrs.Signature == IMAGE_NT_SIGNATURE)
|
|
{
|
|
switch(img_nt_hdrs.OptionalHeader.Subsystem)
|
|
{
|
|
case IMAGE_SUBSYSTEM_OS2_CUI:
|
|
lFileType = SCS_OS216_BINARY;
|
|
break;
|
|
case IMAGE_SUBSYSTEM_POSIX_CUI:
|
|
lFileType = SCS_POSIX_BINARY;
|
|
break;
|
|
case IMAGE_SUBSYSTEM_NATIVE:
|
|
case IMAGE_SUBSYSTEM_WINDOWS_GUI:
|
|
case IMAGE_SUBSYSTEM_WINDOWS_CUI:
|
|
default:
|
|
switch(img_nt_hdrs.FileHeader.Machine)
|
|
{
|
|
case IMAGE_FILE_MACHINE_I386:
|
|
lFileType = SCS_32BIT_BINARY_INTEL;
|
|
break;
|
|
case IMAGE_FILE_MACHINE_R3000:
|
|
case IMAGE_FILE_MACHINE_R4000:
|
|
lFileType = SCS_32BIT_BINARY_MIPS;
|
|
break;
|
|
case IMAGE_FILE_MACHINE_ALPHA:
|
|
lFileType = SCS_32BIT_BINARY_ALPHA;
|
|
break;
|
|
case IMAGE_FILE_MACHINE_ALPHA64:
|
|
lFileType = SCS_32BIT_BINARY_AXP64;
|
|
break;
|
|
case IMAGE_FILE_MACHINE_IA64:
|
|
lFileType = SCS_32BIT_BINARY_IA64;
|
|
break;
|
|
case IMAGE_FILE_MACHINE_POWERPC:
|
|
lFileType = SCS_32BIT_BINARY_PPC;
|
|
break;
|
|
case IMAGE_FILE_MACHINE_AMD64:
|
|
lFileType = SCS_32BIT_BINARY_AMD64;
|
|
break;
|
|
default:
|
|
case IMAGE_FILE_MACHINE_UNKNOWN:
|
|
lFileType = SCS_32BIT_BINARY;
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
|
|
err:
|
|
if(hFile != INVALID_HANDLE_VALUE)
|
|
CloseHandle(hFile);
|
|
return lFileType;
|
|
}
|
|
|
|
VOID __cdecl
|
|
PrintErrorMessage(DWORD dwError, LPTSTR szFmt, ...)
|
|
{
|
|
LPTSTR szT;
|
|
va_list arglist;
|
|
LPTSTR szErrMessage = NULL;
|
|
|
|
FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
|
|
NULL, dwError, 0/*LANG_USER_DEFAULT*/, (LPTSTR)&szErrMessage, 0, NULL);
|
|
if(szFmt && szErrMessage)
|
|
{
|
|
for(szT = szErrMessage; *szT; szT++)
|
|
{
|
|
if(*szT == '\r' || *szT == '\n')
|
|
*szT = 0;
|
|
}
|
|
}
|
|
|
|
printf("Error 0x%08lx. %s", dwError, szErrMessage ? szErrMessage : "");
|
|
|
|
if(szFmt)
|
|
{
|
|
va_start(arglist, szFmt);
|
|
vprintf(szFmt, arglist);
|
|
va_end(arglist);
|
|
}
|
|
|
|
if(szErrMessage)
|
|
LocalFree((HLOCAL)szErrMessage);
|
|
}
|
|
|
|
VOID
|
|
PrintFileType(DWORD lBinaryType)
|
|
{
|
|
LPCTSTR szFmtFileType = " - ";
|
|
|
|
if(lBinaryType < (sizeof(szType) / sizeof(szType[0])))
|
|
szFmtFileType = szType[lBinaryType];
|
|
printf("%s", szFmtFileType);
|
|
}
|
|
|
|
VOID
|
|
PrintFileAttributes(DWORD dwAttr)
|
|
{
|
|
DWORD dwT;
|
|
static const FileAttr attrs[] =
|
|
{{FILE_ATTRIBUTE_DIRECTORY, 'd'},
|
|
{FILE_ATTRIBUTE_READONLY, 'r'},
|
|
{FILE_ATTRIBUTE_ARCHIVE, 'a'},
|
|
{FILE_ATTRIBUTE_HIDDEN, 'h'},
|
|
{FILE_ATTRIBUTE_SYSTEM, 's'} };
|
|
TCHAR szAttr[(sizeof(attrs) / sizeof(attrs[0])) + 1];
|
|
|
|
for(dwT = 0; dwT < (sizeof(attrs) / sizeof(attrs[0])); dwT++)
|
|
szAttr[dwT] = (dwAttr & attrs[dwT].dwAttr) ? attrs[dwT].ch : '-';
|
|
szAttr[dwT] = 0;
|
|
|
|
printf("%s ", szAttr);
|
|
}
|
|
|
|
VOID
|
|
PrintFileSizeAndDate(WIN32_FIND_DATA *pfd)
|
|
{
|
|
FILETIME ft;
|
|
SYSTEMTIME st = {0};
|
|
TCHAR szSize[15];
|
|
|
|
szSize[0] = 0;
|
|
if(FileTimeToLocalFileTime(&pfd->ftLastWriteTime, &ft) &&
|
|
FileTimeToSystemTime(&ft, &st))
|
|
{
|
|
TCHAR szVal[15];
|
|
NUMBERFMT numfmt = {0, 0, 3, "", ",", 0};
|
|
|
|
wsprintf(szVal, "%ld", pfd->nFileSizeLow); //$ SPEED
|
|
GetNumberFormat(GetUserDefaultLCID(), 0, szVal, &numfmt, szSize, 15);
|
|
}
|
|
|
|
printf(" %10s %02d-%02d-%02d", szSize, st.wMonth, st.wDay, st.wYear);
|
|
}
|
|
|
|
VOID
|
|
PrintFileVersion(LPTSTR szFileName)
|
|
{
|
|
VS_FIXEDFILEINFO vs = {0};
|
|
INT iType;
|
|
DWORD dwLang;
|
|
TCHAR szBuffer[100];
|
|
|
|
dwLang = (DWORD)-1;
|
|
vs.dwFileVersionMS = (DWORD)-1;
|
|
vs.dwFileVersionLS = (DWORD)-1;
|
|
GetVersionStuff(szFileName, &dwLang, &vs);
|
|
dwLang = LOWORD(dwLang);
|
|
|
|
szBuffer[0] = 0;
|
|
for(iType = 0; iType < sizeof(ttFType) / sizeof(TypeTag); iType++)
|
|
{
|
|
if(vs.dwFileType == ttFType[iType].dwTypeMask)
|
|
{
|
|
printf("%3.3s ", ttFType[iType].szTypeStr);
|
|
break;
|
|
}
|
|
}
|
|
if(iType == (sizeof(ttFType) / sizeof(TypeTag)))
|
|
printf(" - ");
|
|
|
|
for(iType = 0; iType < sizeof(ltLang) / sizeof(LangTag); iType++)
|
|
{
|
|
if(dwLang == ltLang[iType].wLangId)
|
|
{
|
|
printf("%3.3s ", ltLang[iType].szKey);
|
|
break;
|
|
}
|
|
}
|
|
if(iType == (sizeof(ltLang) / sizeof(LangTag)))
|
|
printf(" - ");
|
|
|
|
if(vs.dwFileVersionMS != (DWORD)-1)
|
|
{
|
|
wsprintf(szBuffer, "%u.%u.%u.%u %s",
|
|
HIWORD(vs.dwFileVersionMS),
|
|
LOWORD(vs.dwFileVersionMS),
|
|
HIWORD(vs.dwFileVersionLS),
|
|
LOWORD(vs.dwFileVersionLS),
|
|
vs.dwFileFlags & VS_FF_DEBUG ? "dbg" : "shp");
|
|
}
|
|
else
|
|
{
|
|
lstrcpy(szBuffer, "- -");
|
|
}
|
|
|
|
printf(" %18.18s", szBuffer);
|
|
}
|