简单的CD控制程序，只支持单光驱

游侠无极限

;---------------- ;编译模式="DLG" ;---------------- .386 .Model Flat, StdCall 2 I: C: l9 }; \Option Casemap :None " Q E4 ]$ h+ D+ ?- s! R% @& x;;------------------------------------------------------- , s# N( m$ A$ U( ?2 I' f Include windows.inc ' H& t5 Y& Y7 `$ Z2 H" y3 VInclude user32.inc Include kernel32.inc include shell32.inc 6 a" F! M4 \4 }8 Q( Rinclude winmm.inc * e' \, ?3 \- b- S" B4 f, Bincludelib winmm.lib + b Y5 n1 s# |includelib shell32.lib 8 W4 d* H# h! F! F- TIncludeLib user32.lib % I+ f: Q5 A; Z- i# I0 E0 z" {8 YIncludeLib kernel32.lib ;------------------------------------------------------- % v/ w0 I- V1 I( O9 g 7 C+ z' g) ~' E! H;过程声明 DlgProc proto :DWORD,:DWORD,:DWORD,:DWORD 7 R% y1 z9 m/ G, q;------------------------------------------------------- 4 o, l' g B3 \; i ' m) \8 V' H! y' ~.const 3 B% \2 r1 X; \ ;常数定义,只使用一次的ID无需定义为常数,这里仅做为例子 7 G+ Y$ e& |$ I p; X; @ DLG_MAIN equ 101 IDI_TRAY equ 0 IDR_POPMNU equ 102 " U1 P5 m4 w6 C; S: |3 h/ _. S IDM_OPEN equ 40001 IDM_CLOSE equ 40002 o; l0 T& Q, o/ m3 o& x" J1 F IDM_EXIT equ 40003 - N K* I5 J) n; a1 p$ | szTipText db 'CD Door',0 " G9 e+ i/ ^8 [7 {. F$ ^ szOpen db 'set CDAudio door open',0 ' @, R# R( d6 W _ H szClose db 'set CDAudio door closed',0 - [, o2 I7 ^2 F) I0 {.data ;数据段 3 {" K; g+ o0 m4 z. P$ J# jmyicon NOTIFYICONDATA <> 0 x; _& A7 X' Y9 X- X( [( w" G6 f( o.data? , S9 p$ h/ _! q* p hInstance dd ? hIconA dd ? 5 o! E8 k5 |! O6 P* y' D hMenu dd ? ;------------------------------------------------------- .CODE + W$ G( ?9 h3 T! SSTART: invoke GetModuleHandle,NULL 8 `. i+ \8 v* ~, @3 }. j/ m2 f mov hInstance,eax invoke DialogBoxParam,hInstance,DLG_MAIN,0,offset DlgProc,0 # ?. |! R5 D2 @) v# F invoke ExitProcess,0 * ]( S5 Q$ k# S _5 ? ;当参数类型为DWORD时,不需要进行类型声明,以下过程详细应该为: # U5 Q; Y$ ^, p& x;DlgProc proc hWndWORD,uMsgWORD,wParamWORD,lParamWORD ' ~0 ^. y' }* V8 d: |( BDlgProc proc hWnd,uMsg,wParam,lParam ( Z, v5 Z7 V2 @. h1 z6 O local @ptOINT .if uMsg==WM_INITDIALOG invoke LoadIcon,hInstance,103 ( `2 s7 `4 a1 @# Z mov hIconA,eax invoke SendMessage,hWnd,WM_SETICON,ICON_BIG,eax invoke LoadMenu,hInstance,IDR_POPMNU ;mov hMenuExit,eax invoke GetSubMenu,eax,0 mov hMenu,eax .elseif uMsg==WM_COMMAND mov eax,wParam .if ax==IDCANCEL invoke EndDialog,hWnd,TRUE 1 F; q* e2 u0 E+ s a5 P8 N1 Q1 H .elseif ax == IDOK ;mov IsTray,TRUE # ] N5 ]. \) _% h. L( w1 {" f mov myicon.cbSize,sizeof NOTIFYICONDATA ;需填入NOTIFYICONDATA数据结构的长度 ! R8 X7 [7 E4 B% S. I, `4 Q push hWnd ! t7 v, b& I7 e0 N# f' F( d pop myicon.hwnd mov myicon.uFlags,NIF_ICON+NIF_MESSAGE+NIF_TIP ;设置uCallbackMessage,hIcon,szTip是否有效 mov myicon.uID,IDI_TRAY ;为图标所设置的ID值 6 U, ]) p' j; Z ~+ M4 G push hIconA / M1 W) m3 c' L Q) f! T pop myicon.hIcon ;显示在状态栏上的图标 mov myicon.uCallbackMessage,WM_USER + 1 ;消息编号 0 g7 w4 I: P2 v" P: o invoke lstrcpy,addr myicon.szTip,addr szTipText ;提示信息 invoke Shell_NotifyIcon,NIM_ADD,addr myicon - T- d7 f# y# ]: F z invoke ShowWindow,hWnd,SW_HIDE ; `: z1 z. c7 O1 |: x" X( F! t .elseif ax == IDM_EXIT / l: c9 G; ~" ?9 Q$ W3 b1 Y invoke EndDialog,hWnd,TRUE , @7 b% S& @5 r$ `& X: O invoke Shell_NotifyIcon,NIM_DELETE,addr myicon - j7 V' u8 _' X .elseif ax == IDM_OPEN - ]5 I5 S7 M" [. V' _8 C invoke mciSendStringA,offset szOpen,0,0,0 ; i9 l9 g1 K" p: _ .elseif ax == IDM_CLOSE invoke mciSendStringA,offset szClose,0,0,0 .endif .elseif uMsg==WM_CLOSE E/ G" c5 ~; }8 r1 ` invoke EndDialog,hWnd,FALSE ; D, ?8 M) Q( k5 i* |.elseif uMsg == WM_USER + 1 .if wParam == IDI_TRAY . W1 S* D/ ?& `) z! @4 [6 b ;.if lParam == WM_LBUTTONDOWN ;invoke SendMessage,hWnd,WM_SYSCOMMAND,SC_RESTORE,NULL 2 N8 F% r6 E9 g. X" r .if lParam == WM_RBUTTONDOWN ) M1 ~( P, U8 B- K" S- u invoke GetCursorPos,addr @pt * e5 v. ]% `' q: f8 e! X invoke SetForegroundWindow,hWnd $ c/ Q0 j( A8 h% e" }3 X4 M: p invoke TrackPopupMenu,hMenu,TPM_RIGHTBUTTON,@pt.x,@pt.y,NULL,hWnd,NULL ' d& f% l* k$ v! T9 Y invoke PostMessage,hWnd,WM_NULL,0,0 .endif .endif .else mov eax,FALSE ret 8 j5 Z4 M$ K: L% _4 q _! H* }.endif mov eax,TRUE 4 y- k* q4 r9 g" p/ Tret DlgProc endp END START ' Q" `% k8 ~1 ]7 ]. U

老兄，你这是展示汇编的强大还是展示汇编的繁琐？
打开/关闭光驱只要调用mciSendString API函数就可以了，任何语言都比汇编简单
打开 mciSendString("set CDAudio door open",0,0, 0)
' f8 `" e& N- S! R# Y, F+ K' o关闭 mciSendString("set CDAudio door closed", 0,0, 0)

% L5 S3 T* |7 E) ]6 M/ U. k- g

游侠无极限

可是汇编做出来的最小^_^
我编译出来都不到4k，FAT32的一个蔟也不到