MASM32-SDK (Windows Konsolapplikationen):
Inhaltsanzeige eines Verzeichnisses mit langen Dateinamen

Das Quellprogramm

comment #
This program uses the FindFirstFile() FindNextFile() API functions
to perform a directory list search which is displayed at the console.

This file should be built with the "Console assemble & link" option
on the project menu.

Zur 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 (?)
cAlternateFileName      BYTE 14 dup (?)

FILETIME STRUCT
  dwLowDateTime         DWORD ?
  dwHighDateTime        DWORD ?

Bitmaske für die Datei-Attribute:
FILE_ATTRIBUTE_READONLY   equ 1
FILE_ATTRIBUTE_HIDDEN     equ 2h
FILE_ATTRIBUTE_SYSTEM     equ 4h
FILE_ATTRIBUTE_DIRECTORY  equ 10h
FILE_ATTRIBUTE_ARCHIVE    equ 20h
FILE_ATTRIBUTE_NORMAL     equ 80h
FILE_ATTRIBUTE_TEMPORARY  equ 100h
FILE_ATTRIBUTE_COMPRESSED equ 800h
-------------------------------------------------------------------

Zur externen Prozedur DateTimeToStringShort24:

This procedure converts a DATETIME (same structur as FILETIME) to a
date and time string in the system's short date and 24-hour format.

Usage:
  INVOKE DateTimeToStringShort24, pdt, pszShort24
    pdt is a pointer to the DATETIME [IN]
    pszShort24 is a pointer to the resulting ASCIIZ string [OUT]
    Returns a PTR BYTE in eax:
      a pointer to the resulting string on success, NULL on error

Mehr Information: siehe MASM32-SDK, Help, Kapitel Date Time Reference.
Die Assemblerquelle der Prozedur ist \masm32\DateTime.inc\DateTimeToStringShort24,
die zugehörige Objektdatei ist in \masm32\lib\DateTime.lib eingebunden.
------------------------------------------------------------------- #

      .386
      .model flat, stdcall
      option casemap :none   ; case sensitive
; -------------------------------------------

      include \masm32\include\windows.inc
      include \masm32\macros\macros.asm         ;nachgetragen
      include \masm32\include\user32.inc
      include \masm32\include\kernel32.inc
      include \masm32\include\masm32.inc
      include c:\masm32\include\msvcrt.inc      ;nachgetragen
      INCLUDE \masm32\include\DateTime.inc      ;nachgetragen


      includelib \masm32\lib\user32.lib
      includelib \masm32\lib\kernel32.lib
      includelib \masm32\lib\masm32.lib
      includelib \masm32\lib\msvcrt.lib         ;nachgetragen
      INCLUDELIB \masm32\lib\DateTime.lib       ;nachgetragen
;  -------------------------------------------

        Main    PROTO              ;erforderlich weil Main eine Prozedur ist
.data
notfound   db   "Datei nicht gefunden"
crlf       db   13,10,0     ;ergaenzt ggf. notfound
wCard      db   "*",0
spc        db   " ",0
bytes      db   " bytes ",0
;fMtStrinG db   "%lu",0
fMtStrinG  db   "%10.1lu",0
mitPunkt   db   14 dup (" "),0  ;Space, 13 bytes,0

attrs      db   "RHSDAC "
msg_attrs_spc db " "            ;msg_attrs mit führendem Space
msg_attrs  db   "RHSDAC "
           db   0               ;hier Ausgabeende

pszShort24 db   64 dup (0)

; #########################################################################

.code
    start:
      invoke Main
      inkey
      invoke ExitProcess,0

; #########################################################################

Main proc

LOCAL hSearch :DWORD            ; search handle
LOCAL sizeBuffer[16]:BYTE
LOCAL fBuffer[256]:BYTE         ; file name buffer
LOCAL clBuffer[128]:BYTE        ; command line buffer
LOCAL wfd :WIN32_FIND_DATA

        invoke GetCL,1,ADDR clBuffer    ; get arg 1
        .if eax != 1                       ; if no arg
                mov ecx, LENGTHOF wCard         ; copy * into
                mov esi, offset wCard           ; clBuffer
                lea edi, clBuffer
                rep movsb
        .endif

        invoke FindFirstFile,ADDR clBuffer,ADDR wfd
        .if eax == INVALID_HANDLE_VALUE
                invoke StdOut,ADDR clBuffer   ; Suchbegriff
                invoke StdOut,ADDR spc
                invoke StdOut,ADDR notfound   ; display "not found" message
                jmp TheEnd
        .else
                mov hSearch, eax
        .endif

        mov al, [wfd.cFileName]
        cmp al, "."       ;keine Anzeige weiterer Directoryinfos
