Delete;
Метод Delete осуществляет удаление файла.
Sub UserProc;
Var
FileSInfo: IFileSystemInfo;
Begin
FileSInfo:=New FileInfo.Attach("c:\1.txt");
If FileSInfo.Exists Then
FileSInfo.Delete;
End If;
Dispose FileSInfo;
End Sub UserProc;
После выполнения примера будет удален файла «1.txt», если он существует.
См.также: