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

游侠无极限

;---------------- ;编译模式="DLG" 6 r7 j3 G* Q( G* M! U/ F7 J8 u* R;---------------- 4 B# z. j; ^% i' J ~$ e8 h' d.386 2 @$ C: f \7 W7 A! p' K2 j! f! X- H: j.Model Flat, StdCall ( A0 Y" ^, v/ g& v: iOption Casemap :None ! n. D. R2 `8 v7 a: D;;------------------------------------------------------- Include windows.inc - ^; X! Z* M: J+ S6 n3 j# IInclude user32.inc Include kernel32.inc include shell32.inc 4 I" O3 D% o% [3 qinclude winmm.inc includelib winmm.lib includelib shell32.lib . t$ c! o* e+ i# s3 GIncludeLib user32.lib IncludeLib kernel32.lib ;------------------------------------------------------- + d1 e, A1 W- C4 K- o2 }$ g ;过程声明 DlgProc proto :DWORD,:DWORD,:DWORD,:DWORD 8 \" P* f' @: Q3 t) B0 S- X;------------------------------------------------------- ; B! W; A5 K' n- A .const ;常数定义,只使用一次的ID无需定义为常数,这里仅做为例子 DLG_MAIN equ 101 IDI_TRAY equ 0 IDR_POPMNU equ 102 IDM_OPEN equ 40001 IDM_CLOSE equ 40002 IDM_EXIT equ 40003 8 T( p/ c0 a( S- R6 K% d F! C szTipText db 'CD Door',0 szOpen db 'set CDAudio door open',0 szClose db 'set CDAudio door closed',0 ; {" ]# D6 v6 ^ _4 g.data ;数据段 myicon NOTIFYICONDATA <> * S) P2 u9 b+ [7 C6 R; c.data? hInstance dd ? hIconA dd ? hMenu dd ? ! ^1 U1 W4 b1 L$ c$ E6 s% i;------------------------------------------------------- 2 J# s2 v2 A e6 E" e- C( w& i: t" W5 i . ?3 I& ?7 E( q- O# F. m, J.CODE START: : U+ h+ r$ m- n4 z invoke GetModuleHandle,NULL 3 R% g, w. a! Q8 w8 ^- e mov hInstance,eax invoke DialogBoxParam,hInstance,DLG_MAIN,0,offset DlgProc,0 invoke ExitProcess,0 7 w/ O( k; s0 ]4 \ T" F ;当参数类型为DWORD时,不需要进行类型声明,以下过程详细应该为: 2 `* c% {# Y3 {9 C2 ? s8 P$ i: E0 Z;DlgProc proc hWndWORD,uMsgWORD,wParamWORD,lParamWORD 8 G5 x( E+ m& z* vDlgProc proc hWnd,uMsg,wParam,lParam local @ptOINT * L& n5 w: b8 Z/ [.if uMsg==WM_INITDIALOG 5 Y* Y D) f) F8 e6 Q8 a" T$ H invoke LoadIcon,hInstance,103 mov hIconA,eax invoke SendMessage,hWnd,WM_SETICON,ICON_BIG,eax invoke LoadMenu,hInstance,IDR_POPMNU : v; V, J7 B5 {, v: @1 E ;mov hMenuExit,eax invoke GetSubMenu,eax,0 9 z/ T8 [: q- Y, D- w( } mov hMenu,eax .elseif uMsg==WM_COMMAND mov eax,wParam 6 c/ [' _/ Y1 O: {. y" S- U. L6 A h .if ax==IDCANCEL invoke EndDialog,hWnd,TRUE " j- e' F8 P) ~ .elseif ax == IDOK : j' q7 j, \) L: ^4 j$ X ;mov IsTray,TRUE 2 f1 G9 ] ~- W! q! F* Z' r5 w mov myicon.cbSize,sizeof NOTIFYICONDATA ;需填入NOTIFYICONDATA数据结构的长度 6 F9 q: O- n9 h( e2 n push hWnd pop myicon.hwnd * C9 n( x/ X' ]/ [6 c mov myicon.uFlags,NIF_ICON+NIF_MESSAGE+NIF_TIP ;设置uCallbackMessage,hIcon,szTip是否有效 2 t! l; U Y# u3 z r7 g mov myicon.uID,IDI_TRAY ;为图标所设置的ID值 push hIconA pop myicon.hIcon ;显示在状态栏上的图标 mov myicon.uCallbackMessage,WM_USER + 1 ;消息编号 1 s" Z$ `1 L$ p9 o invoke lstrcpy,addr myicon.szTip,addr szTipText ;提示信息 invoke Shell_NotifyIcon,NIM_ADD,addr myicon ' V9 e2 d/ q5 r$ \; Q% n invoke ShowWindow,hWnd,SW_HIDE . D: k& _* Q2 E6 R9 c .elseif ax == IDM_EXIT invoke EndDialog,hWnd,TRUE invoke Shell_NotifyIcon,NIM_DELETE,addr myicon 9 g+ G" T& S3 _7 ~" ?6 v1 i1 B .elseif ax == IDM_OPEN 7 H* @6 W! H& Y+ e% V2 C+ C; Z8 c invoke mciSendStringA,offset szOpen,0,0,0 b+ r4 u" ?' s .elseif ax == IDM_CLOSE invoke mciSendStringA,offset szClose,0,0,0 4 e# b' F; s% J P: Y5 \0 k/ N .endif .elseif uMsg==WM_CLOSE invoke EndDialog,hWnd,FALSE ) I1 ?* b, R9 m0 T0 r @; K1 a, \.elseif uMsg == WM_USER + 1 .if wParam == IDI_TRAY : h. Z$ w8 a1 k2 n! |/ x" `8 ^ ;.if lParam == WM_LBUTTONDOWN ;invoke SendMessage,hWnd,WM_SYSCOMMAND,SC_RESTORE,NULL 5 d6 c6 U4 |5 u2 Z& ^: ~& } .if lParam == WM_RBUTTONDOWN , V1 Q. g2 ]9 D$ d, Z invoke GetCursorPos,addr @pt invoke SetForegroundWindow,hWnd : F+ i+ l5 m2 I0 _ invoke TrackPopupMenu,hMenu,TPM_RIGHTBUTTON,@pt.x,@pt.y,NULL,hWnd,NULL . D/ [$ a, O. X5 q! V invoke PostMessage,hWnd,WM_NULL,0,0 . S8 L, ^4 d; L- s& ^7 N .endif .endif 1 J: i1 D: M3 W5 {5 P0 F5 x; m }.else * b' t9 T$ G [' { mov eax,FALSE ret 3 d' g/ W6 [' l5 L. H0 t& d; R' {$ F.endif mov eax,TRUE ret DlgProc endp END START

老兄，你这是展示汇编的强大还是展示汇编的繁琐？
打开/关闭光驱只要调用mciSendString API函数就可以了，任何语言都比汇编简单
打开 mciSendString("set CDAudio door open",0,0, 0)
) w9 l/ Z/ s/ w. t关闭 mciSendString("set CDAudio door closed", 0,0, 0)
$ U: b- G. `4 B( i! U0 z( R

游侠无极限

可是汇编做出来的最小^_^
, I) \) E9 u4 ^3 P, S6 z/ u我编译出来都不到4k，FAT32的一个蔟也不到