1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure SendKeyStroke(ch: Char);
var
  wnd:HWND;
begin
  wnd := FindWindow('Studio',nil);
  PostMessage(wnd, WM_KEYDOWN, Word(ch), 0);
  PostMessage(wnd,  WM_KEYUP, Word(ch), 0);
end;


SendKeyStroke('X');  // Play
SendKeyStroke('V');  // Stop
SendKeyStroke('C');  // Pause
SendKeyStroke('B');  // Next Track
SendKeyStroke('Z');  // Previous Track