文件文件夹路径

//非空文件夹删除uses ShellApi；function DelDirectory(const Source: string): boolean;var  fo: TSHFILEOPSTRUCT;begin  FillChar(fo, SizeOf(fo), 0);  with fo do  begin    Wnd := 0;    wFunc := FO_DELETE;    pFrom := PChar(source + #0);    pTo := #0#0;    fFlags := FOF_NOCONFIRMATION + FOF_SILENT;  end;  Result := (SHFileOperation(fo) = 0);end;//调用DelDirectory('E:\1');DelDirectory('E:\1\');//===================================================//文件删除DeleteFile('E:\1.zip');//===================================================//路径ExtractFilePath() 从文件名中抽取路径名 //显示:D:\Program Files\Borland\Delphi7\Projects\ExtractFileDir() 从文件名中抽取目录名 ExtractFileDrive() 从文件名中抽取驱动器名 ExtractFileName显示文件名及后缀//显示:Unit1.dcuExpandUNCFileName() 返回含有网络驱动器的文件全路径 ExtractRelativePath() 从文件名中抽取相对路径信息 ChangeFileExt('FileName','') ; //返回不含扩展名的文件名s:=changefileext('f:\123.txt','.ini');//变更后缀showmessage(s);//f:\123.iniDirectoryExists文件夹是否存在CreateDirectory(PChar(FilePathTxt.Text),nil);创建文件夹FileExists(ExtractFilePath(Application.ExeName)+'1.ini') 文件是否存在