Создать exe без сторонних программ

.386
.model flat,stdcall
option casemap:none
; #########################################################################
 
;======================
;  Библиотеки и файлы
;======================
include  \masm32\include\windows.inc
include  \masm32\include\user32.inc
include  \masm32\include\kernel32.inc
include  \masm32\include\comctl32.inc
include  \masm32\include\shell32.inc    ; Добавление файла shell32.inc
include  \masm32\include\ole32.inc      ; Добавление файла ole32.inc
include  \MASM32\INCLUDE\comdlg32.inc
include  \MASM32\INCLUDE\masm32.inc
 
includelib  \masm32\lib\comctl32.lib
includelib  \masm32\lib\user32.lib
includelib  \masm32\lib\kernel32.lib
includelib  \masm32\lib\shell32.lib     ; Добавление библиотеки shell32
includelib  \masm32\lib\ole32.lib       ; Добавление библиотеки ole32
includelib  \MASM32\LIB\comdlg32.lib
includelib  \MASM32\LIB\masm32.lib
; #########################################################################
 
;=====================
;  Прототипы функций
;=====================
WinMain proto :DWORD,:DWORD,:DWORD
WinProc proto :DWORD,:DWORD,:DWORD,:DWORD
;ShowFileInfo  proto :DWORD,:DWORD
;FillFileInfo  proto :DWORD
;InsertColumn  proto
;_BrowseFolderCallBack1 proto :DWORD,:DWORD,:DWORD,:DWORD
func1 proto :HWND
func2 proto
; #########################################################################
 
_Year equ 2014
_Month equ 1
_Day equ 1
;========================
;  Идентификаторы кнопок
;========================
bn1_id equ 501
bn2_id equ 502
; #########################################################################
 
;=============
;  Константы
;=============
.const
    szAll db "*.*",0
    empty db " ",0
    Heading1  db "Название файла",0
    Heading2  db "Атрибуты",0
    ListViewClassName  db "SysListView32",0
    szListBox db "LISTBOX",0
    szButton db "BUTTON",0
    szEdit db "EDIT",0
    szStatic db "STATIC",0
    szBn1 db "Обзор...",0
    szBn2 db "Сделать всё хорошо",0
    szClassName db "Class1",0
    szWindowName db "lab4",0
    mescopy db "Файл скопирован",0
    mesmove db "Файл перемещён",0
    format db "Год создания: %d",0
; #########################################################################
 
;===========
;  Макросы
;===========
RGB macro red,green,blue
    xor  eax,eax
    mov  ah,blue
    shl  eax,8
    mov  ah,green
    mov  al,red
endm
m2m MACRO M1, M2
  push M2
  pop M1
ENDM
; #########################################################################
 
;==========
;  Данные
;==========
.data
    szArc db 4 dup(?),0  ;Аттрибут файла
    szFill db "----",0   ;Строка, которая служит за основу для аттрибута
    szSlashB  db "\",0
    bri  BROWSEINFO <>   ; Структура для обзора папок
; неинициализированные переменные:
    hInstance HINSTANCE ? ; идентификатор нашего процесса
    CommandLine LPSTR ? ; командная строка
    hEdit1 HWND ? ; дескриптор окна текстового поля
    hEdit2 HWND ? ; дескриптор окна текстового поля
    hList HWND ? ; дескриптор окна списка
    lpLstBox DWORD ? ; указатель на предыдущую функцию ListBoxProc
    szBuffer db 128 dup(?) ; текстовый буфер
    szFile db 260 dup(?) ; буфер для имени файла
    wYear dw ?
    wMonth dw ?
    wDay dw ?
; #########################################################################
 
;=======
;  Код
;=======
.code
start:
    invoke GetModuleHandle, NULL ; получение идентификатора процесса
    mov hInstance, eax
    invoke GetCommandLine ; получение указателя командной строки
    mov CommandLine, eax
    invoke WinMain,hInstance,NULL,CommandLine ; вызов основной функции
    invoke ExitProcess,eax ; выход из программы (с кодом возврата в eax)
; #########################################################################
 
