我winexec('md c:/123',sw_normal);为什么不行？？(0分)

我就<br>begin<br>winexec(md c:/123,sw_normal);<br>end;<br><br>有什么不对吗？？

KAO 用什么Winexec <br>下面：<br>在SYSTEM UNIT 中<br>procedure mkdir(s : string); 创建目录<br>procedure getdir(d: byte;var s :string) ;得到当前目录<br>procedure chgdir(s :string) ;设定当前目录<br><br>example;<br>var s :string;<br>begin<br>&nbsp; getdir(2,s);// &nbsp;chgdir(s);换目录为当前目录<br>&nbsp; mkdir(yourdirname);<br>end; <br>

getdir(2,s);<br>这个2是干什么的？<br>

你那种方式当然不对了，winexec是要有具体的可执行文件的。[]

md 是dos内部命令，用cmd来解释。<br>winexec('cmd /c md c:/bruce', sw_normal) ;

md 也需要调用winexec吗？？？<br>楼上的几位之言可参考

为什么不用Shell呀？

怎么用SHELL啊！

下面的解释够详细了吧？<br>＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝<br>目录操作常用的函数有：<br>1. ChDir<br>改变当前的目录。如果指定路径中包含有驱动器号(盘符)，则相应地改变当前的驱动器。<br>过程原型如下：<br>procedure ChDir(S: string);<br>2. CreateDir<br>新建一个目录。如果创建成功，则返回Tr u e；否则，返回F a l s e。<br>函数原型如下：<br>function CreateDir(const Dir: string): Boolean;<br>3. DirectoryExists<br>检测指定的目录是否存在。如果存在，函数则返回Tr u e；否则，返回F a l s e。<br>函数原型如下：<br>function DirectoryExists(Name: string): Boolean;<br>如果在参数N a m e中指定的不是绝对路径，则使用相对路径，默认在当前目录中进行查询。<br>4. ForceDirectories<br>创建指定的目录。通常在创建一个目录的时候，其父级目录必须存在。但是使用<br>F o r c e D i r e c t o r i e s创建目录的时候就没有这个限制，可以将所需的所有目录一次创建。如果创建<br>成功，则函数返回Tr u e；如果有任何一个目录创建失败，则返回F a l s e。<br>函数原型如下：<br>function ForceDirectories(Dir: string): Boolean;<br>下面这个例程对F o r c e D i r e c t o r i e s函数和D i r e c t o r y E x i s t s函数进行了说明：<br>uses FileCtrl; // 必须在u s e s语句中增加这个说明<br>...<br>procedure TForm1.Button1Click(Sender: TO b j e c t ) ;<br>v a r<br>Dir: string; // 目录名称<br>b e g i n<br>Dir := 'C:/APPS/SALES/LOCAL';<br>// 一次创建三级目录<br>F o r c e D i r e c t o r i e s ( D i r ) ;<br>if DirectoryExists(Dir) then<br>M e s s a g e D l g ( D i r + '创建成功。',mtInformation, [mbOK], 0);<br>e n d ;<br>5. GetCurrentDir<br>获取当前的目录的绝对路径。<br>函数原型如下：<br>function GetCurrentDir: string;<br>6. GetDir<br>获取指定驱动器中的当前目录。<br>过程原型如下：<br>procedure GetDir(D: Byte; var S: string);<br>参数D为指定的驱动器，可以为表6 - 2中的数值。<br>表6-2 过程G e t D i r中参数D的数值与盘符对照表<br>数值驱动器数值驱动器<br>0 默认的驱动器2 B<br>1 A 3 C<br>如果指定的驱动器不存在，则参数S的数值设置为当前的目录。读者可以通过下面的例程<br>来测试一下：<br>. . .<br>v a r<br>s : string;<br>I : Integer;<br>b e g i n<br>for I:=0 to 10 do<br>b e g i n<br>GetDir(I,s); { 0 = Current drive } // 获取指定驱动器中的当前路径<br>M e s s a g e D l g ( '当前驱动器和目录为:: ' + s, mtInformation, [mbOk] , 0);<br>e n d ;<br>e n d ;<br>7. MkDir<br>新建一个目录。<br>过程原型如下：<br>procedure MkDir(S: string);<br>8. RemoveDir<br>删除一个存在的目录，目录必须为空。<br>函数原型如下：<br>function RemoveDir(const Dir: string): Boolean;<br>第6章章文件、目录和驱动器章名137<br>下载<br>如果删除目录成功，则返回Tr u e；否则，返回F a l s e。<br>9. RmDir<br>删除一个存在的目录，目录必须为空。<br>过程原型如下：<br>procedure RmDir(S: string);<br>10. SelectDirectory<br>通过显示一个对话框来让用户选择一个目录。<br>注意：在使用前要在u s e s语句中添加包含F i l e C t r l的说明。<br>函数原型如下：<br>function SelectDirectory(const Caption: string; const Root: Wi d e S t r i n g ;<br>out Directory: string): Boolean; overload;<br>function SelectDirectory(var Directory: string; Options: TSelectDirOpts;<br>HelpCtx: Longint): Boolean; overload;<br>对于第一个重载函数，参数C a p t i o n为对话框的标题内容；参数R o o t指定一个目录，为进<br>行浏览的最初目录；选中的目录保存在参数D i r e c t o r y中。<br>对于第二个重载函数，参数D i r c c t o r y中指定的目录为对话框一显示时选中的目录，最后用<br>户选定的目录也保存在参数D i r e c t o r y中；参数O p t i o n s为一些设置项目的集合，如果为空的话，<br>则用户通过对话框只能选择已经存在的目录，没有编辑框可以提供给用户来输入一个新的目录<br>名。T S e l e c t D i r O p t s类型定义如下：<br>t y p e<br>TSelectDirOpt = (sdAllowCreate, sdPerformCreate, sdPrompt);<br>TSelectDirOpts = set of TSelectDirOpt;<br>具体数值的含义如表6 - 3所示。<br>表6-3 SelectDirectory 函数T S e l e c t D i r O p t s参数的取值及其含义<br>数值含义<br>s d A l l o w C r e a t e 对话框中有一个E d i t组件，用户可以输入新的目录名。但是如果要新建该目录，<br>程序员必须根据获取的文件自己编写代码新建目录<br>s d P e r f o r m C r e a t e 对话框中有一个E d i t组件，用户可以输入一个不存在的目录名，对话框将选中<br>该目录并创建该目录<br>s d P r o m p t 对话框中有一个E d i t组件，如果用户输入的目录名不存在，则显示一个信息对<br>话框提示是否创建新目录。如果同时选中的是sdAllowCreate设置，则程序员必须<br>根据获取的文件自己编写代码新建目录<br>11. SetCurrentDir<br>设置系统的当前目录。<br>函数原型如下：<br>function SetCurrentDir(const Dir: string): Boolean;<br>如果设置当前目录成功，则返回Tr u e；否则，返回F a l s e。<br>