如何在Delphi 中写dos命令行的语句.

Question

在.dpr中写代码!
如:
program Test;{$APPTYPE CONSOLE}uses
  Classes,
  SysUtils;
begin
  writeln('Hello!');
end.

Answer 1

但是报 I/O error 103
而且，我想在windows环境下使用，如点一 button 来执行

Answer 2

sorry 我刚才没看到编译指令，请问在windows程序下动态引用编译指令如何实现？
  小弟愚鲁，万分感激

Answer 3

COMM:='ARJ.EXE A  '+APPPATH+'\BACKUP\WXQPCBDB '+APPPATH+'\USER.* '+APPPATH+'\ADDR.*';
WINEXEC(PCHAR(COMM),0); 
别忘了加入uses  ShellApi

Answer 4

WinExec(PChar('D:\Adobe\Photoshop 6.0、Photoshp.exe  c:\123.bmp'),SW_SHOWMAXIMIZED);UINT WinExec(    LPCSTR lpCmdLine,// address of command line 
    UINT uCmdShow // window style for new application 
   );CmdShow Long，为窗口指定可视性方面的一个命令。请用下述任何一个常数 
SW_HIDE 隐藏窗口，活动状态给令一个窗口 
SW_MINIMIZE 最小化窗口，活动状态给令一个窗口 
SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态 
SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态 
SW_SHOWMAXIMIZED 最大化窗口，并将其激活 
SW_SHOWMINIMIZED 最小化窗口，并将其激活 
SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口 
SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口 
SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口 
SW_SHOWNORMAL 与SW_RESTORE相同