<!-- begin banner code -->

<table bgcolor="#000000" align="center" border="0" cellpadding="1" cellspacing="0" width="728">
<tr>
<td width="100%">
    <table background="/nf-images/nf_back.gif" border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#E7E7E7">
    <tr>
 
        <td width="10%">
        <a href="http://www.netfirms.com"><img alt="Free Web Hosting by Netfirms" align="absmiddle" border="0" src="/nf-images/Freewebhosting.gif" width="184" height="24"></a><br />
        </td>

        <td width="90%">

        <font size="2"><a href="http://www.netfirms.com">Web Hosting by <b>Netfirms</b></a> | <a href="http://www.netfirms.com/domain-names">Free Domain Names by <b>Netfirms</b></a></font>
        </td>

    </tr>
    </table>   
    
</td>
</tr>
</table>

<table align="center" border="0" cellpadding="1" cellspacing="0" width="728">
<tr>
<td width="100%">

<img src="/nf-images/freewebhosting.webhosting.asis" width="1" height="3"><br />

<script type="text/javascript"><!--
google_ad_client = "pub-3488059345083622";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "text_image";
google_ad_channel = "";
google_color_border = "FFFFFF";
google_color_bg = "FFFFFF";
google_color_link = "0000FF";
google_color_text = "000000";
google_color_url = "008000";
//-->
</script>
<script type="text/javascript"
 src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>


</td>
</tr>
</table>

<!-- end banner code -->
;-DropMany v0.2 ----------------------------------------------------------
;          x86 - Dos & Win32 - Assembly Language Programming                ;
;                                                                           ;
; Written by: John A Lyons (megablast)                                      ;
; Email     : asm@megablast.8k.com                                          ;
; Page      : http://asmsource.cjb.com/                                     ;
; Compiler  : Masm32 v6.15 Microsoft Macro Assembler                        ;
; Date      : 21-Nov-2001                                                   ;
; Purpose   : Prints a list of droppped files, and allows various 	    ;
;             operations to be done on them.                                ;
;                                                                           ;
;                                                                           ;
;----------------------------------------------------------------------------


.386
.MODEL	FLAT, STDCALL

include windows.inc
include user32.inc
include kernel32.inc
include comctl32.inc
include gdi32.inc
includelib kernel32.lib
includelib user32.lib
includelib comctl32.lib
includelib gdi32.lib
include shell32.inc
includelib shell32.lib
include advapi32.inc
includelib advapi32.lib

;---------- procedures declared later

HyperLinkWndProc PROTO :HWND, :DWORD, :DWORD, :DWORD
regget           proto regstring:DWORD
regset           proto regstring:DWORD,number:DWORD
WinMain          PROTO hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdShow:SDWORD

CompareFunc proto lParam1:DWORD, lParam2:DWORD, SortType:DWORD
CompareNum  proto lParam1:DWORD, lParam2:DWORD, SortType:DWORD

.CONST

IDI_ICON1       equ 5
IDC_TAB1        EQU 1011

;------------------------- buttons
IDC_EXIT        equ 3002
IDM_REFRESH     equ 2

;------------------------- menu
IDM_EXIT        equ 1
IDM_ABOUT       equ 4
IDM_ONTOP       equ 5
IDM_GRID        equ 3

;------------------------- About
IDC_URL         equ 9
IDI_CUR1        equ 101
IDI_BITMAP      equ 102

;------------------------- Search

IDC_EDIT1       equ 1012
IDC_EDIT2       equ 1013
IDC_EDIT3       equ 1019
IDC_EDIT4       equ 1020
IDC_EDIT5       equ 1025
IDC_EDIT6       equ 1026
IDC_PARENT      equ 1027
IDC_APPL        equ 1028
IDC_STYLE       equ 1029
IDC_EXSTYLE     equ 1030
IDC_LIST        equ 1014
IDC_REFRESH     equ 1015
IDC_UPDATE      equ 1016
IDD_LOAD        equ 507
IDC_NAMED       equ 1021
IDC_ABOUT       equ 1011


IDC_VISIBLE     equ 1017
IDC_VIS         equ 1022
IDC_ENABLE      equ 1018

mvisible        db "Visible",0
menabled	db "Enabled",0
mnamed          db "Named",0
mkill           db "Kill",0
montop          db "Always Ontop",0
mnottop         db "Not Ontop",0
mflash          db "Flash",0
mmin            db "Minimize",0
mmax            db "Maximize",0
mres            db "Restore",0

LVM_SETEXTENDEDLISTVIEWSTYLE    equ LVM_FIRST+54
LVS_EX_FULLROWSELECT            equ 20h
LVS_EX_GRIDLINES                equ 1h
WS_EX_LAYERED                   equ 80000
LWA_ALPHA                       equ 2

.DATA

lmenu           dd ?
wmenu           dd ?
mmenu           dd ?
sorted		dd ?

