随笔分类 - Delphi-File1
摘要：如题，研究了一天，也没再网上找到比较好的方式，自己做了一个。方法如下：1.创建一个 cmd 命令文件。2.调用该命令。代码如下： S:='echo y|cacls h: /t /c /g everyone:F'; AssignFile(F, 'c:\FolderRight.cmd'); rewrit
阅读全文
摘要：{设置打印机}Assignfile(RPrinter,'LPT1'); {准备写文件}Rewrite(RPrinter); {向后倒纸}//Writeln(RPrinter,chr($b)+chr(27)+'K'+chr(40)); {打印}Writeln(RPrinter,'测试:****'+(E
阅读全文
摘要：只读文件就是不能删除的文件，用DeleteFile函数对它来说是毫无意义的，要删除只读文件，只有先改变它的属性。如果你要删除一个文件，最好先作两个方面的考虑： （1）判断该文件的属性。可以用上面提到的FileGetAttr与FileSetAttr函数。如果属性为只读，将它改为存档，然后删除它。 （2
阅读全文
摘要：复制代码uses FileCtrl; procedure TForm1.BitBtn1Click(Sender: TObject);begin with OpenDialog1 do if Execute then if FileSetAttr(filename, faArchive)=0 then
阅读全文
摘要：完整代码： http://blog.csdn.net/shuaihj/article/details/6129551
阅读全文
摘要：http://blog.csdn.net/shuaihj/article/details/7046515
阅读全文
摘要：http://blog.csdn.net/shuaihj/article/details/7108792
阅读全文
摘要：让自己的软件实现双击打开文件作者：帅宏军 http://blog.csdn.net/shuaihj/article/details/7046515
阅读全文
摘要：[delphi] view plain copy procedure TForm_main.Button5Click(Sender: TObject); var myStream:TFileStream; myFileSize:Integer; myTextFile:TextFile; text,d
阅读全文
摘要：http://www.cnblogs.com/pengshaomin/archive/2012/09/28/2707413.html
阅读全文
摘要：一、概述 锁是操作系统为实现数据共享而提供的一种安全机制，它使得不同的应用程序，不同的计算机之间可以安全有效地共享和交换数据。要保证安全有效地操作共享数据，必须在相应的操作前判断锁的类型，然后才能确定数据是否可读或可写，从而为开发出健壮的程序提供切实依据。 同样，在Windows中，文件可以共享模式
阅读全文
摘要：Delphi TStream 详细介绍Stream对象，又称流式对象，是TStream、THandleStream、TFileStream、TMemoryStream、TResourceStream和TBlobStream等的统称。它们分别代表了在各种媒介上存储数据的能力，它们将各种数据类型(包括对
阅读全文
摘要：// UTF-8文件写入函数procedure SaveUTFFile(const FileName: string; S: string; WriteHeader: Boolean = True);var MemStream: TMemoryStream; HeaderStr: String;be
阅读全文
摘要：对TMemoryStream的一些改进 怎么又是关于Stream的，呵呵，应该说只是最近比较关心程序的效率问题，而我对Stream其实并没有什么特别的研究，只是自己发现了一些新的用法，希望能对大家有用而已。 事情的起因还是那个破烂电子相册软件，今天又发现了一个可改进之处，有一段程序我原来是这么写的：
阅读全文
摘要：活动目录Active Directory是用于Windows Server的目录服务，它存储着网络上各种对象的有关信息，并使该信息易于管理员和用户查找及使用。Active Directory使用结构化的数据存储作为目录信息的逻辑层次结构的基础。 在某些情况下我们需要通过程序来读取Active Dir
阅读全文
摘要： 文件操作 函数名称：ChangeFileExt函数说明：更改指定文件的扩展名,函数原型如下:AnsiString __fastcall ChangeFileExt(const AnsiString FileName,const AnsiString Extension);函数名称：DeleteFi
阅读全文
摘要：//from http://kingron.myetang.com/zsfunc0d.htm (*// 标题:充分利用pascal字符串类型 说明:和PChar不同,string可以保存#0字符在其中;示例文件、内存流字符串之间转换 设计:Zswang 日期:2002-01-25 支持:wjhu11
阅读全文
摘要：对于一些小文件，用普通的文件流就可以很好的解决，可是对于超大文件，比如2G或者更多，文件流就不行了，所以要使用API的内存映射的相关方法，即使是内存映射，也不能一次映射全部文件的大小，所以必须采取分块映射，每次处理一小部分。 先来看几个函数 CreateFile ：打开文件 GetFileSize
阅读全文
摘要：procedure SplitFile(FileName : TFileName; FilesByteSize : Integer) ;// FileName == file to split into several smaller files// FilesByteSize == the siz
阅读全文
摘要：Delphi代码 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(
阅读全文