Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.01.2013, 17:23   #1
ZBEP
Форумчанин
 
Аватар для ZBEP
 
Регистрация: 23.03.2009
Сообщений: 334
По умолчанию windows 8 и VK_LAUNCH_MEDIA_SELECT

Подскажите на что заменена виртуальная клавиша запуска проигрывателя?
В Vista и 7 это было: VK_LAUNCH_MEDIA_SELECT
Код клавиши: 181

Win 8 же не реагирует на нажатие.
Может код поменялся? (или вообще его не стало 0_о )
ZBEP вне форума Ответить с цитированием
Старый 29.01.2013, 14:05   #2
ZBEP
Форумчанин
 
Аватар для ZBEP
 
Регистрация: 23.03.2009
Сообщений: 334
По умолчанию

Запуск от админа не помогает..
Кнопки тише, громче, сон и т.д. - все работают, а вот открытие браузера или WMP - нет, вне зависимости от назначенной клавиши

Последний раз редактировалось ZBEP; 29.01.2013 в 14:07.
ZBEP вне форума Ответить с цитированием
Старый 29.01.2013, 22:21   #3
Cynically
Пользователь
 
Регистрация: 05.01.2013
Сообщений: 60
По умолчанию

Да, кажется, код клавиши изменился. Попробуйте "0183".
Cynically вне форума Ответить с цитированием
Старый 30.01.2013, 07:22   #4
ZBEP
Форумчанин
 
Аватар для ZBEP
 
Регистрация: 23.03.2009
Сообщений: 334
По умолчанию

Цитата:
Сообщение от Cynically Посмотреть сообщение
Попробуйте "0183".
К сожалению так же, не реагирует
(запускаю с правами админа)

А как вообще определить на что код поменялся и остался ли он вообще?

П.с.
Проверьте кто-нить на Win 8 может не в коде дело:

Код:
unit Unit1;

interface

uses Forms;

type
  BOOL =LongBool;
  DWORD=LongWord;
  UINT =LongWord;
  HWND =type LongWord;

  TWMHotKey = packed record
    Msg: Cardinal;
    HotKey: Longint;
    Unused: Longint;
    Result: Longint;
  end;

  procedure keybd_event(bVk: Byte; bScan: Byte; dwFlags, dwExtraInfo: DWORD); stdcall;
  function RegisterHotKey(hWnd: HWND; id: Integer; fsModifiers, vk: UINT): BOOL; stdcall;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure WMHotKey(var Msg: TWMHotKey); message $0312;
  private

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure keybd_event; external 'user32.dll' name 'keybd_event';
function RegisterHotKey; external 'user32.dll' name 'RegisterHotKey';
//function UnregisterHotKey; external 'user32.dll' name 'UnregisterHotKey';

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  case msg.HotKey of
    180:keybd_event(181,0,0,0); //Замена кнопки открытия браузера на открытие плеера
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle,180,0,180);
end;

end.

Последний раз редактировалось ZBEP; 30.01.2013 в 07:35.
ZBEP вне форума Ответить с цитированием
Старый 30.01.2013, 09:19   #5
waleri
Старожил
 
Регистрация: 13.07.2012
Сообщений: 6,330
По умолчанию

А что возвращает RegisterHotKey()?
waleri вне форума Ответить с цитированием
Старый 30.01.2013, 15:15   #6
Cynically
Пользователь
 
Регистрация: 05.01.2013
Сообщений: 60
По умолчанию

Цитата:
Сообщение от ZBEP Посмотреть сообщение
К сожалению так же, не реагирует
(запускаю с правами админа)

А как вообще определить на что код поменялся и остался ли он вообще?
Я лично просто загуглил, лол.
Cynically вне форума Ответить с цитированием
Старый 30.01.2013, 17:50   #7
ZBEP
Форумчанин
 
Аватар для ZBEP
 
Регистрация: 23.03.2009
Сообщений: 334
По умолчанию

Цитата:
Сообщение от Cynically Посмотреть сообщение
Я лично просто загуглил, лол.
Ну так то да, но в данной ситуации это не выход, если код и изменился, то гуугл пока не помогает..

Цитата:
Сообщение от waleri Посмотреть сообщение
А что возвращает RegisterHotKey()?
Возвращает -1, True

Последний раз редактировалось ZBEP; 30.01.2013 в 17:55.
ZBEP вне форума Ответить с цитированием
Старый 29.04.2013, 23:37   #8
ZBEP
Форумчанин
 
Аватар для ZBEP
 
Регистрация: 23.03.2009
Сообщений: 334
По умолчанию

Проблема все еще актуальна, если кто сталкивался и знает решение - подскажите в какую сторону копать..
ZBEP вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
После установки windows xp 32- битной нельзя установить windows 7 64-битную Mag84 Windows 3 03.12.2012 15:50
Правда ли что Windows xp 64 определяет болше Оперативки чем Windows xp 32 subbota Операционные системы общие вопросы 4 03.06.2012 17:29
Собираюсь перейти с Windows на Linux, какой из дистирибутивов наиболее похож на Windows (Xp,7)? ivan.tiran Windows 5 09.03.2012 17:51
Windows7,не работает HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows NT\CurrentVersion\Windows\AppInit_D LLs ассемблер123 Windows 0 22.04.2010 18:30