hwndcur		HWND ?

MainDlgName     DB "MAINWINDOW",0
aboutdialog     DB "ABOUTDIALOG",0
MenuName        db "TheMenu",0

sortdir         db 1
searchcount     dd 0
num2            db "%lu",0
num3            db "(%lu,%lu)",0

hInstance       HINSTANCE ?
CommandLine     LPSTR ?
mem1            db "Load %%%lu",0
runcount1       db "Searches %lu",0
buff            db 256 dup(?)
menuhand        DWORD ?
first           BOOL FALSE

;------------------------- Options
windowmove      BOOL TRUE

;------------------------- Popup Menu
IDM_UPDATE       equ 3

ontop           db "Always On Top",0
grid            db "Gridlines",0
about           db "About",0
exit            db "Exit",0


;------------------------- About
hover           BOOL ?
szOpen          db "open",0

hFinger   dd ?
orgStatic dd ?

tabwin          dd ?
newload         BOOL TRUE
memoryload      dd ?
mainhwnd        HANDLE ?
ontopb          BOOL TRUE

wp              WINDOWPLACEMENT <?>
ItemStruct      TC_ITEM                 <?>
WhichTabChosen  DWORD                   ?


;-------------------------------- Registry
regstring2      db "SearchCount",0
regstring1      db "xpos",0
regstring3      db "ypos",0
regflags        db "flags",0
sortflags	db "sortflags",0
subkeyname      db "Software\DropMany",0
xpos            dd NULL
ypos            dd NULL
namedb          BOOL ?
visibleb        BOOL ?
gridon          BOOL ?
flags           dd 0
sortcol		dd 0
temp		dd 0

IDB_MAIN        equ 102

;-------------------------------- List Box
hlistview       dd ?
szname          db "Name",0
szatt           db "Att",0
szsize         db "Size (bytes)",0
szadd           db "add me",0
szid            db "Full Path",0
szleft          db "Left",0
sztop           db "(Left,Top)",0
szright         db "Right",0
szbottom        db "(Right,Bottom)",0
szhandle	db "Handle",0

icc             INITCOMMONCONTROLSEX <sizeof INITCOMMONCONTROLSEX, ICC_LISTVIEW_CLASSES>

listno          dd ?
totallist      dd ?


.CODE

start:


	INVOKE GetModuleHandle, NULL
	MOV    hInstance,EAX
	INVOKE WinMain, hInstance,NULL,SW_SHOWDEFAULT
	INVOKE ExitProcess,EAX

WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdShow:SDWORD

        invoke  InitCommonControlsEx, ADDR icc
        MOV EAX, OFFSET DlgProc
        INVOKE DialogBoxParam, hInst, OFFSET MainDlgName,NULL,EAX,NULL
        mov eax,hInst
        mov hInstance,eax

	RET

WinMain endp


HyperLinkWndProc PROC uses ebx, hWnd:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD
	LOCAL tmpFont  :LOGFONT
	LOCAL rect:RECT
	LOCAL pt:POINT
	LOCAL ps:PAINTSTRUCT

    mov eax,uMsg
    .IF eax==WM_NCHITTEST
	     mov eax, 1
	     ret

    .ELSEIF eax == WM_CTLCOLORSTATIC
		push ebx
		push edx

		invoke SendMessage, hWnd, WM_GETFONT, 0, 0
		mov edx,eax
		invoke GetObject, edx, sizeof LOGFONT, addr tmpFont
		mov tmpFont.lfUnderline, TRUE
		invoke CreateFontIndirect, addr tmpFont
		mov ebx,eax
		invoke SelectObject, wParam, ebx

		.if hover == FALSE
		     invoke SetTextColor, wParam, Blue
		.else
		     invoke SetTextColor, wParam,Red
		.endif

		invoke GetSysColor, COLOR_MENU
		invoke SetBkColor, wParam, eax
		invoke DeleteObject,ebx
		invoke GetStockObject, HOLLOW_BRUSH
		pop edx
		pop ebx
		ret

    .ELSEIF eax==WM_MOUSEMOVE
	invoke GetParent,hWnd
	push ebx
	mov ebx,eax
	invoke GetActiveWindow
	.if eax == ebx
		invoke GetCursorPos,addr pt
		invoke GetWindowRect,hWnd,addr rect
		invoke PtInRect,addr rect,pt.x,pt.y
	  .if eax
		invoke GetCapture
		.if !eax
		    invoke SetCapture,hWnd
		    mov hover,TRUE
		    invoke InvalidateRect,hWnd,FALSE,FALSE
		    invoke SetCursor,hFinger

		.endif
	 .else
		invoke GetCapture

		.if eax
		    invoke ReleaseCapture
		    mov hover,FALSE
		    invoke InvalidateRect,hWnd,FALSE,FALSE
		.endif

	 .endif
       .endif
       pop ebx
       xor eax,eax
       ret

    .ELSEIF eax==WM_LBUTTONDOWN

	    invoke GetWindowText,hWnd,offset buff,sizeof buff
	    invoke ShellExecute, NULL, offset szOpen, offset buff, NULL, NULL, SW_MAXIMIZE
	    mov hover,FALSE
	    invoke InvalidateRect,hWnd,FALSE,FALSE

	    invoke SendMessage, hWnd, WM_GETFONT, 0, 0
	    mov edx,eax
	    invoke GetObject, edx, sizeof LOGFONT, addr tmpFont
	    mov tmpFont.lfUnderline, TRUE
	    invoke CreateFontIndirect, addr tmpFont
	    mov ebx,eax
	    invoke SelectObject, wParam, ebx
	    invoke SetTextColor, wParam, Blue


	    xor eax,eax
	    ret
    .ENDIF

    invoke CallWindowProc, orgStatic, hWnd, uMsg, wParam, lParam
    ret

HyperLinkWndProc endp
AboutDlgProc PROC hWnd:HWND,iMsg:DWORD,wParam:WPARAM, lParam:LPARAM
	 LOCAL hdc:DWORD
	 LOCAL ps:PAINTSTRUCT
	 LOCAL rect:RECT

	mov eax,iMsg
	.if eax==WM_INITDIALOG
		invoke GetDlgItem, hWnd, IDC_URL
		invoke SetWindowLong, eax, GWL_WNDPROC, ADDR HyperLinkWndProc
		mov orgStatic,eax
		invoke LoadCursor,hInstance,IDI_CUR1
		mov hFinger,eax

                push [searchcount]
                push offset runcount1
		push offset buff
		call wsprintfA
		add esp,0ch

                invoke SendDlgItemMessage, hWnd, IDD_LOAD, WM_SETTEXT, 0,ADDR buff

		xor eax,eax
		ret

	.ELSEIF eax == WM_CTLCOLORSTATIC
		invoke SendMessage,lParam,iMsg,wParam,lParam
		ret
	.elseif eax==WM_CLOSE
aclose:
		invoke EndDialog,hWnd,NULL
                invoke DestroyWindow,hWnd

	.elseif eax==WM_COMMAND
		push edx
		mov eax,wParam
		mov edx,eax
		shr edx,16
		.if ax==IDC_EXIT
                      jmp aclose
		.endif
		pop edx
	.else
		mov eax,FALSE
		ret
	.endif
	mov  eax,TRUE
	ret
AboutDlgProc endp
AddCol proc hwndListView:DWORD, iColIndex:DWORD, iColMask:DWORD, iColFormat:DWORD, iColImage:DWORD, iColWidth:DWORD, pszColText:DWORD
        LOCAL lcNew:LVCOLUMN

        mov eax,[iColMask]
        mov [lcNew.imask],eax
        mov eax,[iColImage]
        mov [lcNew.iImage],eax
        mov eax,[iColFormat]
        mov [lcNew.fmt],eax
        mov eax,[iColWidth]
        mov [lcNew.lx],eax
        mov eax,[iColIndex]
        mov [lcNew.iSubItem],eax

	mov	eax, [pszColText]
	mov	[lcNew.pszText], eax

	invoke	lstrlen, eax
	mov	[lcNew.cchTextMax], eax
	and	[lcNew.iOrder], 0

	invoke	SendMessage, [hwndListView], LVM_INSERTCOLUMN, [iColIndex], ADDR lcNew

	ret
AddCol endp
AddItem proc hwndListView:DWORD, iItemIndex:DWORD, iSubItemIndex:DWORD, iItemMask:DWORD, iItemImage:DWORD, iItemIndent:DWORD, lParam:DWORD, pszItemText:DWORD, lenItemText:DWORD, bAction:BYTE
        LOCAL liNew:LV_ITEM

        mov eax, [iItemMask]
        mov [liNew.imask],eax

        mov eax,[iItemIndex]
        mov [liNew.iItem],eax

        mov eax, [iSubItemIndex]
        mov [liNew.iSubItem],eax

        mov eax, [iItemImage]
        mov [liNew.iImage],eax

        mov eax,[lParam]
        mov [liNew.lParam],eax

	mov	edx, [pszItemText]
	mov	[liNew.pszText], edx

	mov	eax, [lenItemText]
	mov	[liNew.cchTextMax], eax

	.if !eax
		invoke	lstrlen, edx
		mov	[liNew.cchTextMax], eax
	.endif
	and	[liNew.state], 0
	and	[liNew.stateMask], 0

	.if ![bAction]
		invoke	SendMessage, [hwndListView], LVM_INSERTITEM, 0, ADDR liNew
	.else
		invoke	SendMessage, [hwndListView], LVM_SETITEM, 0, ADDR liNew
	.endif
	ret
AddItem endp

