//复制文件
var
source,dest: string
begin
TFile.Copy(source, dest) {不允许覆盖同名的文件}
TFile.Copy(source, dest, True){将覆盖同名的文件}
end
又如://按只读权限打开文件并返回一个和文件关联的 TFileStream
var
path: string
fs: TFileStream
begin
path := 'c:\temp\test.dat' {文件要存在}
fs := TFile.OpenRead(path)
ShowMessage(IntToStr(fs.Size))
fs.Free
end
每一个文件类型的信息被保存在注册表中的 'HKEY_CLASSES_ROOT'下面。比如要找个*.jpg图片文件的类型信息,先在HKEY_CLASSES_ROOT下读取.jpg项的默认值(字符串):jpegfile
然后再在HKEY_CLASSES_ROOT下读取jpegfile项的默认值:JPEG 图像
好了,你要的信息到手了
另外打开方式也可在这里找到的
下面的话是别人说滴:首先在HKey—Classes—Root寻找与FileExt(文件后缀,带“.”)相匹配的主键,然后从“默认” 键名取得键值,然后以该键值作为主键取得FileExt的具体描述。在其子键shell\open\command中保存了由哪个程序、以什么参数打开FileExt类型的文件的信息。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)