[Ama]

Доброе время суток!!! Вопрос: знает ли кто-нидь как сгенерировать сообщение в систему, которые возникают при нажатии на клаве кнопки play, stop, volUp, volDown. Ну говоря другими словами, хочу создать прогу которая будет генерировать эти сообщения чтобы проигрывалась следующая песня предыдущая и т.д.

[lmikle]

Тут скорее вопрос в том, для какого плеера ты собираешься это делать.

[Страдалецъ]

Видимо речь идет не о плеере, а о кнопках расширенной клавиатуре которых теперь стало много. Вам просто надо узнать код который привязан к нужной кнопке, ну а это просто:

Код:

procedure TForm5.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if Key <> 0 then ShowMessage(IntToStr(Key))
end;

Ну и послать сообщение с таким кодом соотвественно можно так:

Код:

procedure TForm5.PlayClick(Sender: TObject);
begin
 Keybd_Event(179, 0, 0, 0);
 Keybd_Event(179, 0, KEYEVENTF_KEYUP, 0);
end;

procedure TForm5.StopClick(Sender: TObject);
begin
 Keybd_Event(178, 0, 0, 0);
 Keybd_Event(178, 0, KEYEVENTF_KEYUP, 0);
end;