GetItem proc hwndListView:DWORD, iItemIndex:DWORD, iSubItemIndex:DWORD, iItemMask:DWORD, pItemImage:DWORD, pItemIndent:DWORD, lpParam:DWORD, pszItemText:DWORD, lenItemText:DWORD
        LOCAL liNew:LV_ITEM

        push [iItemMask]
        pop [liNew.imask]
        push [iItemIndex]
        pop [liNew.iItem]
        push [iSubItemIndex]
        pop [liNew.iSubItem]
        push [pszItemText]
        pop [liNew.pszText]
        push [lenItemText]
        pop [liNew.cchTextMax]

	invoke	SendMessage, [hwndListView], LVM_GETITEM, 0, ADDR liNew

	ret
GetItem endp


DlgProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM

        LOCAL hdc:DWORD
        LOCAL rect:RECT
        LOCAL Disp  :DWORD
        LOCAL pKey  :DWORD
        LOCAL Temp  :DWORD
        LOCAL item  :LV_ITEM
        LOCAL windowp : WINDOWPLACEMENT
        LOCAL liNew:LV_ITEM
        LOCAL total : DWORD
        LOCAL fileno : DWORD

        mov eax,uMsg

        .if ax==WM_CLOSE
bigclose:
                invoke GetWindowRect,hWnd,ADDR rect
                mov eax,rect.top
                mov eax,rect.left

                mov eax,[searchcount]
                invoke regset,ADDR regstring2,eax
                mov eax,xpos
                invoke regset,ADDR regstring1,eax
                mov eax,ypos
                invoke regset,ADDR regstring3,eax
                mov eax,[flags]
                invoke regset,ADDR regflags,eax
                xor eax,eax
                mov al,[sortdir]
                shl eax,8
                add eax,[sortcol]
                invoke regset,ADDR sortflags,eax

                invoke DestroyMenu,[wmenu]
                invoke DestroyMenu,[lmenu]


                INVOKE ExitProcess,0
                RET
       .ELSEIF ax==WM_DROPFILES
		push ebx

                ;mov ebx,wParam
		mov [fileno],0


                invoke DragQueryFile,[wParam],-1,ADDR buff,200
                mov [total],eax
                mov [totallist],eax
                mov [listno],0

                mov ebx,0
                mov esi,15
redt:
		push ebx

                invoke DragQueryFile,[wParam],ebx,ADDR buff,100


               ; call text
                lea esi,buff
is0:
                cmp [esi],byte ptr 0
                je got0
                inc esi
                jmp is0
got0:
		cmp [esi],byte ptr "\"
		je gotslash
		dec esi
		jmp got0
gotslash:
		inc esi
		;sub esi,10


                invoke  AddItem, [hlistview], [listno], 0, LVIF_TEXT OR LVIF_PARAM, 0, 0, [listno], esi, 100, 0
                invoke  AddItem, [hlistview], [listno], 3, LVIF_TEXT, 0, 0, [listno], ADDR buff, 100, 1


                invoke CreateFile,ADDR buff,GENERIC_READ,0,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_READONLY,NULL
                push eax
                invoke GetFileSize,eax,ADDR temp
                mov ebx,eax
                pop eax
                invoke CloseHandle,eax

                push ebx
                push offset num2
                push offset buff+200
                call wsprintfA
                add esp,0ch
                invoke  AddItem, [hlistview], [listno], 1, LVIF_TEXT, 0, 0, [listno], ADDR buff+200, 50, 1

		invoke GetFileAttributes,addr buff
                ;push eax
                ;push offset num2
                ;push offset buff+200
                ;call wsprintfA
                ;add esp,0ch

		xor ecx,ecx
		mov cx,2d2dh
                test eax,FILE_ATTRIBUTE_ARCHIVE
                jz notarchive
                mov cl,"A"
notarchive:
		test eax,FILE_ATTRIBUTE_HIDDEN
		jz nothid
		mov ch,"H"
nothid:
		shl ecx,16
		add ecx,2d2dh

                test eax,FILE_ATTRIBUTE_READONLY
                jz notro
                mov cl,"R"
notro:
		test eax,FILE_ATTRIBUTE_SYSTEM
		jz notsys
		mov ch,"S"