;=====================
;  Процедура WinMain
;=====================
WinMain proc hInst:HINSTANCE, hPrevInst:HINSTANCE, CmdLine:LPSTR
    ; локальные переменные:
    LOCAL wc:WNDCLASSEX ; класс окна
    LOCAL msg:MSG       ; структура сообщения
    LOCAL hwnd:HWND     ; дескриптор окна
    ;=================================================
    ; Заполнение и регистрация класса окна WNDCLASSEX
    ;=================================================
    mov wc.cbSize,SIZEOF WNDCLASSEX ; размер структуры 4*12 байтов
    ; стиль окна, предусматривающий перерисовку
    ; при вертикальном и горизонтальном движении
    mov wc.style, CS_HREDRAW or CS_VREDRAW
    mov wc.lpfnWndProc, OFFSET WndProc ; функция-обработчик событий окна
    mov wc.cbClsExtra,NULL ; число дополнительных байтов
    mov wc.cbWndExtra,NULL ; число дополнительных байтов
    push hInst
    pop wc.hInstance ; идентификатор нашего процесса
    mov wc.hbrBackground,COLOR_BTNFACE+1 ; идентификатор кисти (или цвет фона+1)
    mov wc.lpszMenuName,NULL ; ресурс с основным меню
    mov wc.lpszClassName,OFFSET szClassName ; имя класса
    invoke LoadIcon,NULL,IDI_APPLICATION
    mov wc.hIcon,eax ; идентификатор иконки
    mov wc.hIconSm,NULL ; идентификатор маленькой иконки (должен быть 0)
    invoke LoadCursor,NULL,IDC_ARROW
    mov wc.hCursor,eax ; идентификатор курсора
    invoke RegisterClassEx, addr wc ; регистрация класса
    ;===============
    ; Создание окна
    ;===============
    ; Параметры функции CreateWindowEx:
    ; 1. дополнительный стиль (0 - по умолчанию)
    ; 2. наш зарегистрированный класс
    ; 3. заголовок окна
    ; 4. стиль окна (стандартное изменяемое по размеру окно
    ; с системными кнопками)
    ; 5. x-координата (CW_USEDEFAULT - по умолчанию)
    ; 6. y-координата (по умолчанию)
    ; 7. ширина окна
    ; 8. высота окна
    ; 9. идентификатор окна-предка
    ; 10. идентификатор меню или окна-потомка
    ; 11. идентификатор процесса, который будет получать сообщения от окна
    ; 12. адрес структуры CREATESTRUCT (не используется)
    invoke CreateWindowEx, 0, ADDR szClassName, ADDR szWindowName, WS_OVERLAPPEDWINDOW,
        CW_USEDEFAULT, CW_USEDEFAULT, 500, 400, 0, 0, hInst, 0
    mov hwnd,eax
    ;==================
    ; Отображение окна
    ;==================
    invoke ShowWindow,hwnd,SW_SHOWNORMAL ; показать окно
    invoke UpdateWindow,hwnd ; и послать ему сообщение WM_PAINT
    ;==========================
    ; Цикл обработки сообщений
    ;==========================
    message_loop:
        invoke GetMessage,ADDR msg,0,0,0 ; получить сообщение от окна
        test eax,eax ; если получено WM_QUIT, GetMessage вернет ноль
        jz exit_msg_loop ; выйти
        ; иначе - преобразовать сообщения типа WM_KEYUP
        ; в сообщения типа WM_CHAR
        invoke TranslateMessage,ADDR msg
        invoke DispatchMessage,ADDR msg ; и послать их оконной функции
        jmp short message_loop ; продолжить цикл
    exit_msg_loop:
    mov eax,msg.wParam ; код возврата
    ret
WinMain endp
; #########################################################################
 
