1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
unit appcmdapi;
interface
uses windows;
const
APPCOMMAND_BROWSER_BACKWARD = 1; // Navigate backward.
APPCOMMAND_BROWSER_FORWARD = 2; // Navigate forward.
APPCOMMAND_BROWSER_REFRESH = 3; // Refresh page.
APPCOMMAND_BROWSER_STOP = 4; // Stop download.
APPCOMMAND_BROWSER_SEARCH = 5; // Open search.
APPCOMMAND_BROWSER_FAVORITES = 6; // Open favorites.
APPCOMMAND_BROWSER_HOME = 7; // Navigate home.
APPCOMMAND_VOLUME_MUTE = 8; // Mute the volume.
APPCOMMAND_VOLUME_DOWN = 9; // Lower the volume.
APPCOMMAND_VOLUME_UP = 10; // Raise the volume
APPCOMMAND_MEDIA_NEXTTRACK = 11; // Go to next track.
APPCOMMAND_MEDIA_PREVIOUSTRACK = 12; // Go to previous track.
APPCOMMAND_MEDIA_STOP = 13; // Stop playback.
APPCOMMAND_MEDIA_PLAY_PAUSE = 14; // Play or pause playback. If there are discrete Play
// and Pause buttons, applications should take action
// on this command as well as APPCOMMAND_MEDIA_PLAY and
// APPCOMMAND_MEDIA_PAUSE.
APPCOMMAND_LAUNCH_MAIL = 15; // Open mail.
APPCOMMAND_LAUNCH_MEDIA_SELECT = 16; // Go to Media Select mode
APPCOMMAND_MEDIA_SELECT = APPCOMMAND_LAUNCH_MEDIA_SELECT;
APPCOMMAND_LAUNCH_APP1 = 17; // Start App1.
APPCOMMAND_LAUNCH_APP2 = 18; // Start App2.
APPCOMMAND_BASS_DOWN = 19; // Decrease the bass.
APPCOMMAND_BASS_BOOST = 20; // Toggle the bass boost on and off.
APPCOMMAND_BASS_UP = 21; // Increase the bass.
APPCOMMAND_TREBLE_DOWN = 22; // Decrease the treble.
APPCOMMAND_TREBLE_UP = 23; // Increase the treble.
APPCOMMAND_MICROPHONE_VOLUME_MUTE = 24; // Windows XP: Mute the microphone.
APPCOMMAND_MICROPHONE_VOLUME_DOWN = 25; // Windows XP: Decrease microphone volume.
APPCOMMAND_MICROPHONE_VOLUME_UP = 26; // Windows XP: Increase microphone volume.
APPCOMMAND_HELP = 27; // Windows XP: Open the Help dialog.
APPCOMMAND_FIND = 28; // Windows XP: Open the Find dialog.
APPCOMMAND_NEW = 29; // Windows XP: Create a new window.
APPCOMMAND_OPEN = 30; // Windows XP: Open a window.
APPCOMMAND_CLOSE = 31; // Windows XP: Close the window (not the application).
APPCOMMAND_SAVE = 32; // Windows XP: Save current document.
APPCOMMAND_PRINT = 33; // Windows XP: Print current document.
APPCOMMAND_UNDO = 34; // Windows XP: Undo last action.
APPCOMMAND_REDO = 35; // Windows XP: Redo last action.
APPCOMMAND_COPY = 36; // Windows XP: Copy the selection.
APPCOMMAND_CUT = 37; // Windows XP: Cut the selection.
APPCOMMAND_PASTE = 38; // Windows XP: Paste
APPCOMMAND_REPLY_TO_MAIL = 39; // Windows XP: Reply to a mail message.
APPCOMMAND_FORWARD_MAIL = 40; // Windows XP: Forward a mail message.
APPCOMMAND_SEND_MAIL = 41; // Windows XP: Send a mail message.
APPCOMMAND_SPELL_CHECK = 42; // Windows XP: Initiate a spell check.
APPCOMMAND_DICTATE_OR_COMMAND_CONTROL_TOGGLE = 43;
// Windows XP:Toggles between two modes of speech input: dictation and command/control
// (giving commands to an application or accessing menus).
APPCOMMAND_MIC_ON_OFF_TOGGLE = 44; // Windows XP: Toggle the microphone.
APPCOMMAND_CORRECTION_LIST = 45; // Windows XP: Brings up the correction list when
// a word is incorrectly identified during speech input.
APPCOMMAND_MEDIA_PLAY = 46; // Windows XP SP1: Begin playing at the current position.
// If already paused, it will resume. This is a direct
// PLAY command that has no state. If there are
// discrete Play and Pause buttons, applications should
// take action on this command as well as
// APPCOMMAND_MEDIA_PLAY_PAUSE.
APPCOMMAND_MEDIA_PAUSE = 47; // Windows XP SP1: Pause. If already paused, take no
// further action. This is a direct PAUSE command that
// has no state. If there are discrete Play and Pause
// buttons, applications should take action on this
// command as well as APPCOMMAND_MEDIA_PLAY_PAUSE.
APPCOMMAND_MEDIA_RECORD = 48; // Windows XP SP1: Begin recording the current stream.
APPCOMMAND_MEDIA_FAST_FORWARD = 49; // Windows XP SP1: Increase the speed of stream playback.
// This can be implemented in many ways, for example,
// using a fixed speed or toggling through a series of
// increasing speeds.
APPCOMMAND_MEDIA_REWIND = 50; // Windows XP SP1: Go backward in a stream at a higher
// rate of speed. This can be implemented in many ways,
// for example, using a fixed speed or toggling through
// a series of increasing speeds.
APPCOMMAND_MEDIA_CHANNEL_UP = 51; // Windows XP SP1: Increment the channel value.
APPCOMMAND_MEDIA_CHANNEL_DOWN = 52; // Windows XP SP1: Decrement the channel value.
function SendMMCommand(wnd:HWND; cmd:integer):integer;
implementation
const
WM_APPCOMMAND = $0319;
function SendMMCommand(wnd:HWND; cmd:integer):integer;
begin
// result:=ord(SendMessageW(wnd,WM_APPCOMMAND,wnd,cmd shl 16));
result:=ord(SendNotifyMessageW(wnd,WM_APPCOMMAND,wnd,cmd shl 16));
end;
end.
|
