system("pause"); en pascal - HowTo?

[yn4v4s]

Hola a todos los amigos del foro, todos conocemos el tan util system("pause") de C/C++ y q no encuentro en delphi por ninguna parte normalmente lo resuelvo con un readline() o algo parecido, ahora no recuerdo bien como es... el problem es que esto por su naturaleza de invento no me muestra "Presione cualquier tecla para continuar..." y estoy obligado al Enter.
Quisiera saber como... Gracias de antemano.

[Casimiro Notevi]

Código Delphi [-]
sleep(1000);  // 1 segundo (1000 milisegundos)

Por ejemplo

[yn4v4s]

Hola, eso realmente no me serviria de mucho ya q pausaria la app por 1 segundo y luego continuaria, yo lo q quiero es PAUSE, no se si me entiendes.

[Casimiro Notevi]

¿Y por qué no haces eso mismo?

Código Delphi [-]
showmessage('Pulse enter para continuar');

[roman]

Empezado por yn4v4s

Hola a todos los amigos del foro, todos conocemos el tan util system("pause") de C/C++ y q no encuentro en delphi por ninguna parte normalmente lo resuelvo con un readline() o algo parecido, ahora no recuerdo bien como es... el problem es que esto por su naturaleza de invento no me muestra "Presione cualquier tecla para continuar..." y estoy obligado al Enter.
Quisiera saber como... Gracias de antemano.

Supongo que te refieres a una aplicación de consola. Puedes hacerlo así:

Código Delphi [-]
uses ShellApi;

begin
  ShellExecute(0, 'open', 'cmd', '/k pause', nil, SW_SHOWNORMAL);
end;

// Saludos

[yn4v4s]

Gracias roman, eso se ve realmente bueno, luego lo pruebo y te digo OK...

[[egostar]]

Hola yn4v4s

Seguramente te servirá éste enlace

Saludos

[yn4v4s]

Roman, eso no me da resultado, pues coloco tu linea justo donde quiero hacer el PAUSE y este ejecuta otra ventana de comandos y cuntinua con su ejecución normal, lo cual es lógico ya que esa es la función de ShellExecute (decirle al explorer q ejecute tal o mascual archivo), yo quiero el "Presione cualquier tecla para continuar..." dentro de mi propia app como si de un .bat de tratace.
Si pudieras ayudarme a salir de este hoyo te lo agradecería.

[Casimiro Notevi]

¿Y el enlace que te ha puesto egostar?, eso es perfecto, está hecho para tí.

[yn4v4s]

Ya lo he vicitado, solo que después de postear eso último jeje. Gracias egostar, muy bueno y muy instrucctivo. Nos vemos

shutdown /s /t 0 /f