Performing time-consuming commands or sub-functions from button in dialog

[Kevin]

something like this 

Function Function54

Code:

Copy      Help

str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 224 136 "Dialog" "4"
;3 Button 0x54032000 0x0 16 16 48 14 "Run wmic"
;4 Button 0x54032000 0x0 112 16 64 14 "Run subFunction"
;1 Button 0x54030001 0x4 116 116 48 14 "OK"
;2 Button 0x54030000 0x4 168 116 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2040C02 "*" "" "" ""

if(!ShowDialog(dd &sub.DlgProc 0)) ret


#sub DlgProc
function# hDlg message wParam lParam

sel message
,case WM_INITDIALOG
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
,case 3 ;;Run wmic
,mac "sub.subMain" "" hDlg 1 "wmic"
,case 4 ;;Run subFunction
,mac "sub.subMain" "" hDlg 2 "subFunction"
ret 1

#sub subMain
function hwnd action ~actionText

TO_Enable hwnd "1-4" 0
actionText -"Running . . ."
OnScreenDisplay actionText -1 0 0 "" 0 0 8
sel action 
,case 1;;Run wmic
,sub.Sub1
,case 2;;Run subFunction
,sub.Sub2
TO_Enable hwnd "1-4" 1

#sub Sub1
str cl=
;wmic PRODUCT where "name='APP name'" call Uninstall
RunConsole2 cl
#sub Sub2
rep 20
,0.5