how can i tell in pascal to execute some dos commands in a specified line of my program,i know the dos unit and some commands like exec command but how can i perform say format or xcopy or commands like this?

No One Knows What Is Like To Be The Sad Boy

: how can i tell in pascal to execute some dos commands in a specified line of my program,i know the dos unit and some commands like exec command but how can i perform say format or xcopy or commands like this?
:
: No One Knows What Is Like To Be The Sad Boy
:
Hi !

You can execute the command interpreter this way :

SwapVectors;
Exec(GetEnv('COMSPEC'),'/C xcopy...');

: : how can i tell in pascal to execute some dos commands in a specified line of my program,i know the dos unit and some commands like exec command but how can i perform say format or xcopy or commands like this?
: :
: : No One Knows What Is Like To Be The Sad Boy
: :
: Hi !
:
: You can execute the command interpreter this way :

To add to your code, you can have a procedure like this:

FUNCTION DosCmd(Cmd : String) : Boolean;
Begin
     SwapVectors;
     Exec(GetEnv('COMSPEC'),'/C '+Cmd);
     SwapVectors;
     DosCmd := Boolean(DosError);
End;

Then you can just pass the DOS commands to the function and it will return TRUE if it worked.

Phat Nat

Thanks You all guys ,i'll try that and i let u know if i had any problems!


:x To You All ;)

: how can i tell in pascal to execute some dos commands in a specified line of my program,i know the dos unit and some commands like exec command but how can i perform say format or xcopy or commands like this?
:
: No One Knows What Is Like To Be The Sad Boy
:
Here is an example code to format a floppy disk:

  
{$M 20480, 0, 65520} 

uses
  Dos;

begin
  SwapVectors;
  Exec('format a:','');
  SwapVectors;
end.

The statements used are explained in the help files.

I tried things you told me,the code gets compiled but it passes the command line as if it is a comment :(
what should i do?

FUNCTION DosCmd(Cmd : String) : Boolean;
Begin
     SwapVectors;
     Exec(GetEnv('COMSPEC'),'/C '+Cmd);
     SwapVectors;
     DosCmd := Boolean(DosError);
End;

what is wring with this function? i exactly typed above ,i just replaced
format a: instead of cmd and the other things are just above function
what is wring with it?(by the way what is that copspec in single''?

: I tried things you told me,the code gets compiled but it passes the command line as if it is a comment :(
: what should i do?
:

: FUNCTION DosCmd(Cmd : String) : Boolean;
: Begin
:      SwapVectors;
:      Exec(GetEnv('COMSPEC'),'/C '+Cmd);
:      SwapVectors;
:      DosCmd := Boolean(DosError);
: End;
: 

: what is wring with this function? i exactly typed above ,i just replaced
: format a: instead of cmd and the other things are just above function
: what is wring with it?(by the way what is that copspec in single''?
:
:
Did you also reduce the heap size?
COMSPEC is the name of an enviromental variable, which points to the command interpreter.

Yeah Thats iT the heap memory!
it works fine now!
but some thing is not clear to memory we expand the heap memory to pass
the code segmen memory that is just 64kb ,isn't it?
so we have to expand it not reduce it! please tell me if i'm wrong
( I Guess :D ;) )

: Yeah Thats iT the heap memory!
: it works fine now!
: but some thing is not clear to memory we expand the heap memory to pass
: the code segmen memory that is just 64kb ,isn't it?
: so we have to expand it not reduce it! please tell me if i'm wrong
: ( I Guess :D ;) )
:
:
You're wrong.
By default each Pascal program reserves all the conventional memory for itself. Most of this memory consists of the heap. If you want to run a child process, you'll need to free some of that memory for the child process, because the child doesn't run inside the heap of your program. This means that you need to reduce the memory reservation of your program, hence you'll need to reduce the heap size.