windows 低层开发的高手进来，这个问题如何解决？(50分)

fzhang1976 · 2003-09-23

在 Dos 下有Tree命令来导出文件结构树到文本文件，eg:    tree /f c:/ > C:/1.txt (把c盘根目录下的所有文件及目录以树的形式导入到文件) 请问delphi下如何实现？如何调用windows下的dos,并写入命令，达到以上功能。 不要用delphi的shelltreeview1等控件。执行效率太低了。 请高手相助。分不多，请帮帮忙！

52free · 2003-09-23

winexec('tree /f c:/ > C:/1.txt',sw_hide);

fzhang1976 · 2003-09-23

不行，偶早就试过了，dos下好象不认">"的重定向符！

fzhang1976 · 2003-09-23

怎么办？

fzhang1976 · 2003-09-23

虽然分不多，但我是很真诚的！望各位高手能帮帮忙！

52free · 2003-09-23

dir *.* >a.txt 我试了一下(2000下)是可以的

fzhang1976 · 2003-09-23

但用delphi编程如何实现能？我对windows编程不熟悉啊，偶是菜鸟~

fzhang1976 · 2003-09-23

我用的这种方法实现，但效率太底了，一个40G（已用30G 4个分区）的硬盘要执行N分钟，让人无法忍受啊，难道没有别的方法了吗？ procedure TForm1.Button2Click(Sender: TObject); begin     shelltreeview1.FullExpand ;     if savedialog1.Execute  then     begin        shelltreeview1.SaveToFile(savedialog1.FileName );        memo1.Lines.LoadFromFile(savedialog1.filename);   //     label2.Caption :=savedialog1.FileName ;     end; end;

mfksoft · 2003-09-23

winexec('command.exe tree /f c:/ > C:/1.txt',sw_hide);   即可

fzhang1976 · 2003-09-23

楼上的有没有在delphi环境下测试过啊，我试过是不行的。

Pc 狂迷 · 2003-09-23

不认？我试过了是可以的呀！请看： C:/ │  AUTOEXEC.BAT │  CONFIG.SYS │   ├─C │      C.txt │      s.txt │       ├─DOWNLOADS │  │  biwu.wmv │  │  chuangyi_iconstory.swf

fzhang1976 · 2003-09-23

请问楼上用的dos 是哪个版本的？我在win2000下只能用cmd调出控制台，后面的参数不认啊！

52free · 2003-09-23

确实不认,我是2000，在delphi下用没动静

导出所有的树当然慢了，就算你用dos来做这事也快不起来 不用说还有 memo1.Lines.LoadFromFile(savedialog1.filename); 装载的过程

fzhang1976 · 2003-09-23

谢谢！但是在cmd模式下要快许多啊！现在的问题是如何在delphi下调用cmd并传入参数？

Pc 狂迷 · 2003-09-23

用的是 XP

fzhang1976 · 2003-09-24

有高手可以回答吗？

ztaif · 2003-09-24

E:/Inetpub>tree /f 文件夹 PATH 列表 卷序列号码为 71F2E346 90F2:75D8 E:. ├─AdminScripts │      adsutil.vbs │      synciwam.vbs │ └─wwwroot     │  iisstart.htm     │  pagerror.gif     │     └─aspnet_client         └─system_web             └─1_1_4322                     SmartNav.htm                     SmartNav.js                     WebUIValidation.js

chnplzh · 2003-09-24

建立一个批处理文件TEST.BAT，里面内容为： tree /f c:/ > C:/1.txt 然后使用createprocess函数调用测试一下。

tianhf · 2003-09-24

2000/xp 下应该用 winexec('cmd.exe tree /f c:/ > C:/1.txt',sw_hide);   98是command.exe.

fzhang1976 · 2003-09-24

哎，你们都做的不对，还是俺自个搞定了。

windows 低层开发的高手进来，这个问题如何解决？(50分)

fzhang1976

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

fzhang1976

Unregistered / Unconfirmed

fzhang1976

Unregistered / Unconfirmed

fzhang1976

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

fzhang1976

Unregistered / Unconfirmed

fzhang1976

Unregistered / Unconfirmed

mfksoft

Unregistered / Unconfirmed

fzhang1976

Unregistered / Unconfirmed

Pc 狂迷

Unregistered / Unconfirmed

fzhang1976

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

fzhang1976

Unregistered / Unconfirmed

Pc 狂迷

Unregistered / Unconfirmed

fzhang1976

Unregistered / Unconfirmed

ztaif

Unregistered / Unconfirmed

chnplzh

Unregistered / Unconfirmed

tianhf

Unregistered / Unconfirmed

fzhang1976

Unregistered / Unconfirmed

Similar threads