[ARV]

Люди! Неужели никто так и не удосужился проверить, как функция IsMidletPaused работает?!

program PauseTest;
var
 InPause, OutPause : integer;
 
begin
 InPause := 0;
 OutPause := 0;
 repeat
  SetColor(255,255,255);
  FillRect(0,0,GetWidth,GetHeight);
  SetColor(0,0,0);
  if IsMidletPaused 
   then InPause := InPause + 1
   else OutPause := OutPause + 1;
  DrawText('In  = '+InPause,10,10);
  DrawText('Out = '+OutPause,10,30);
  repaint;
  delay(1000);
 until GetKeyPressed <> KE_NONE;
end.

Откомпилируйте и проверьте! Код по-моему очевиден.

Для особо ленивых (которых, судя по всему, тут большинство) и теоретиков (которых тоже, видно, немало) сообщаю результат для Siemens C75 (не самый крутой смартфон , как понимаете): Во время разговора мидлет работает!!!!!!!!!!!