delphi 文件操作

原创 2007年09月18日 15:55:00

copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);

◇[DELPHI]取得WINDOWS目录
uses shellapi;
var windir:array[0..255] of char;
getwindowsdirectory(windir,sizeof(windir));
或者从注册表中读取,位置:
HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion
SystemRoot键,取得如:C:/WINDOWS

◇[DELPHI]关于文件、目录操作
Chdir('c:/abcdir');转到目录
Mkdir('dirname');建立目录
Rmdir('dirname');删除目录
GetCurrentDir;//取当前目录名,无'/'
Getdir(0,s);//取工作目录名s:='c:/abcdir';
Deletfile('abc.txt');//删除文件
Renamefile('old.txt','new.txt');//文件更名
ExtractFilename(filelistbox1.filename);//取文件名
ExtractFileExt(filelistbox1.filename);//取文件后缀

◇[DELPHI]处理文件属性
attr:=filegetattr(filelistbox1.filename);
if (attr and faReadonly)=faReadonly then ... //只读
if (attr and faSysfile)=faSysfile then ... //系统
if (attr and faArchive)=faArchive then ... //存档
if (attr and faHidden)=faHidden then ... //隐藏

◇[DELPHI]执行程序外文件
WINEXEC//调用可执行文件
winexec('command.com /c copy *.* c:/',SW_Normal);
winexec('start abc.txt');
ShellExecute或ShellExecuteEx//启动文件关联程序
function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle;
ExecuteFile('C:/abc/a.txt','x.abc','c:/abc/',0);
ExecuteFile('http://tingweb.yeah.net','','',0);
ExecuteFile('mailto:tingweb@wx88.net','','',0);

◇源目录://Hp/授权使用/外贸业务系统/.  
  目的目录:c:/zkf

1

找到一个DELPHI自带的COPYFILE函数,但不支持多文件,太麻烦

2

笨方法:  
   
  1、你在本地建一个批处理文件  
            Copy   Con   CopyFile.bat  
                    @echo   off  
                      Copy   //Hp/授权使用/外贸业务系统/*.*   c:/zkf  
                    echo   拷贝完毕!!  
                    ^z   //   save  
  2、你只要执行这个批处理文件就可以,当然,要看你使用的场合。  
  你也可以在Delphi中打开上述批处理文件,以达到相同的目的.

3

只要你有相应的权限,可以使用这个API函数:  
  procedure   TForm1.BitBtn1Click(Sender:   TObject);  
  var   F:TShFileOpStruct;         //uses   shellapi;  
          b:integer;  
  begin  
        f.Wnd:=Form1.Handle;  
        f.wFunc:=fo_copy;   //fo_delete,copy,move,rename  
        f.pFrom:=pChar('//Hp/授权使用/外贸业务系统');  
        f.pTo:=pChar('c:/zkf');  
        f.fFlags:=FOF_ALLOWUNDO   ;//or   FOF_SILENT   or   FOF_NOCONFIRMATION;  
        b:=ShFileOperation(f);  
        if   f.fAnyOperationsAborted   then   ShowMessage('用户取消操作');  
        if   b=0     then   exit;  
        beep;   ShowMessage('文件操作没有实现!');  
  end;

4

那在复制时不出现文件已存在,是否覆盖的提问该怎么做?

5

呵呵,看Delphi的帮助嘛!  
   
  只要把f.fFlags:=FOF_ALLOWUNDO   ;//or   FOF_SILENT   or   FOF_NOCONFIRMATION  
  改为f.fFlags:=FOF_SILENT   or   FOF_NOCONFIRMATION就可以了.    

版权声明:本文为博主原创文章,未经博主允许不得转载。

Delphi7文件操作常用函数一

1. AssignFile、Erase AssignFile procedure AssignFile(var F; FileName: string);:给文件变量连接一个外部文件名。这里需要注...
  • kimifdw
  • kimifdw
  • 2013年02月21日 11:32
  • 6458

Delphi6编程大师 文件操作

  • 2008年10月05日 17:22
  • 45KB
  • 下载

delphi 读取文件操作

  • 2013年10月18日 14:09
  • 363KB
  • 下载

Delphi中读写INI配置文件操作总结

首先说一下INI文件的格式如下: [COUNT]          #域名 COUNT=2       #变量名=值 [HXUSER] HXUSER=ht_invest [HXPWD] HXPWD...

delphi文件操作

  • 2014年09月09日 14:52
  • 9KB
  • 下载

Delphi流文件操作

  • 2015年09月28日 13:46
  • 20KB
  • 下载

delphi文件操作

====================================================== 注:本文源代码点此下载 =============================...

delphi关于文件操作

  • 2010年12月12日 16:45
  • 179KB
  • 下载

delphi学习笔记--文件操作

var file_name:string;file_name:='c:/luther.gliethttp.txt';FileWrite(com.log_fd, PChar(file_name)^, l...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi 文件操作
举报原因:
原因补充:

(最多只允许输入30个字)