调用copy命令？(50分)

C

coffeeffee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #1

在delphi中，怎样调用windows中的copy命令来进行文件copy(不要对话框）？？谢谢！！！

 

Y

yanyong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #2

procedure TForm1.copybuttonClick(Sender: TObject);
var
　F:TShFileOpStruct;
begin
　F.wnd:=Handle;
　F.wFunc:=FO—COPY; {操作方式}
　F.pFrom:=′C:/DEMO.DAT′;
　F.pTo:=′F:/TEST.DAT′;
　F.fFlags:=FOF—ALLOWUNDO OR FOF—RENAMEONCOLLISION; {操作选项}
　if ShFileOperation(F)<>0 then
　　ShowMessage(′文件拷贝失败！′);
end;
会自动出现“正在拷贝...”的提示

 

B

brightangel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #3

不妨用WINAPI：
CopyFile();

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #4

用 ShellApi 中的 copy 命令

 

火

火柴天堂

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #5

function Win_XCOPY(fFROM,fTO:String):boolean;
var FData : TShFileOpStruct;
begin
Fdata.pFrom := PChar(fFrom); //设立数据源路径和文件、目录名,支(?,
*通配符)
fdata.pTo := PChar(fTo); //设立目标路径
fdata.wFunc := FO_DELETE //设立操作方式
//FO_COPY 拷贝操作 相当于 XCOPY
//FO_MOVE 移动操作 相当于 MOVE
//FO_DELETE 删除操作 相当于 DELTREE
FData.Wnd := application.Handle
fData.lpszProgressTitle := 'Wait'; //设立提示窗标题
fData.fFlags := FOF_ALLOWUNDO OR FOF_NOCONFIRMMKDIR; //设定操作
选 项
result:=ShFileOperation( FData ) = 0 ;
end;

 

C

coffeeffee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #6

TShFileOpStruct在编译时同不过，清指教！！！

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #7

uses
..., ShellAPI;

 

黄

黄耀彰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-29

• #8

; 用以下方法就很好。
...
CopyFile(Pchar(OpenDialog1.fileName),
Pchar(Savedialog1.fileName),fale);
...

 

J

jingtao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-30

• #9

winexec('command.com /c copy c:/*.* d:/',sw_hide);

 

C

coffeeffee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-09

• #10

请问使用TShFileOpStruct要加上对那个单元的引用？？？拜托。

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-06-09

• #11

不是写了么？
uses
..., ShellAPI;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-27

• #12

时间太久，强制结束。 wjiachun