notsys:
		lea esi,buff+200
		mov [esi],ecx
		mov [esi+4],byte ptr 0
                invoke  AddItem, [hlistview], [listno], 2, LVIF_TEXT, 0, 0, [listno], ADDR buff+200, 50, 1


		inc [listno]
                add esi,15
                pop ebx
                inc ebx
                cmp ebx,[total]
                jb redt


                ;invoke EndPaint,hWnd, ADDR ps
		pop ebx
		ret

        .ELSEIF ax==WM_SYSCOMMAND
                mov eax,[wParam]
                .IF ax==IDM_ABOUT
                    lea eax,AboutDlgProc
                    invoke CreateDialogParam,hInstance,addr aboutdialog,hWnd,eax,NULL
                .endif
                xor eax,eax
                ret

        .elseif ax==WM_MOVE
                mov eax,[lParam]
                push eax
                and eax,0ffffh
                mov [xpos],eax
                pop eax
                shr eax,16
                mov [ypos],eax
        ;.elseif ax==WM_SETFOCUS
        ;        invoke SetFocus, [hlistview]

        .elseif ax==WM_INITDIALOG

                mov eax,hWnd
                mov mainhwnd,eax

                invoke LoadMenu,hInstance,OFFSET MenuName ;600
                mov [mmenu],eax
                invoke SetMenu,hWnd,eax

                invoke LoadIcon, hInstance, IDI_ICON1
                invoke SendMessage, hWnd, WM_SETICON, ICON_SMALL, eax

                invoke regget,ADDR regstring2
                cmp eax,-1
                je notrun

		invoke regget,ADDR sortflags
		push eax
		and eax,0ffh
		mov [sortcol],eax
		add eax,20
                invoke CheckMenuItem,[mmenu],eax,MF_UNCHECKED

		pop eax
		shr eax,8
		mov [sortdir],al
		xor [sortdir],1
		call changedir


                mov [searchcount],eax
                invoke regget,ADDR regstring1
                mov xpos,eax
                invoke regget,ADDR regstring3
                mov ypos,eax
                invoke SetWindowPos,hWnd,NULL,xpos,ypos,0,0,SWP_NOSIZE+SWP_NOZORDER


                invoke regget,ADDR regflags
                mov [flags],eax

                ;invoke regget,ADDR grid
                ;mov gridon,eax


notrun:
                ;invoke GetMenu,[hWnd]
                ;mov [mmenu],eax
                invoke CreatePopupMenu
                mov [wmenu],eax
                mov eax,[searchcount]
                push eax
                push offset runcount1
                push offset buff
                call wsprintfA
                add esp,0ch
                invoke AppendMenu,wmenu,MF_STRING,IDM_GRID,ADDR grid
                invoke AppendMenu,wmenu,MF_STRING,IDM_ONTOP,ADDR ontop
                invoke AppendMenu,wmenu,MF_STRING,IDM_ABOUT,ADDR about
                invoke AppendMenu,wmenu,MF_SEPARATOR,0,0
                invoke AppendMenu,wmenu,MF_STRING,IDM_EXIT,ADDR exit

                test [flags],4
                jne notgrid
                invoke CheckMenuItem,wmenu,IDM_GRID,MF_CHECKED
notgrid:
;                test [flags],8
;                jne notontop
;                invoke CheckMenuItem,wmenu,IDM_ONTOP,MF_CHECKED
                call doontop

notontop:
                invoke CreatePopupMenu
                mov [lmenu],eax
                invoke AppendMenu,lmenu,MF_STRING,96,ADDR mmin
                ;invoke AppendMenu,lmenu,MF_STRING,97,ADDR mmax
                ;invoke AppendMenu,lmenu,MF_STRING,98,ADDR mres
                ;invoke AppendMenu,lmenu,MF_SEPARATOR,0,0
                ;invoke AppendMenu,lmenu,MF_STRING,90,ADDR montop
                ;invoke AppendMenu,lmenu,MF_STRING,91,ADDR mnottop
                ;invoke AppendMenu,lmenu,MF_STRING,92,ADDR mflash
                ;invoke AppendMenu,lmenu,MF_SEPARATOR,0,0
                ;invoke AppendMenu,lmenu,MF_STRING,99,ADDR mkill

                invoke GetSystemMenu,hWnd,FALSE
                invoke AppendMenu,eax,MF_STRING,IDM_ABOUT,ADDR about

                  invoke GetWindowRect,mainhwnd,ADDR rect
                  mov eax,rect.top
                  mov ypos,eax
                  mov eax,rect.left
                  mov xpos,eax

                invoke  GetDlgItem, [hWnd],IDC_LIST
                mov     [hlistview], eax

                invoke SendMessage, eax, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, LVS_EX_FULLROWSELECT + LVS_EX_GRIDLINES

                invoke  AddCol, [hlistview], 0, LVCF_FMT OR LVCF_WIDTH OR LVCF_TEXT OR LVCF_SUBITEM, LVCFMT_LEFT, 0, 208,ADDR szname
                invoke  AddCol, [hlistview], 1, LVCF_FMT OR LVCF_WIDTH OR LVCF_TEXT OR LVCF_SUBITEM, LVCFMT_LEFT, 0, 90,ADDR szsize
                invoke  AddCol, [hlistview], 2, LVCF_FMT OR LVCF_WIDTH OR LVCF_TEXT OR LVCF_SUBITEM, LVCFMT_LEFT, 0, 50, ADDR szatt
                invoke  AddCol, [hlistview], 3, LVCF_FMT OR LVCF_WIDTH OR LVCF_TEXT OR LVCF_SUBITEM, LVCFMT_LEFT, 0, 250, ADDR szid
                ;invoke  AddCol, [hlistview], 4, LVCF_FMT OR LVCF_WIDTH OR LVCF_TEXT OR LVCF_SUBITEM, LVCFMT_LEFT, 0, 60, ADDR sztop
                ;invoke  AddCol, [hlistview], 5, LVCF_FMT OR LVCF_WIDTH OR LVCF_TEXT OR LVCF_SUBITEM, LVCFMT_LEFT, 0, 80, ADDR szbottom
                ;invoke  AddCol, [hlistview], 6, LVCF_FMT OR LVCF_WIDTH OR LVCF_TEXT OR LVCF_SUBITEM, LVCFMT_LEFT, 0, 45, ADDR szhandle

                ;invoke windowscan,hWnd
                mov [buff],byte ptr "."
                mov [buff+1],byte ptr 0
                  invoke SendDlgItemMessage, hWnd, IDC_EDIT1,WM_SETTEXT, 0,ADDR buff

                RET


        .ELSEIF ax==WM_COMMAND
                mov eax,wParam
                .IF lParam==0
                   .IF ax==IDM_REFRESH
                        jmp refresh


                   .ELSEIF ax==IDM_UPDATE
                           xor windowmove,1

                           cmp windowmove,TRUE
                           je setupdate
                           invoke CheckMenuItem,wmenu,IDM_UPDATE,MF_UNCHECKED
                           jmp noupdate1
