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就可以了.    

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

delphi 方便的文本文件操作(TEXT)

delphi 方便的文本文件操作(TEXT)
  • zhangxiaonanwin
  • zhangxiaonanwin
  • 2011年01月19日 18:27
  • 1266

Delphi 监控文件改变

unit FileSysThread; interface uses Windows, SysUtils, Classes, comctrls; type TFileSy...
  • qiume
  • qiume
  • 2011年10月10日 13:33
  • 2357

Delphi操作Ini文件

Delphi操作Ini文件
  • shuaihj
  • shuaihj
  • 2011年01月09日 22:43
  • 3374

delphi中无类型文件读写

unit Unit1;     interface     uses     Windows, Messages, SysUtils, Variants, Classes, Graphics, Con...
  • Ray2312
  • Ray2312
  • 2010年09月10日 17:36
  • 1885

Delphi 文件操作(3)

9.2  文件存取方法与文件管理组件   9.2.1  存取文件的类方法 Delphi在许多需要与文件打交道的类中定义了文件存取方法,使用这些方法可以非常方便地将类中的数据保存到文件中,...
  • lailai186
  • lailai186
  • 2013年04月10日 09:49
  • 5260

Delphi文本文件的写操作

最近我用Delphi写了个程序,需要将用户信息写入文件,因此在网上查了下 Delphi有关文本文件的操作,经整理后,我将其封装成了一个函数, 以方便以后的使用,访函数代码如下: ...
  • friendan
  • friendan
  • 2012年10月12日 20:42
  • 1575

Delphi 文件操作

var file_name:string; file_name:='c:\luther.gliethttp.txt'; FileWrite(com.log_fd, PChar(file_n...
  • u011429664
  • u011429664
  • 2013年09月09日 16:12
  • 346

delphi文件操作

如何在delphi中操作文件的读与写?  我刚开始接触delphi,如何在delphi中操作文件的读与写,哪位朋友指教一下非常感谢!最好来段源码.  var f:text;...  AssignFil...
  • xwchen
  • xwchen
  • 2007年07月26日 22:03
  • 4919

delphi 文件操作

copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt),false); ◇[DELPHI]取得WINDOWS目录 ...
  • jiqimiao
  • jiqimiao
  • 2007年04月07日 12:40
  • 1314

Delphi文件操作

 关键词:Delphi,文件操作,函数,ExtractFile1、返回文件扩展名function ExtractFileExt(const FileName: string): string;2、返回...
  • zx_ali
  • zx_ali
  • 2009年03月26日 12:04
  • 453
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi 文件操作
举报原因:
原因补充:

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