VBNet - Форум - Управление Light Alloy

Вопрос: Управление Light Alloy Добавлено: 25.02.06 18:31

Автор вопроса: DaaGER | Web-сайт: smartic.ru | ICQ: 329195567

Люди кто разбирается в Delphi и basic помогите перевести. Мне нужно из своей проги управлять моим любимым проигрыватедем. Разроботчики мне предоставили такой код для управления (всё дословно)

======================
Можно посылать основному окну программы сообщения, где Msg = WM_APP + 2504 (0x89C8), wParam = команда. (Если в настройках установлен флажок "Эмулировать окно WinAMP", то программа также эмулирует окно WinAMP'а и принимает все его команды.)

Пример:

procedure LightAlloyFullScreen;
var
  Wnd:HWND;
begin
  Wnd:=FindWindow('LightAlloyFront',NIL);
  if (Wnd<>0) then
    SendMessage(Wnd,WM_LACMD,LAC_WINDOW_FULLSCREEN,0);
end;

Все возможные команды перечислены ниже - если Вы пишете на Delphi - можете просто скопировать этот фрагмент.

const
   WM_LACMD = WM_APP + 2504;

   LAC_VERSION = 000;

   LAC_FILE_OPEN = 050;
   LAC_FILE_INFO = 051;

   LAC_PLAYBACK_STOP = 100;
   LAC_PLAYBACK_PLAY = 101;
   LAC_PLAYBACK_STOP_PLAY = 102;
   LAC_PLAYBACK_SPEED_PLAY = 103;
   LAC_PLAYBACK_FILTERS = 104;

   LAC_SEEK_FRAME_STEP = 150;
   LAC_SEEK_FRAME_BACK = 151;
   LAC_SEEK_FORWARD = 152;
   LAC_SEEK_BACKWARD = 153;
   LAC_SEEK_JUMP_FORWARD = 154;
   LAC_SEEK_JUMP_BACKWARD = 155;
   LAC_SEEK_REWIND = 156;
   LAC_SEEK_SET_BOOKMARK = 157;

   LAC_WINDOW_CONTROL_PANEL = 200;
   LAC_WINDOW_PLAYLIST = 201;
   LAC_WINDOW_FULLSCREEN = 202;
   LAC_WINDOW_ORIGINAL = 203;
   LAC_WINDOW_STAY_ON_TOP = 204;
   LAC_WINDOW_MINIMIZE = 205;
   LAC_WINDOW_MAXIMIZE = 206;

   LAC_PLAYLIST_NEXT = 250;
   LAC_PLAYLIST_PREV = 251;
   LAC_PLAYLIST_PLAY = 252;
   LAC_PLAYLIST_ADD_FILES = 253;
   LAC_PLAYLIST_ADD_FOLDER = 254;
   LAC_PLAYLIST_DELETE = 255;
   LAC_PLAYLIST_CLEAR = 256;
   LAC_PLAYLIST_SAVE = 257;
   LAC_PLAYLIST_MOVE_UP = 258;
   LAC_PLAYLIST_MOVE_DOWN = 259;
   LAC_PLAYLIST_SHUFFLE = 260;
   LAC_PLAYLIST_SORT = 261;
   LAC_PLAYLIST_REPORT = 262;
   LAC_PLAYLIST_REPEAT = 263;
   LAC_PLAYLIST_BOOKMARKS = 264;

   LAC_VIDEO_PROPERTIES = 300;
   LAC_VIDEO_SCREENSHOT = 301;
   LAC_VIDEO_SCALE_50 = 302;
   LAC_VIDEO_SCALE_100 = 303;
   LAC_VIDEO_SCALE_200 = 304;
   LAC_VIDEO_RATIO_ASIS = 305;
   LAC_VIDEO_RATIO_16_9 = 306;
   LAC_VIDEO_RATIO_4_3 = 307;
   LAC_VIDEO_RATIO_WIDTH = 308;
   LAC_VIDEO_RATIO_HEIGHT = 309;
   LAC_VIDEO_RATIO_CUSTOM = 310;
   LAC_VIDEO_RATIO_FREE = 311;
   LAC_VIDEO_ZOOM_IN = 312;
   LAC_VIDEO_ZOOM_OUT = 313;
   LAC_VIDEO_BRIGHTNESS_INC = 314;
   LAC_VIDEO_BRIGHTNESS_DEC = 315;
   LAC_VIDEO_CONTRAST_INC = 316;
   LAC_VIDEO_CONTRAST_DEC = 317;
   LAC_VIDEO_SATURATION_INC = 318;
   LAC_VIDEO_SATURATION_DEC = 319;

   LAC_SUBTITLES_LOAD = 350;
   LAC_SUBTITLES_SHOW = 351;

   LAC_SOUND_PROPERTIES = 400;
   LAC_SOUND_VOLUME_INC = 401;
   LAC_SOUND_VOLUME_DEC = 402;
   LAC_SOUND_MUTE = 403;
   LAC_SOUND_ADD = 404;

   LAC_APPLICATION_PREFERENCES = 450;
   LAC_APPLICATION_HELP = 451;
   LAC_APPLICATION_ABOUT = 452;
   LAC_APPLICATION_EXIT = 453;
   LAC_APPLICATION_POWER_OFF = 454;

=============================
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Victor ICQ: 345743490 Вопросов: 42 Ответов: 385	Web-сайт: vt-dbnz.narod.ru Профиль \| Цитата \| #1	Добавлено: 26.02.06 00:24
	Sub LightAlloyFullScreen() Dim Wnd as long Wnd:=FindWindow('LightAlloyFront',0); if Wnd<>0 then SendMessage(Wnd,WM_LACMD, LAC_WINDOW_FULLSCREEN,0); end if end; Public Enum eLACommands WM_LACMD = WM_APP + 2504 LAC_VERSION = 0 LAC_FILE_OPEN = 50 LAC_FILE_INFO = 51 LAC_PLAYBACK_STOP = 100 LAC_PLAYBACK_PLAY = 101 LAC_PLAYBACK_STOP_PLAY = 102 LAC_PLAYBACK_SPEED_PLAY = 103 LAC_PLAYBACK_FILTERS = 104 LAC_SEEK_FRAME_STEP = 150 LAC_SEEK_FRAME_BACK = 151 LAC_SEEK_FORWARD = 152 LAC_SEEK_BACKWARD = 153 LAC_SEEK_JUMP_FORWARD = 154 LAC_SEEK_JUMP_BACKWARD = 155 LAC_SEEK_REWIND = 156 LAC_SEEK_SET_BOOKMARK = 157 LAC_WINDOW_CONTROL_PANEL = 200 LAC_WINDOW_PLAYLIST = 201 LAC_WINDOW_FULLSCREEN = 202 LAC_WINDOW_ORIGINAL = 203 LAC_WINDOW_STAY_ON_TOP = 204 LAC_WINDOW_MINIMIZE = 205 LAC_WINDOW_MAXIMIZE = 206 LAC_PLAYLIST_NEXT = 250 LAC_PLAYLIST_PREV = 251 LAC_PLAYLIST_PLAY = 252 LAC_PLAYLIST_ADD_FILES = 253 LAC_PLAYLIST_ADD_FOLDER = 254 LAC_PLAYLIST_DELETE = 255 LAC_PLAYLIST_CLEAR = 256 LAC_PLAYLIST_SAVE = 257 LAC_PLAYLIST_MOVE_UP = 258 LAC_PLAYLIST_MOVE_DOWN = 259 LAC_PLAYLIST_SHUFFLE = 260 LAC_PLAYLIST_SORT = 261 LAC_PLAYLIST_REPORT = 262 LAC_PLAYLIST_REPEAT = 263 LAC_PLAYLIST_BOOKMARKS = 264 LAC_VIDEO_PROPERTIES = 300 LAC_VIDEO_SCREENSHOT = 301 LAC_VIDEO_SCALE_50 = 302 LAC_VIDEO_SCALE_100 = 303 LAC_VIDEO_SCALE_200 = 304 LAC_VIDEO_RATIO_ASIS = 305 LAC_VIDEO_RATIO_16_9 = 306 LAC_VIDEO_RATIO_4_3 = 307 LAC_VIDEO_RATIO_WIDTH = 308 LAC_VIDEO_RATIO_HEIGHT = 309 LAC_VIDEO_RATIO_CUSTOM = 310 LAC_VIDEO_RATIO_FREE = 311 LAC_VIDEO_ZOOM_IN = 312 LAC_VIDEO_ZOOM_OUT = 313 LAC_VIDEO_BRIGHTNESS_INC = 314 LAC_VIDEO_BRIGHTNESS_DEC = 315 LAC_VIDEO_CONTRAST_INC = 316 LAC_VIDEO_CONTRAST_DEC = 317 LAC_VIDEO_SATURATION_INC = 318 LAC_VIDEO_SATURATION_DEC = 319 LAC_SUBTITLES_LOAD = 350 LAC_SUBTITLES_SHOW = 351 LAC_SOUND_PROPERTIES = 400 LAC_SOUND_VOLUME_INC = 401 LAC_SOUND_VOLUME_DEC = 402 LAC_SOUND_MUTE = 403 LAC_SOUND_ADD = 404 LAC_APPLICATION_PREFERENCES = 450 LAC_APPLICATION_HELP = 451 LAC_APPLICATION_ABOUT = 452 LAC_APPLICATION_EXIT = 453 LAC_APPLICATION_POWER_OFF = 454 End Enum API я объявить поленился. Ответить

Номер ответа: 2 Автор ответа: Victor ICQ: 345743490 Вопросов: 42 Ответов: 385	Web-сайт: vt-dbnz.narod.ru Профиль \| Цитата \| #2	Добавлено: 26.02.06 00:29
	Недоработочка. Точнее схалтурил. end; = End Sub Еще одинарные кавычки на двойные заменить. И парочку точек-с-запятой тоже стереть надо. И := надо на = заменить. Управляй на здоровье. Все очень просто. Ответить

Страница: 1 |