Pascal 7 可否執行Dos Command??

eefui

比如想要做一個exe file, 可以運行copy , del  等指令呢?

像batch file 的功能醬..


如果在delphi 6 ,要怎樣執行copy file  , delete file 等任務呢??

fxam

> 如果在delphi 6 ,要怎樣執行copy file  , delete file 等任務呢??
CopyFile, DeleteFile...

eefui

那請問在pascal 之下呢?? 可否運行dos  之下的命令呢??好像 dir , copy  等等??

fxam

> 那請問在pascal 之下呢?? 可否運行dos  之下的命令呢??好像 dir , copy  等等??

转自 http://student.vub.ac.be/~bvingerh/FAQ1.htm


執行DOS指令
USES dos;
VAR file,params : string;

BEGIN
  writeln('Enter DOS command or batch file to be executed: ');
  readln(params);
  file:=getenv('COMSPEC');     {*2}
  params:=' /C'+params;        {*3}
  swapvectors;
  exec(file,params);
  swapvectors;
  if doserror<>0
   then writeln('Error occurred')
   else writeln('Execution successful');
END.


執行其它程式
USES dos;
VAR file,params : string;

BEGIN
  writeln('Enter full path + filename: ');
  readln(file);
  write('Enter parameters: ');
  readln(params);
  swapvectors;             {*1}
  exec(file,params);
  swapvectors;
  if doserror<>0
   then writeln('Error occurred')
   else writeln('Execution successful');
END.

eefui

原帖由 fxam 于 10-12-2005 11:38 AM 发表
> 那請問在pascal 之下呢?? 可否運行dos  之下的命令呢??好像 dir , copy  等等??

转自 http://student.vub.ac.be/~bvingerh/FAQ1.htm


執行DOS指令
USES dos;
VAR file,params :  ...

可以了,真是感謝ing