用那个函数

解决方案 »

  1.   

    IF DELETEFILE('C:ZZ.BAK') THEN SHOWMESSAGE('OK');
      

  2.   

    try 
      deletefile('文件路径和文件名');
    except
      showmessage('error');
    end;
      

  3.   

    if fileexists('..') then
       deletefile('..');
      

  4.   

    直接删除就是上面说得,
    如果要删除到回收站的话用
    SHFileOperation(lPSHFILEOPSTRUCT lpFileOp)这个api函数,这是我从程序截得一段代码
    FileName:string;
    fos:TSHFileOpStruct;
    ....
    FillChar(fos,SizeOf(fos),0);
    with fos do
    begin
      Wnd:=0;
      wFunc:=FO_DELETE;
      pFrom:=PChar(FileName);
      fFlags:=FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
    end;
    ShFileOperation(fos);