Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Вниз

Управление чужими программами   Найти похожие ветки 

 
MikeZ   (2002-08-05 09:45) [0]

Где-то в форуме видел, но не нашел, что управлять прогами можно
посылая сообщения в окно проги, указывая id нужного компонента.
Этот id (вроде бы) можно заранее посмотреть в просмотрщике
ресурсов. Хотелось бы пример этого (была фраза про управление
WinAmp"ом)


 
Opuhshii   (2002-08-05 10:28) [1]

Читай...
http://www.delphikingdom.com/helloworld/Windows.htm
http://www.delphikingdom.com/helloworld/Wininf.htm
http://www.delphikingdom.com/helloworld/Wininf01.htm


 
MikeZ   (2002-08-05 13:05) [2]

Все это я читал и раньше, прочитал еще раз. Не в этом дело. Но основной вопрос - это не как добраться до определенного меню, а что ему говорить, чтобы оно "нажалось". Ищется оно (как я думаю. А правильно ли?) через GetMenu, дальше в SendMessage вставляется нужный id. А вот дальше...?


 
Proton   (2002-08-05 20:00) [3]

да если пеример нужен то иди на freeusoft.hut.ru
там скииновый чат есть с возможностью управления winamp"ом и много чего еще :) (+ естественно сыр на делфях)
называется вроде сталкер


 
MikeZ   (2002-08-06 00:06) [4]

Классный пример. Спасибо. Только вот непонятно: там у него WinAmp начинает играть строкой sendmessage(findwindow("Winamp v1.x",nil),wm_command,40045,0), где 40045 - ID нужной кнопки/менюшки или чего-то еще. Только как этот ID искать? В Restorator"e акселератор клавиши "Х" (меню "воспроизвести") - "-25491". А как искать 40045? Может быть в других просмотрщиках ресурсов?


 
Proton   (2002-08-06 21:39) [5]

MENU
{
POPUP "Main"
{
MENUITEM "Nullsoft &Winamp...", 40041
MENUITEM SEPARATOR
POPUP "&Play"
{
MENUITEM "&File... \tL", 40029
MENUITEM "&Location...\tCtrl+L", 40185
MENUITEM "&Directory...\tShift+L", 40187
MENUITEM SEPARATOR
MENUITEM SEPARATOR
POPUP "&Bookmark"
{
MENUITEM "(no bookmarks)", 40322, GRAYED
}
}
MENUITEM "View &file info\tAlt+3", 40188
POPUP "&Bookmarks"
{
MENUITEM "&Edit bookmarks...\t(Ctrl+Alt+I)", 40320
MENUITEM "&Add current as bookmark\t(Alt+I)", 40321
MENUITEM SEPARATOR
}
MENUITEM SEPARATOR
MENUITEM "Main Window\tAlt+W", 40258
MENUITEM "Playlist &Editor\tAlt+E", 40040
MENUITEM "E&qualizer \tAlt+G", 40036
MENUITEM "Mini&browser\tAlt+T", 40298
MENUITEM SEPARATOR
POPUP "&Options"
{
MENUITEM "&Preferences... \tCtrl+P", 40012
POPUP "Skins"
{
MENUITEM "S&kin Browser...\tAlt+S", 40219
MENUITEM SEPARATOR
MENUITEM "<Base Skin>", 32767
MENUITEM "<< Get more skins! >>", 40316
}
MENUITEM SEPARATOR
MENUITEM "Time &elapsed\t(Ctrl+T toggles)", 40037
MENUITEM "Time re&maining\t(Ctrl+T toggles)", 40038
MENUITEM SEPARATOR
MENUITEM "&Always On Top\tCtrl+A", 40019
MENUITEM "&Double Size\tCtrl+D", 40165
MENUITEM "&EasyMove\tCtrl+E", 40186
MENUITEM SEPARATOR
MENUITEM "&Repeat\tR", 40022
MENUITEM "&Shuffle\tS", 40023
}
POPUP "Play&back"
{
MENUITEM "P&revious\tZ", 40044
MENUITEM "&Play\tX", 40045
MENUITEM "P&ause\tC", 40046
MENUITEM "&Stop\tV", 40047
MENUITEM "&Next \tB", 40048
MENUITEM SEPARATOR
MENUITEM "Stop w/ fa&deout\tShift+V", 40147
MENUITEM "Stop after &current\tCtrl+V", 40157
MENUITEM "&Back 5 seconds\tLeft", 40144
MENUITEM "&Fwd 5 seconds\tRight", 40148
MENUITEM "&Start of list\tCtrl+Z", 40154
MENUITEM "10 t&racks back\tNum. 1", 40197
MENUITEM "10 &tracks fwd\tNum. 3", 40195
MENUITEM SEPARATOR
MENUITEM "&Jump to time\tCtrl+J", 40193
MENUITEM "Ju&mp to file\tJ", 40194
}
POPUP "&Visualization"
{
MENUITEM "Visualization options...\tAlt+O", 40317
MENUITEM SEPARATOR
MENUITEM "Start/Stop &plug-in\tCtrl+Shift+K", 40192
MENUITEM "&Configure plug-in... \tAlt+K", 40221
MENUITEM "&Select plug-in...\tCtrl+K", 40191
}
POPUP "Skins"
{
MENUITEM "S&kin Browser...\tAlt+S", 40219
MENUITEM SEPARATOR
MENUITEM "<Base Skin>", 32767
MENUITEM "<< Get more skins! >>", 40316
}
MENUITEM SEPARATOR
MENUITEM "E&xit", 40001
}
POPUP "EQpresets"
{
POPUP "Load"
{
MENUITEM "&Preset...", 40172
MENUITEM "&Auto-load preset...", 40173
MENUITEM "&Default", 40174
MENUITEM SEPARATOR
MENUITEM "From &EQF...", 40253
}
POPUP "Save"
{
MENUITEM "&Preset...", 40175
MENUITEM "&Auto-load preset...", 40176
MENUITEM "&Default", 40177
MENUITEM SEPARATOR
MENUITEM "To &EQF...", 40254
}
POPUP "Delete"
{
MENUITEM "&Preset...", 40178
MENUITEM "&Auto-load preset...", 40180
}
}
POPUP "PLContextMenu"
{
POPUP "MiscOpt"
{
POPUP "File info"


продолжение следует


 
Proton   (2002-08-06 21:39) [6]

продолжение

{
MENUITEM "F&ile info...\tAlt+3", 40208
MENUITEM "Playlist entry...\tCtrl+E", 40255
}
POPUP "Sort"
{
MENUITEM "Sort list by &title", 40209
MENUITEM "Sort list by &filename", 40210
MENUITEM "Sort list by &path and filename", 40211
MENUITEM SEPARATOR
MENUITEM "R&everse list\tCtrl+R", 40213
MENUITEM "&Randomize list", 40212
}
POPUP "Misc"
{
MENUITEM "&Generate HTML playlist\t(Ctrl+Alt+G)", 40292
MENUITEM SEPARATOR
MENUITEM "&Read extended info on selection\t(Ctrl+Alt+E)", 40293
}
}
POPUP "Add"
{
MENUITEM "Add file(s)\tL", 1032
MENUITEM "Add directory\tShift+L", 1036
MENUITEM "Add location\tCtrl+L", 1039
}
POPUP "Remove"
{
MENUITEM "Remove selected\tDelete", 1034
MENUITEM "Crop selected\tCtrl+Delete", 1035
MENUITEM "Clear playlist\tCtrl+Shift+Delete", 40214
POPUP "Remove..."
{
MENUITEM "Remove all &dead files\tAlt+Delete", 40222
MENUITEM "&Physically remove selected file(s)", 40223
}
}
POPUP "Select"
{
MENUITEM "Select all\tCtrl+Alt+A", 40205
MENUITEM "Select none", 40207
MENUITEM "Invert selection\tCtrl+I", 40171
}
POPUP "Playlist"
{
MENUITEM "Open playlist\tCtrl+O", 40202
MENUITEM "Save playlist\tCtrl+S", 40204
MENUITEM "New playlist (clear)\tCtrl+N", 40214
}
POPUP "Context"
{
MENUITEM "Play item(s)\tEnter", 40184
MENUITEM SEPARATOR
MENUITEM "Remove item(s)\tDelete", 1034
MENUITEM "Crop files\tCtrl+Delete", 1035
MENUITEM SEPARATOR
MENUITEM "File info\tAlt+3", 40208
MENUITEM "Playlist entry\tCtrl+E", 40255
MENUITEM "Bookmark item(s)\tAlt+I", 40319
}
}
POPUP "Context menus"
{
POPUP "Song title"
{
MENUITEM "&File info\tAlt+3 or Dblclick", 40188
MENUITEM "Jump to file...\tJ", 40194
MENUITEM "Jump to time...\tCtrl+J", 40193
MENUITEM "Autoscroll songname", 40189
}
POPUP "Time display"
{
MENUITEM "Time &elapsed\t(Ctrl+T toggles)", 40037
MENUITEM "Time re&maining\t(Ctrl+T toggles)", 40038
}
POPUP "Previous button"
{
MENUITEM "&Previous\t(Click)", 40044
MENUITEM "&Start of list\t(Ctrl+Click)", 40154
MENUITEM "&Rewind 5 seconds\t(Shift+Click)", 40144
}
POPUP "Play Button"
{
MENUITEM "&Play/restart\t(Click)", 40045
MENUITEM "Open &location...\t(Ctrl+Click)", 40155
MENUITEM "Open &file...\t(Shift+Click)", 40145
}
POPUP "Pause button"
{
MENUITEM "&Pause/Unpause\t(Click)", 40046
}
POPUP "Stop button"
{
MENUITEM "&Stop\t(Click)", 40047
MENUITEM "&Stop w/ fadeout\t(Shift+Click)", 40147
MENUITEM "Stop after &current\t(Ctrl+Click)", 40157
}
POPUP "Next button"
{
MENUITEM "&Next\t(Click)", 40048
MENUITEM "&Fastforward 5 seconds\t(Shift+Click)", 40148
MENUITEM "&End of list\t(Ctrl+Click)", 40158
}
POPUP "Eject button"
{
MENUITEM "Open &file...\t(Click)", 40029
MENUITEM "Open &directory...\t(Shift+Click)", 40187
MENUITEM "Open &location...\t(Ctrl+Click)", 40185
}
POPUP "Seek bar"
{
MENUITEM "Jump to time\t(Ctrl+J)", 40193
MENUITEM "Rewind 5 seconds\t(Left Arrow)", 40061
MENUITEM "Forward 5 seconds\t(Right Arrow)", 40060
}
POPUP "Shuffle"
{
MENUITEM "Shuffle\t(S)", 40023
}
POPUP "Repeat"
{
MENUITEM "Repeat\t(R)", 40022
}
POPUP "EQ button"
{
MENUITEM "Graphical Equalizer\t(Alt+G)", 40036
}
POPUP "PE button"
{
MENUITEM "Playlist Editor\t(Alt+E)", 40040
}
}
POPUP "EQContext"
{
POPUP "enbut"
{
MENUITEM "EQ enabled\t(O)", 40244
}
POPUP "albut"
{
MENUITEM "EQ autoloading enabled\t(A)", 40245
}
}
}



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.009 c
3-60481
Naik
2002-07-29 06:37
2002.08.19
Ищу замену TTable


3-60485
vich
2002-07-25 02:28
2002.08.19
Пытаюсь сравнить дату из базы с системной и выдать сообщение.


1-60743
billybons
2002-08-07 14:29
2002.08.19
как программно назначить/освободить процедуру обработки event-a


6-60777
elgato
2002-06-06 19:55
2002.08.19
Socket - асинхронный


1-60707
anod
2002-08-06 21:47
2002.08.19
Как сделать,





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский