Newsgroup: it.comp.lang.pascal
Titolo: Si posspno usare i comandi dos

C'č un modo per far eseguire dei comandi dos (per esempio Time).
--
http://www.geocities.com/Colosseum/Stadium/2485/
Se vuoi giocare a scacchi per e-mail gratuitamente c'č
SIR che organizza tornei e anche match singoli ad honour
(senza l'uso del computer).
Pubblica anche un giornale scacchistico a cui tutti
possono collaborare.
http://www.geocities.com/Colosseum/Stadium/2485/
--
Automatic posted from root@[195.223.180.8]
via Mailgate Server - 
http://www.mailgate.org

Swapvectors (cerca le varie sintassi in Help topic)
diego
--
------------------------------------------------------------------
Per risposte togliere NOSPAM dall'indirizzo
For Reply remove NOSPAM from address
------------------------------------------------------------------
Luca Landucci ha scritto nel messaggio
+ADw-34E0949E.C2B325F1+
AEA-pontedera.pisoft.it
+AD4-...
+AD4-C'+AOg- un modo per far eseguire dei comandi dos (per esempio Time).
+AD4-
+AD4---
+AD4-
http://www.geocities.com/Colosseum/Stadium/2485/
+AD4-Se vuoi giocare a scacchi per e-mail gratuitamente c'+AOg-
+AD4-SIR che organizza tornei e anche match singoli ad honour
+AD4-(senza l'uso del computer).
+AD4-Pubblica anche un giornale scacchistico a cui tutti
+AD4-possono collaborare.
+AD4-
http://www.geocities.com/Colosseum/Stadium/2485/
+AD4-
+AD4-
+AD4-
+AD4---
+AD4-Automatic posted from root+AEAAWw-195.223.180.8+AF0-
+AD4-via Mailgate Server - 
http://www.mailgate.org

C'č un modo per far eseguire dei comandi dos (per esempio Time).
Preso dall'help on-line di BPW:
$M 8192,0,0}
uses Dos;
var Command: string[79];
begin
  Write('Enter DOS command: ');
  Readln(Command);
  if Command <> '' then
    Command := '/C ' + Command;
  SwapVectors;
  Exec(GetEnv('COMSPEC'), Command);
  SwapVectors;
  if DosError <> 0 then
    Writeln('Could not execute 
COMMAND.COM
');
end.
Se lanci il programma e come comando gli dai 'time', lui ti esegue
Time!
Se non sai adattare questo pezzo di codice alle tue esigenze,
contattami!
Ciao,
Mauro Molinari
(Pascal programmer & musician)
Internet e-mail: 
maur...@tin.it
 / 
maur...@mbox.vol.it
Digital Things Home Page: 
=> 
http://www.geocities.com/SiliconValley/Bay/8251
=> 
http://space.tin.it/musica/gvettora
=> 
http://members.tripod.com/~DjM_DiT
=> 
http://www.musicnation.com/home/digital_things
*** To send me an e-mail, select the right address.
*** Per mandarmi una e-mail, scegli l'indirizzo corretto.

Pensate che quella chiavica di Luca Landucci, ha suscitato in me emozioni
indescrivibili, scrivendo :
#C'è un modo per far eseguire dei comandi dos (per esempio Time).
Certo, nel seguente modo :
metti qualcosa del tipo {$M 8192, 0, 0} all'inizio e poi usa :
.
.
.
swapvectors;
exec(getenv('COMSPEC'), '/C time');
swapvectors;
.
.
.
--------------------------------------------------------
Andrea      
===========================================================================
Altro che sconti Telecom ! fatevi un bel panino con la Nutella...
---------------------------------------------------------------------------
Ti ho messo la maionese ! ti ho messo il chectch ? che vuoi di piu' ?
---------------------------------------------------------------------------
per le risposte via e-mail togli CHITIHACHIESTONIENTE!!!! dal mio indirizzo
---------------------------------------------------------------------------
ICQ# 8143647
---------------------------------------------------------------------------

C'è un modo per far eseguire dei comandi dos (per esempio Time).
Certo:
command:='xxx';
SWAPVECTORS;
EXEC(getenv('COMSPEC'),'/C ' + command);
SWAPVECTORS;
Però attento che li esegue come se fossi in DOS, quindi se esegui time ti scrive
di aggiornare l'ora ecc. ecc.
Se ti interessa prendere l'ora guardati le procedure e funzioni della unit DOS.
Emanuele Cesena
d.a.m...@iol.it