Помогите найти этот инклудовский файл для того, чтобы у меня скомпилировался проект. Я перелазил весь интернет и его не нашел. Компилим программу - аналог команды DIR. Она ищет в указанной директории файлы по маске и выводит результат с атрибутами файлов. Код (Text): ;Инклудовский файл include windows.inc include user32.inc include kernel32.inc include masm32.inc include C:\MASM32\MACROS\strings.mac includelib kernel32.lib includelib masm32.lib includelib user32.lib Main PROTO .data FileAttr BYTE "--ad-shr" CurrentFileAttr BYTE "-------- " CurrentFileDate BYTE "00/00/0000 " CurrentFileTime BYTE "00:00:00",0 .data? hFindNextFile DWORD ? DirInfo WIN32_FIND_DATA <> DateTimeInfo SYSTEMTIME <> CurrentFileName BYTE MAX_PATH+4 dup(?) CurrentFileSize BYTE 10 dup(?) ;Код программы .386 .model flat, stdcall option casemap :none include lst.inc .code start: invoke Main invoke ExitProcess,0 Main proc LOCAL Buffer[MAX_PATH+1]:BYTE invoke AllocConsole invoke GetCL, 1, ADDR Buffer .if eax!=1 mov dword ptr Buffer, 002A2E2Ah ;*.* .endif invoke FindFirstFile,ADDR Buffer, ADDR DirInfo ;WIN32_FIND_DATA STRUCT ; dwFileAttributes DWORD ? ; ftCreationTime FILETIME <> ; ftLastAccessTime FILETIME <> ; ftLastWriteTime FILETIME <> ; nFileSizeHigh DWORD ? ; nFileSizeLow DWORD ? ; dwReserved0 DWORD ? ; dwReserved1 DWORD ? ; cFileName BYTE MAX_PATH dup(?) ; cAlternate BYTE 14 dup(?) ;WIN32_FIND_DATA ENDS .if eax== INVALID_HANDLE_VALUE invoke StdOut, $CTA0("File not found ") invoke StdOut, ADDR Buffer ret .endif mov hFindNextFile, eax .REPEAT mov ebx,DirInfo.dwFileAttributes lea esi,FileAttr lea edi,CurrentFileAttr mov dword ptr [edi],"----" mov dword ptr [edi+4],"----" mov ecx,8 @@: lodsb shl bl,1 .if CARRY? stosb .elseif inc edi .endif loop @B invoke FileTimeToSystemTime,ADDR DirInfo.ftCreationTime, ADDR DateTimeInfo ;SYSTEMTIME STRUCT ; wYear WORD ? ; wMonth WORD ? ; wDayOfWeek WORD ? ; wDay WORD ? ; wHour WORD ? ; wMinute WORD ? ; wSecond WORD ? ; wMilliseconds WORD ? ;SYSTEMTIME ENDS lea edi,CurrentFileDate mov ax, DateTimeInfo.wDay aam xchg al,ah or ax,3030h mov word ptr [edi],ax mov ax, DateTimeInfo.wMonth aam xchg al,ah or ax,3030h mov word ptr [edi+3],ax xor ebx,ebx mov bx, DateTimeInfo.wYear lea edi,[edi+6] invoke dwtoa, ebx, edi mov byte ptr [edi+4],20h mov ax, DateTimeInfo.wHour aam xchg al,ah or ax,3030h mov word ptr CurrentFileTime,ax mov ax, DateTimeInfo.wMinute aam xchg al,ah or ax,3030h mov word ptr CurrentFileTime+3,ax mov ax, DateTimeInfo.wSecond aam xchg al,ah or ax,3030h mov word ptr CurrentFileTime+6,ax invoke StdOut, ADDR CurrentFileAttr mov ebx, DirInfo.nFileSizeLow lea edi,Buffer lea esi,CurrentFileSize invoke dwtoa, ebx, esi invoke lstrlen,esi mov ecx,11 sub ecx,eax mov ebx,eax mov al,20h rep stosb lea esi,CurrentFileSize mov ecx,ebx rep movsb mov word ptr [edi],20h invoke StdOut, ADDR Buffer lea esi,CurrentFileName invoke CharToOem, ADDR DirInfo.cFileName,esi invoke lstrlen,esi mov dword ptr [esi+eax],0A0Dh invoke StdOut, esi invoke FindNextFile,hFindNextFile,ADDR DirInfo .UNTIL eax==FALSE ret Main endp end start
