ASM Community

      .386
      .model flat, stdcall
      option casemap :none
      
      WinMain      PROTO :DWORD, :DWORD, :DWORD, :DWORD
      TopXY        PROTO :DWORD, :DWORD
      Paint_Proc   PROTO :DWORD, :DWORD
      NewWindow    PROTO :DWORD,:DWORD,:DWORD,:DWORD
      MoveMemory   PROTO

      include    \masm32\include\windows.inc
      include    \masm32\include\user32.inc
      include    \masm32\include\kernel32.inc
      include    \masm32\include\shell32.inc
      includelib \masm32\lib\user32.lib
      includelib \masm32\lib\kernel32.lib
      includelib \masm32\lib\shell32.lib

InsertColumn MACRO handle,txt,width
      LOCAL lbl
      LOCAL strng
      jmp lbl
      strng db txt,0
  lbl:
      mov col.imask,LVCF_TEXT or LVCF_WIDTH
      mov col.fmt,0
      mov col.lx,width
      mov col.pszText,offset strng
      invoke lstrlen,offset strng
      mov col.cchTextMax,eax
      invoke SendMessage,handle,LVM_INSERTCOLUMN,0,addr col
ENDM

.const
ListViewID equ 1001

.data
ClassName     db "SimpleWindowClass",0
ListViewClassName db "sysListview32",0
EditClassName db "Edit",0
WindowName    db "Ad Smasher",0


fMtStrinG db "%1u",0


.data?
hInstance   HWND  ?
hWnd        HWND  ?
hListView   HWND  ?
col         LVCOLUMN      <>
XXX           NMHEADER         <>
ZZZ           NMHDR <>
hEdit       HANDLE ?

buffer db 512 dup(?)
TotalItems dd ?




.code
start:
      invoke GetModuleHandle, NULL
      mov hInstance, eax
      invoke WinMain,hInstance,NULL,NULL,SW_SHOWDEFAULT
      invoke ExitProcess,eax
WinMain proc hInst:DWORD, hPrevInst:DWORD, CmdLine:DWORD, CmdShow:DWORD
      LOCAL wc   :WNDCLASSEX
      LOCAL msg  :MSG
      LOCAL Wwd  :DWORD
      LOCAL Wht  :DWORD
      LOCAL Wtx  :DWORD
      LOCAL Wty  :DWORD
 
      invoke LoadIcon,hInst,IDI_APPLICATION
      mov wc.hIcon,          eax
      mov wc.hIconSm,        eax
      mov wc.cbSize,         sizeof WNDCLASSEX
      mov wc.style,          CS_HREDRAW + CS_VREDRAW + CS_BYTEALIGNWINDOW
      mov wc.lpfnWndProc,    offset WndProc
      mov wc.cbClsExtra,     NULL
      mov wc.cbWndExtra,     NULL
      push hInst
      pop wc.hInstance
      mov wc.hbrBackground,  COLOR_BTNFACE+1
      mov wc.lpszMenuName,   NULL
      mov wc.lpszClassName,  offset ClassName
      invoke LoadCursor,NULL,IDC_ARROW
      mov wc.hCursor,        eax
     
      invoke RegisterClassEx, ADDR wc

      ;================================
      ; Centre window at following size
      ;================================

      mov Wwd, 500
      mov Wht, 350

      invoke GetSystemMetrics,SM_CXSCREEN
      invoke TopXY,Wwd,eax
      mov Wtx, eax

      invoke GetSystemMetrics,SM_CYSCREEN
      invoke TopXY,Wht,eax
      mov Wty, eax

      invoke CreateWindowEx,WS_EX_LEFT,
                            ADDR ClassName,
                            ADDR WindowName,
                            WS_OVERLAPPEDWINDOW,
                            Wtx,Wty,Wwd,Wht,
                            NULL,
                            NULL,
                            hInst,
                            NULL
      mov   hWnd,eax

      invoke LoadMenu,hInst,600
      invoke SetMenu,hWnd,eax

      invoke ShowWindow,hWnd,SW_SHOWNORMAL
      invoke UpdateWindow,hWnd

      .WHILE TRUE
          INVOKE GetMessage, ADDR msg,NULL,0,0
          .BREAK .IF (!eax)
          INVOKE TranslateMessage, ADDR msg
          INVOKE DispatchMessage, ADDR m