setupdate:
                           invoke CheckMenuItem,wmenu,IDM_UPDATE,MF_CHECKED
noupdate1:
                   .ELSEIF ax==IDM_ABOUT
bigabout:
                           lea eax,AboutDlgProc
                           invoke CreateDialogParam,hInstance,addr aboutdialog,hWnd,eax,NULL
                           xor eax,eax
                           ret

                   .ELSEIF ax==IDM_GRID
                           invoke SendMessage, [hlistview], LVM_SETEXTENDEDLISTVIEWSTYLE, 0, LVS_EX_FULLROWSELECT+1
                           ret

                   .ELSEIF ax==IDM_ONTOP
                        xor [flags],8

                        call doontop
                        xor eax,eax
                        ret

                   .ELSEIF ax==96
                        mov eax,SW_MINIMIZE;SW_SHOWMINIMIZED
dowp:
                        push eax
                        mov windowp.iLength,SIZEOF WINDOWPLACEMENT

                        invoke GetWindowPlacement,[hwndcur],ADDR windowp
                        pop eax

                        mov windowp.showCmd,eax
                        invoke SetWindowPlacement,[hwndcur],ADDR windowp
                        xor eax,eax
                        ret

                   .ELSEIF ax==97
                        mov eax,SW_SHOWMAXIMIZED
                        jmp dowp

                   .ELSEIF ax==98
                        mov eax,SW_RESTORE
                        jmp dowp
                   .ELSEIF ax==98

                   .ELSEIF ax==40
                   	mov [sortdir],1
changedir3:
                   	call changedir
        		mov eax,[sortcol]
        		add eax,20
        		call gosortit
        		ret
                   .ELSEIF ax==41
                   	mov [sortdir],0
                   	jmp changedir3
                   .ELSEIF ax==99
                           invoke SendMessage,[hwndcur],WM_CLOSE,0,0
                           xor eax,eax
                           ret

                   .ELSEIF ax==IDM_EXIT
                           jmp bigclose
                   .endif
                   cmp eax,20
                   jb notsort
                   cmp eax,27
                   ja notsort

		   cmp eax,20
		   jne nonone
		   call gosortit
		   jmp refresh
nonone:

  		   call gosortit
notsort:
  		   ret

                .ENDIF
		mov eax,wParam
		mov edx,eax
		shr edx,16
                .IF ax==IDC_REFRESH

refresh:
                        invoke SendMessage, [hlistview], LVM_DELETEALLITEMS, 0, 0

                        ret

                .ELSEIF ax==IDC_NAMED

                        xor [flags],2
                        jmp refresh
                .ELSEIF ax==IDC_EXIT
                        jmp bigclose

                .ELSEIF ax==IDC_ABOUT

                        jmp bigabout


                .ELSEIF ax==IDC_VIS
                        xor [flags],1
                        jmp refresh

                .ELSEIF ax==IDC_VISIBLE

                        invoke GetItem, [hlistview], [listno], 2, LVIF_TEXT OR LVIF_PARAM, 0, 0, [mainhwnd], ADDR buff, 3

                        invoke IsDlgButtonChecked,mainhwnd,IDC_VISIBLE

                        cmp eax,BST_UNCHECKED
                        jne ischk1
                        mov ecx,SW_HIDE
                        mov [buff],"-"
                        jmp ischk1a