;       je nxt


        INVOKE DateTimeToStringShort24, ADDR wfd.ftLastWriteTime, ADDR pszShort24
        invoke StdOut, ADDR pszShort24
        mov     eax,[wfd.dwFileAttributes]  ;Attribute zur Anzeige
        call    zeige_attribute


        invoke  wsprintf,ADDR sizeBuffer,ADDR fMtStrinG,wfd.nFileSizeLow
        lea     esi,sizeBuffer+10
        lea     edi,mitPunkt+13
        mov     ecx,10      ;10 Stellen
        call    schiebe    ;Tausenderpunkte in den Laengenstring

        invoke  StdOut,ADDR mitPunkt
        invoke  StdOut,ADDR bytes
        invoke  StdOut,ADDR wfd.cFileName

  nxt:
        invoke  StdOut,ADDR crlf
        call    restore_msg_attrs
  @@:
        invoke  FindNextFile,hSearch,ADDR wfd
        cmp     eax, 0
        je      lpOut


        mov     al, [wfd.cFileName]
        cmp     al, "."         ;keine Anzeige weiterer Directoryinfos
        je nxt1

        INVOKE DateTimeToStringShort24, ADDR wfd.ftLastWriteTime, ADDR pszShort24
        invoke StdOut, ADDR pszShort24

        mov     eax,[wfd.dwFileAttributes]  ;Attribute zur Anzeige
        call    zeige_attribute


        invoke  wsprintf,ADDR sizeBuffer,ADDR fMtStrinG,wfd.nFileSizeLow
        lea     esi,sizeBuffer+10
        lea     edi,mitPunkt+13
        mov     ecx,10          ;10 Stellen
        call    schiebe         ;Tausenderpunkte in den Laengenstring

        invoke  StdOut,ADDR mitPunkt
        invoke  StdOut,ADDR bytes
        invoke  StdOut,ADDR wfd.cFileName
  nxt1:

        invoke  StdOut,ADDR crlf
        call    restore_msg_attrs
        jmp     @B

lpOut:
        invoke  FindClose,hSearch

TheEnd:
        ret

Main endp

; -------------------------
;Fuegt Tausenderpunkte in die Zahl ein - die Zahl wird
;entsprechend auseinandergeschoben
;Auruf: esi asdresiert den von-Bereich, rechter Rand
;Auruf: edi asdresiert den nach-Bereich, rechter Rand
;       ecx gibt die Stellenanzahl des Von-Bereichs an
; -------------------------
schiebe:
        mov     al,[esi]        ;Zeichenuebertrag
        mov     [edi],al

        dec     esi             ;beide Zeiger nach links
        dec     edi

        mov     ah,[esi]
        cmp     ah," "          ;vorheriges Zeichen ein Blank?
        je      @F              ;dann keine Tausenderpunkte

        mov     ah,"."
@@:
        cmp     ecx,10-3        ;war es die Tausenderstelle?
        jne     @F

        mov     [edi],ah
        dec     edi

@@:     cmp     ecx,10-6        ;bei der Million?
        jne     @F

        mov     [edi],ah
        dec     edi

@@:     cmp     ecx,10-9        ;bei der Milliarde?
        jne     @F

        mov     [edi],ah
        dec edi
@@:
        loop schiebe
        ret

;------------------------
; Attribut zum Anzeigetext RHSDAC
; Dabei wird das Feld msg_attrs von links nach rechts verändert
; Die Dateiattribute stehen bei Aufruf in eax
;------------------------
zeige_attribute:
        mov     ecx,12            ;12-mal schieben
;       mov     ax,[esi]
;       mov     ax,8bfh    ;RHSDA
        lea     edi,msg_attrs

ls55:   cmp     ecx,9   ;Bits Wertigkeit 8, 64, 128, 256, 512, und 1024
        je      ls59    ;ignorieren
        cmp     ecx,6
        je      ls59
        cmp     ecx,5
        je      ls59
        cmp     ecx,4
        je      ls59
        cmp     ecx,3
        je      ls59
        cmp     ecx,2
        jne     ls60            ;nicht ignorieren!

ls59:   rcr     ax,1            ;ignorieren!
        jmp     ls70

ls60:   rcr     ax,1
        jc      ls65            ;Attribut gesetzt

temp1:
        mov     byte ptr [edi],'-'
ls65:   inc     edi


ls70:   loop    ls55

        invoke  StdOut,offset msg_attrs_spc
        ret

; -------------------------
; Inhalt von msg_attrs wieder herstellen
; Wird nach Anzeige des Dateinamens aufgerufen
; -------------------------
restore_msg_attrs:
        mov     esi,offset attrs
        mov     edi,offset msg_attrs
        mov     ecx,6            ;6 Bytes Laenge
@@:     mov     al,[esi]
        mov     [edi],al
        inc     esi
        inc     edi
        loop    @B
        ret

; #########################################################################
        end     start