File "dlg-min.bas"

Path: /dlg-utils/dlg-min.bas
File size: 1.79 KB
MIME-type:
Charset: utf-8

#COMPILE EXE
#DIM ALL
#INCLUDE ONCE "DosPrint.inc"
#INCLUDE ONCE "FindDialog.inc"

$CLI  = "dlg-min"
$ARG1 = """dialog caption, all or part"""
$ARG2 = "#12345 (hash followed by dialog handle)"

FUNCTION PBMAIN () AS LONG
    LOCAL dlgList() AS STRING
    LOCAL nbDlg AS LONG
    LOCAL i AS LONG
    LOCAL inTxt AS STRING
    LOCAL hD AS DWORD
    LOCAL caption AS STRING

    IF COMMAND$ = "" THEN
        CALL FreeConsole() ' Win32 mode -> hide console
        ?"This utility must be called via the command-line."+$CR+$CR _
        +"Usage:" + $CR + $CLI + $SPC + $ARG1 + $CR _
        +"or " + $CR + $CLI + $SPC + $ARG2 _
        , %MB_ICONINFORMATION, $CLI
        EXIT FUNCTION
    END IF

    IF COMMAND$ = "/?" THEN
        DosPrint "Usage: " + $CLI + $SPC + $ARG1
        DosPrint "    or " + $CLI + $SPC + $ARG2
        EXIT FUNCTION
    END IF

    inTxt = TRIM$(COMMAND$, ANY $SPC+$TAB+$DQ)

    ' Find all dialogs based on inTxt
    REDIM dlgList(0)
    IF LEFT$(inTxt, 1) = "#" THEN
        nbDlg = FindDialog("HND:" + MID$(inTxt,2), BYREF dlgList())
    ELSE
        nbDlg = FindDialog("CAP:" + inTxt, BYREF dlgList())
    END IF

    ' No dialog found
    IF nbDlg = 0 THEN
        DosPrint "No dialog found."
        EXIT FUNCTION
    END IF

    ' More than 1 dialog found
    IF nbDlg > 1 THEN
        DosPrint "Several dialogs found, please specify which one to take:"
        FOR i = 1 TO nbDlg
            DosPrint "  " + dlgList(i-1)
        NEXT
        EXIT FUNCTION
    END IF

    ' Just 1 dialog found > get its information
    hD = VAL(MID$(dlgList(0),2))
    caption = MID$(dlgList(0), INSTR(dlgList(0),":")+1)
    POSTMESSAGE hD, %WM_SYSCOMMAND, %SC_MINIMIZE, 0
    DosPrint "Dialog minimized: #"+FORMAT$(hD)+$SPC+$DQ+caption+$DQ

END FUNCTION