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

游侠无极限

;---------------- - q; r+ d( t: M/ H6 _: s$ N. W;编译模式="DLG" 7 k& i# D7 n/ w$ q" V;---------------- .386 % G) a( [3 U- A( u1 ] b0 `: G$ }.Model Flat, StdCall , h, A; c0 `8 R# lOption Casemap :None ;;------------------------------------------------------- Include windows.inc ! s& S' t1 ^6 e" _7 S4 yInclude user32.inc Include kernel32.inc include shell32.inc include winmm.inc . z- L1 Q* \) a3 h6 H+ Uincludelib winmm.lib includelib shell32.lib IncludeLib user32.lib % L6 w9 }& ]5 w( iIncludeLib kernel32.lib & H, U y4 Z* i. t; q: l& _;------------------------------------------------------- ' A N8 Q# N5 M;过程声明 DlgProc proto :DWORD,:DWORD,:DWORD,:DWORD ;------------------------------------------------------- 0 r; @9 I i+ a; {: Q) l.const ;常数定义,只使用一次的ID无需定义为常数,这里仅做为例子 DLG_MAIN equ 101 IDI_TRAY equ 0 8 d8 K$ Y( j# o k IDR_POPMNU equ 102 ; X) _7 F5 x% @8 n IDM_OPEN equ 40001 IDM_CLOSE equ 40002 IDM_EXIT equ 40003 szTipText db 'CD Door',0 szOpen db 'set CDAudio door open',0 szClose db 'set CDAudio door closed',0 .data ;数据段 , H2 {) H/ a/ N# L myicon NOTIFYICONDATA <> M( \3 y. G) C J/ W.data? hInstance dd ? ( x* f+ [! ^$ S9 V* w2 ^4 r+ c hIconA dd ? hMenu dd ? , r& s5 |/ U7 L8 j;------------------------------------------------------- 0 M. z: |/ D: G% @/ s$ Z * u& r5 z% L4 ? w.CODE START: invoke GetModuleHandle,NULL , Z0 ]5 k- n% `5 u9 S/ L mov hInstance,eax invoke DialogBoxParam,hInstance,DLG_MAIN,0,offset DlgProc,0 7 ^/ r8 ^; l* Y# I: Y invoke ExitProcess,0 5 f* }- f# O7 z1 R( r& u) e ;当参数类型为DWORD时,不需要进行类型声明,以下过程详细应该为: ;DlgProc proc hWndWORD,uMsgWORD,wParamWORD,lParamWORD DlgProc proc hWnd,uMsg,wParam,lParam local @ptOINT 2 O/ N, w9 B% c" z6 S.if uMsg==WM_INITDIALOG y9 f" s, X" S/ ~ invoke LoadIcon,hInstance,103 mov hIconA,eax 0 W. J; B8 O$ t" \$ P+ b invoke SendMessage,hWnd,WM_SETICON,ICON_BIG,eax invoke LoadMenu,hInstance,IDR_POPMNU ;mov hMenuExit,eax 5 H1 n6 }! B6 M8 q1 `. k invoke GetSubMenu,eax,0 mov hMenu,eax .elseif uMsg==WM_COMMAND 3 Q2 t4 f& M% C' z mov eax,wParam ; H* N+ S& P% t .if ax==IDCANCEL invoke EndDialog,hWnd,TRUE * ?) o. ^* y. ^6 \4 l, r$ ^ .elseif ax == IDOK ;mov IsTray,TRUE mov myicon.cbSize,sizeof NOTIFYICONDATA ;需填入NOTIFYICONDATA数据结构的长度 * X# Q5 V) y- c+ z$ W- Y push hWnd pop myicon.hwnd mov myicon.uFlags,NIF_ICON+NIF_MESSAGE+NIF_TIP ;设置uCallbackMessage,hIcon,szTip是否有效 mov myicon.uID,IDI_TRAY ;为图标所设置的ID值 push hIconA pop myicon.hIcon ;显示在状态栏上的图标 mov myicon.uCallbackMessage,WM_USER + 1 ;消息编号 3 G* x8 N) A3 L6 ~) P! a invoke lstrcpy,addr myicon.szTip,addr szTipText ;提示信息 / U0 w) ?: ^3 x/ U1 F invoke Shell_NotifyIcon,NIM_ADD,addr myicon ! s, ^# v' V0 A- k0 ? invoke ShowWindow,hWnd,SW_HIDE .elseif ax == IDM_EXIT : \( ^: T H6 k0 F0 T invoke EndDialog,hWnd,TRUE ; l- c4 p7 S' @ D& V invoke Shell_NotifyIcon,NIM_DELETE,addr myicon ; h7 k7 Y1 q; J+ i8 @" u: M .elseif ax == IDM_OPEN 4 d: c& p2 U @7 x7 \- ~7 M invoke mciSendStringA,offset szOpen,0,0,0 : B% y' _/ s1 R0 y9 @& l2 s O .elseif ax == IDM_CLOSE invoke mciSendStringA,offset szClose,0,0,0 - g" y8 z9 T2 }- k" ^ j7 S .endif $ R! w* {4 F' @2 e; H3 o/ z.elseif uMsg==WM_CLOSE invoke EndDialog,hWnd,FALSE .elseif uMsg == WM_USER + 1 8 ?+ y" _7 s. {# ] .if wParam == IDI_TRAY 6 L/ c& T7 q! T* J ;.if lParam == WM_LBUTTONDOWN . l6 g% l- h; d% y' c6 J+ K ;invoke SendMessage,hWnd,WM_SYSCOMMAND,SC_RESTORE,NULL 8 c) F5 @; K( R9 a# n. _9 c .if lParam == WM_RBUTTONDOWN invoke GetCursorPos,addr @pt invoke SetForegroundWindow,hWnd invoke TrackPopupMenu,hMenu,TPM_RIGHTBUTTON,@pt.x,@pt.y,NULL,hWnd,NULL invoke PostMessage,hWnd,WM_NULL,0,0 * \$ d, f% X0 g! `9 f/ b k .endif + d* W) D _& @) D .endif ; h/ t- E& p! k7 i5 j.else 1 _! P' m, y6 c- M mov eax,FALSE ret 9 M, Z3 ?3 Z" w. t/ j! i/ q8 w.endif : K& Z2 ~4 n- k O/ ]7 b) p. }mov eax,TRUE ' R6 s& Y, `9 e$ k/ I, Jret DlgProc endp ) F" `: L l6 M; t( X" d: e" g # A7 c% O3 s7 \ R, QEND START 1 H8 I. _6 f* q3 ]9 a; t- k: e3 l ' f* b1 h& X7 ]% V }+ c) {

游侠无极限

可是汇编做出来的最小^_^
( q  e2 L! @. R0 c7 v; F6 e& c1 G& L6 J) m我编译出来都不到4k，FAT32的一个蔟也不到

老兄，你这是展示汇编的强大还是展示汇编的繁琐？
打开/关闭光驱只要调用mciSendString API函数就可以了，任何语言都比汇编简单
打开 mciSendString("set CDAudio door open",0,0, 0)
关闭 mciSendString("set CDAudio door closed", 0,0, 0)