【第22期】观点:IT 行业加班,到底有没有价值?

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文件操作的总结

csfinal90我的:收件箱资源博客空间设置|帮助|退出 首页业界移动云计算研发论坛博客下载 更多 windzb的专栏 目录视图摘要视图订...

oracle 文件操作封装

createorreplacepackageYLFileop_packis --Author:YANLEI <s

delphi学习笔记--文件操作

var file_name:string;file_name:='c:/luther.gliethttp.txt';FileWrite(com.log_fd, PChar(file_name)^, l...

关于文件操作集锦

取得该快捷方式的指向EXE关键词:快捷方式 LNK unit Unit1; interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls; typeTForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender: TObject);private<b

Delphi文件操作函数

Delphi文件操作函数 FileWrite(com.log_fd, PChar(file_name)^, length(file_name));文件是同一种类型元素的有序集合,是内存与外设之间传输数...

delphi学习笔记--文件操作

var file_name:string; file_name:='c:\luther.gliethttp.txt'; FileWrite(com.log_fd, PChar(file_name)^, length(file_na
  • isiqi
  • isiqi
  • 2011-05-31 09:11
  • 727

delphi文件操作

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

ASP中常用的22个FSO文件操作函数

ASP中常用的22个FSO文件操作函数 2009年07月29日   ASP中FSO组件的功能很强大,如果没有FSO很难想象ASP会变成什么样。对于学习asp编程的朋友一定会接触到FSO相关的操作,如备份数据库,读取文件,生成静态页面等等。本文就列举了ASP中常用的22个FSO文件操作函数,相信能为您带来方便 !   [b]1.[/b][b]文件操作,取文件大小[/b]   Function GetFileSize(FileName)   ’//功能:取文件大小   ’//形参:文件名   ’//返回值:成功为文件大小,失败为-1   ’//

Delphi 文件操作(转)

Delphi中默认有input和output两个文件变量,使用可以不用定义,直接使用.   但: input:只读、output:只写。用时注意以免引起异常.        文件是由文件名标识...

delphi 文件操作

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)
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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