请问如何从硬盘删除一个文件和备份一个文件

Question

请问如何从硬盘删除一个文件和备份一个文件

Answer 1

procedure TForm1.Button3Click(Sender: TObject);
var
  OpStruc:TSHFileOpStruct;
  FromBuf,ToBuf:Array[0..128] of Char;
begin
  FillChar(FromBuf,Sizeof(FromBuf),0);
  FillChar(ToBuf,Sizeof(ToBuf),0);
  //用0初始化FromBuf和ToBuf数组
  StrPCopy(FromBuf,Pchar(Edit1.Text));
  StrPCopy(ToBuf,Pchar(Edit2.Text));
  //分别在 FromBuf和ToBuf数组中填入操作的源目录及目标目录
  //开始填充OpStruc记录
  with OpStruc do
  begin
    Wnd:=Handle;
    wFunc:=FO_COPY;//fo_move就是移动
  //复制操作
    pFrom:=@FromBuf;
    pTo:=@ToBuf;
    fFlags:=FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
    fAnyOperationsAborted:=False;
    hNameMappings:=nil;
    lpszProgressTitle:=nil;
  end;
  if SHFileOperation(OpStruc)=0 then
 //函数执行成功
  MessageBox(Handle,'复制完毕。','复制信息',MB_OK+MB_ICONINFORMATION);
end;这个应该也可以做文件的移动,楼主自己看着改吧,嘿嘿,这个是API函数