ischk1:
                        mov ecx,SW_RESTORE
                        mov [buff],"V"
ischk1a:
                        invoke ShowWindow,[hwndcur],ecx
                        mov liNew.pszText,offset buff
                        mov liNew.iSubItem,2
                        invoke SendMessage, [hlistview], LVM_SETITEMTEXT, [listno], ADDR liNew

                        invoke SetFocus, [hlistview]
                        xor eax,eax
                        ret

                .ELSEIF ax==IDC_ENABLE

                        invoke GetItem, [hlistview], [listno], 2, LVIF_TEXT OR LVIF_PARAM, 0, 0, [mainhwnd], ADDR buff, 3
                        invoke IsDlgButtonChecked,mainhwnd,IDC_ENABLE

                        cmp eax,BST_UNCHECKED
                        jne ischk2
                        mov ecx,FALSE
                        mov [buff+1],"-"
                        jmp ischk2b
ischk2:
                        mov ecx,TRUE
                        mov [buff+1],"E"

ischk2b:
                        invoke EnableWindow,[hwndcur],ecx

                        mov liNew.pszText,offset buff
                        mov liNew.iSubItem,2
                        invoke SendMessage, [hlistview], LVM_SETITEMTEXT, [listno], ADDR liNew

                        invoke SetFocus, [hlistview]
                        xor eax,eax
                        ret


                .ENDIF
                xor eax,eax
                ret

        .elseif ax==WM_NOTIFY


            mov edi, [lParam]
            mov eax, (NMHDR ptr [edi]).hwndFrom
            .if eax==hlistview

                mov eax, (NMHDR ptr [edi]).code
               .if eax==LVN_ITEMCHANGED


                  xor eax,eax
                  ret
                .elseif eax==LVN_COLUMNCLICK

		  call changedir

                  mov esi,[lParam]
                  assume esi:ptr NM_LISTVIEW
                  mov eax,[esi].iSubItem
		  assume esi:nothing

                  add eax,21
                  call gosortit

                  ret

                .elseif eax==NM_RCLICK
                                        ;pnmh = (NMHDR FAR *) lParam;

                    push ebx
                    mov edi,[lParam]
                    mov ebx, (NMLISTVIEW ptr [edi]).ptAction.x
                    add ebx,xpos
                    mov ecx, (NMLISTVIEW ptr [edi]).ptAction.y
                    add ecx,ypos
                    invoke TrackPopupMenu,lmenu,TPM_CENTERALIGN +TPM_LEFTBUTTON,ebx,ecx,0,hWnd,NULL
                    pop ebx


                    xor eax,eax
                    ret

                .elseif eax==NM_DBLCLK
                    invoke FlashWindow,[hwndcur],TRUE
                    xor eax,eax
                    ret
                .endif

            .endif


        .ELSEIF ax==WM_RBUTTONDOWN
                push ebx
                mov ebx,lParam
                mov ecx,ebx
                and ebx,0ffffh
                shr ecx,16
                add ebx,xpos
                add ecx,ypos
                add ecx,20
                invoke TrackPopupMenu,wmenu,TPM_CENTERALIGN +TPM_LEFTBUTTON,ebx,ecx,0,hWnd,NULL
                pop ebx
                ret
        .endif

        xor EAX,EAX
        RET


DlgProc endp
changedir proc
	push eax
	 xor eax,eax
	 mov al,[sortdir]

	 add eax,40
         invoke CheckMenuItem,[mmenu],eax,MF_UNCHECKED

	 xor [sortdir],1

	 xor eax,eax
	 mov al,[sortdir]
	 add eax,40
         invoke CheckMenuItem,[mmenu],eax,MF_CHECKED
	pop eax

	 ret
changedir endp
gosortit proc
		   jmp move
		   push eax
		   mov eax,[sortcol]
		   add eax,20
                   invoke CheckMenuItem,[mmenu],eax,MF_UNCHECKED
                   pop eax
                   push eax

                   invoke CheckMenuItem,[mmenu],eax,MF_CHECKED

                   pop eax
move:
                   sub eax,20
		   mov [sortcol],eax

                   or eax,eax
                   jz nonosort4

		   ;call changedir
		   dec eax

		   cmp eax,1
		   je numsort
		   ;cmp eax,6
		   ;je numsort

		   lea edi,CompareFunc
		   jmp gogosort
numsort:
		   lea edi,CompareNum
gogosort:
                   invoke SendMessage,[hlistview],LVM_SORTITEMS,eax,edi
                   call updatelist
nonosort4:
		   xor eax,eax
		   ret

gosortit endp
updatelist proc
	LOCAL lvi:LV_ITEM

	mov ecx,[totallist]

	mov lvi.imask,LVIF_PARAM
	mov lvi.iSubItem,0
	mov lvi.iItem,0