;===============================
;  Главная оконная процедура
;===============================
WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
    LOCAL szbuffer1[256]:BYTE
    .IF uMsg == WM_DESTROY
        invoke PostQuitMessage,0 ; послать WM_QUIT
    .ELSEIF uMsg == WM_CREATE
        ;invoke  CreateWindowEx, NULL, addr ListViewClassName, NULL,
        ;   LVS_REPORT+WS_CHILD+WS_VISIBLE,13,73,450,264,hWnd, NULL, hInstance, NULL
        ;mov  hList, eax
        ;invoke  InsertColumn
        RGB  0,0,0
        invoke  SendMessage,hList,LVM_SETTEXTCOLOR,0,eax
        RGB  255,255,255
        invoke  SendMessage,hList,LVM_SETBKCOLOR,0,eax
        RGB  255,255,255
        invoke  SendMessage,hList,LVM_SETTEXTBKCOLOR,0,eax
        ;===============================
        ; Создание текстового поля Edit
        ;===============================
        ; ES_AUTOHSCROLL - автоматический сдвиг символов влево
        ; при нехватке места для текста,
        ; ES_NOHIDESEL - отключает скрытие выделения при
        ; переходе к другому элементу управления
        ; Текстовое поле 1
        invoke CreateWindowEx,0,ADDR szEdit,0,
            WS_BORDER or WS_VISIBLE or WS_CHILDWINDOW or \
            ES_AUTOHSCROLL or ES_NOHIDESEL,15,15,400,20,
            hWnd, 0,hInstance,0
        mov hEdit1,eax ; дескриптор окна Edit
        ; Текстовое поле 2
        ;~ invoke CreateWindowEx,0,ADDR szEdit,0,
            ;~ WS_BORDER or WS_VISIBLE or WS_CHILDWINDOW or \
            ;~ ES_AUTOHSCROLL or ES_NOHIDESEL,132,45,350,20,
            ;~ hWnd, 0,hInstance,0
        ;~ mov hEdit2,eax ; дескриптор окна Edit
        ;=================
        ; Создание кнопок
        ;=================
        ; Кнопка 1
        invoke CreateWindowEx,0, ADDR szButton,ADDR szBn1,
            WS_CHILD or WS_VISIBLE,420,15,60,20,hWnd,
            bn1_id, hInstance,0
        ; Кнопка 2
        ;~ invoke CreateWindowEx,0, ADDR szButton,ADDR szBn2,
            ;~ WS_CHILD or WS_VISIBLE,15,40,200,20,hWnd,
            ;~ bn2_id, hInstance,0  
    .ELSEIF uMsg == WM_COMMAND
        .IF wParam == bn1_id ;нажата кнопка
            invoke func1, hWnd
        .ELSEIF wParam == bn2_id
            invoke func2
                ;~ invoke SendMessage,hList,LVM_DELETEALLITEMS,0,0; Очищаем содержимое ListBox
                ;~ invoke  SendMessage,hEdit1,WM_GETTEXT,sizeof szbuffer1,addr szbuffer1
                ;~ invoke  lstrcat,addr szbuffer1,addr szSlashB
                ;~ invoke FillFileInfo,addr szbuffer1
        .ENDIF
    .ELSE
        ; для остальных сообщений - обработчик по умолчанию
        invoke DefWindowProc,hWnd,uMsg,wParam,lParam
        ret
    .ENDIF
    xor eax,eax
    ret
WndProc endp
; ######################################################################
 
;==================================================
;  Процедура вызова диалогового окна
;==================================================
func1 proc hWnd:HWND ; Процедура чего-то там...
    LOCAL ofs:OPENFILENAME  ;структура стандартного диалогового окна
    LOCAL t:DWORD;:FILETIME
    LOCAL tt:DWORD;FILETIME
    LOCAL ttt:DWORD;FILETIME
    LOCAL time:SYSTEMTIME  ;время создания файла
    LOCAL time2:SYSTEMTIME  ;время создания файла
    LOCAL buffer[100]:BYTE
    invoke RtlZeroMemory, Addr ofs, SizeOf ofs
    mov ofs.lStructSize,sizeof ofs
    push hWnd
    pop ofs.hwndOwner
    mov ofs.nMaxFile, sizeof szFile
    mov eax, offset szFile
    mov ofs.lpstrFile,eax     
    ;mov ofs.lpstrFileTitle,NULL
    ;mov ofs.nMaxFileTitle,NULL
    ;mov ofs.lpstrInitialDir,NULL
    mov ofs.Flags,OFN_PATHMUSTEXIST or OFN_FILEMUSTEXIST
    invoke GetOpenFileName,addr ofs
    invoke SendMessage,hEdit1,WM_SETTEXT,0,addr szFile
    ;xnj gbcfkjcm c nheljv ljk;yj gjybvfnmcz c nheljv)
    invoke CreateFile, addr szFile, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0
    ;в eax лежит дескриптор
    invoke GetFileTime, eax, t, tt, ttt
    invoke FileTimeToSystemTime, addr t, addr time
    ;invoke SystemTimeToTzSpecificLocalTime, NULL, addr time, addr time2
        
    invoke CloseHandle, eax 
    ;~ m2m wYear, time.wYear
    ;~ m2m wMonth, time.wMonth
    ;~ m2m wDay, time.wDay
    invoke wsprintf, addr buffer, addr format, addr time.wYear
    invoke MessageBox, 0, addr buffer, addr szFile, MB_OK
    ret
 
    .if time.wYear<_Year
        .if time.wMonth<_Month
            .if time.wDay<_Day
                invoke MessageBox, 0, addr mesmove, addr szFile, MB_OK
                ret
            .endif
        .endif
    .endif
    invoke MessageBox, 0, addr mescopy, addr szFile, MB_OK
    ret 
func1 endp 
; ######################################################################
 
func2 proc
    ;~ .if wYear<_wYear && wMonth<_wMonth && wDay<_wDay
        ;~ invoke MessageBox, 0, addr mesmove, addr szFile, MB_OK
    ;~ .else
        ;~ invoke MessageBox, 0, addr mescopy, addr szFile, MB_OK
    ;~ .endif
    ;~ ret 
func2 endp
 
 
end start