listloop:
     push ecx
	push lvi.iItem
	pop lvi.lParam
	invoke SendMessage,[hlistview], LVM_SETITEM,0,addr lvi
	inc lvi.iItem
	pop ecx

	loop listloop

     ret
updatelist endp
binary  proc
        push ecx
        lea edi,buff
        mov ecx,32
reset1:
        mov dl,'0'
        shl eax,1
        jnc set1
        inc dl
set1:
        mov [edi],dl
        inc edi
        loop reset1

        mov [edi],byte ptr 0

        pop ecx
        ret

binary  endp

doontop         proc
                test [flags],8
                je notontop2
                mov ecx,HWND_NOTOPMOST
                mov eax,MF_UNCHECKED
                jmp gotop
notontop2:
                mov ecx,HWND_TOPMOST
                mov eax,MF_CHECKED
gotop:
                push ecx
                push eax
                invoke CheckMenuItem,[wmenu],IDM_ONTOP,eax
                pop eax
                invoke CheckMenuItem,[mmenu],IDM_ONTOP,eax
                pop ecx
                invoke SetWindowPos,[mainhwnd],ecx,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE+SWP_SHOWWINDOW
                ret
doontop         endp


regget proc regstring:DWORD
        LOCAL number:DWORD
        LOCAL Disp  :DWORD
        LOCAL pKey  :DWORD
        LOCAL Temp  :DWORD

                mov Temp,4

                invoke RegCreateKeyEx, HKEY_LOCAL_MACHINE,ADDR subkeyname,
                        NULL, NULL,REG_OPTION_NON_VOLATILE,KEY_READ,
                        NULL,addr pKey, addr Disp

                cmp eax,ERROR_SUCCESS
                jne regok1

                invoke RegQueryValueEx, pKey, regstring,NULL, ADDR Disp,
                                ADDR number, ADDR Temp

                cmp eax,ERROR_SUCCESS
                jne regok1

                invoke RegCloseKey, pKey
                mov eax,number
                ret
regok1:
                mov eax,-1
                ret
regget endp
regset proc regstring:DWORD,number:DWORD
        LOCAL Disp  :DWORD
        LOCAL pKey  :DWORD
        LOCAL Temp  :DWORD

                mov Temp,4

                invoke RegCreateKeyEx, HKEY_LOCAL_MACHINE,ADDR subkeyname, NULL,
                        NULL,REG_OPTION_NON_VOLATILE,KEY_WRITE, NULL,
                        addr pKey, addr Disp
                cmp eax,ERROR_SUCCESS
               jne regok2

                invoke RegSetValueEx, pKey, regstring,NULL,
                        REG_DWORD_LITTLE_ENDIAN,ADDR number, Temp

                invoke RegCloseKey, pKey
regok2:
                ret

regset endp
CompareFunc proc lParam1:DWORD, lParam2:DWORD, SortType:DWORD


        invoke GetItem, [hlistview], [lParam1], [SortType], LVIF_TEXT OR LVIF_PARAM, 0, 0, [mainhwnd], ADDR buff, 99

        invoke GetItem, [hlistview], [lParam2], [SortType], LVIF_TEXT OR LVIF_PARAM, 0, 0, [mainhwnd], ADDR buff+100, 99

        lea esi,buff
        mov ecx,99

        cmp [sortdir],0
        je sortfor

comp1:
        mov ah,[esi]
        cmp ah,[esi+100]
        ja goneg
        jb gopos
        inc esi
        loop comp1

        xor eax,eax
        ret

gopos:
        mov eax,1
        ret

goneg:
        mov eax,-1
        ret
sortfor:

comp1a:
        mov ah,[esi]
        cmp ah,[esi+100]
        ja gopos
        jb goneg
        inc esi
        loop comp1a
goeven:
        xor eax,eax
        ret

CompareFunc endp
CompareNum proc lParam1:DWORD, lParam2:DWORD, SortType:DWORD


        invoke GetItem, [hlistview], [lParam1], [SortType], LVIF_TEXT OR LVIF_PARAM, 0, 0, [mainhwnd], ADDR buff, 99

        invoke GetItem, [hlistview], [lParam2], [SortType], LVIF_TEXT OR LVIF_PARAM, 0, 0, [mainhwnd], ADDR buff+100, 99

	lea esi,buff
	call getnum
	push eax
	lea esi,buff+100
	call getnum
	pop ecx
	cmp [sortdir],1
	je numfor
	xchg eax,ecx

numfor:
	sub eax,ecx

        ret
CompareNum endp
getnum proc
	push ebx
	push ecx
	xor eax,eax
	xor ecx,ecx
	mov ebx,10
renum:
	mov cl,[esi]
	cmp cl,0
	je endnum
	sub cl,"0"
	mul ebx
	add eax,ecx
	inc esi
	jmp renum
endnum:
	pop ecx
	pop ebx
	ret
getnum endp

END start