ftwsnow

摘要： procedure TForm1.Button3Click(Sender: TObject);var beforeMS,afterMS:TMemoryStream; {beforeMS 是要压缩的流; afterMS 是接收压缩后文件的流} cS:TCompressionStream; {定义压缩流} num:Integer; {原始文件大小}begin {第一步: 调入要压缩的文件, 并获取大小} beforeMS:=TMemoryStream.Create; beforeMS.LoadFromFile('F:\cc.doc'); num:=bef... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Memo1: TMemo; Button4: TButton; procedure FormCreate(Sender: TObject); proced... 阅读全文

摘要： //TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(0,'Strings3'); {插入} i := List.IndexOf('Strings1'); {第一次出现的位置} List.Sort; ... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);var FromF,ToF: file; NumRead,NumWritten: Integer; Buffer: array[1..2048] of Byte;begin AssignFile(FromF, 'c:\temp\test1.dat'); //假定有这个文件 Reset(FromF, 1); AssignFile(ToF, 'c:\temp\test2.dat'); Rewrite(ToF, 1); repeat BlockRead(FromF, Buff 阅读全文

摘要： uses System.Win.Registry,Winapi.ShlObj;procedure TForm1.Button3Click(Sender: TObject);begin RegisterFileType('ftw',Application.ExeName) ;end;procedure RegisterFileType(ExtName:String; AppName:String);var reg:TRegistry;begin reg := TRegistry.Create; try reg.RootKey := HKEY_CLASSES_ROOT; reg.. 阅读全文

摘要： {list使用 自定义类}TMyCl =class bb:string; end;procedure TForm1.Button1Click(Sender: TObject);var my:TMyCl; mx:TMyCl; la:TList;begin my:=TMyCl.Create; mx:=TMyCl.Create; la:=TList.Create; my.bb:='bbsscc'; mx.bb:='mxbbss'; ShowMessage(IntToStr(mx.InstanceSize)); {8} la.Add(@my); ShowMess... 阅读全文

摘要： var Qchar:array[0..254] of Char; handle:HFILE; WriteNo:DWORD;begin getsystemDirectory(Qchar,255); handle:=CreateFile('SystemRoot.txt', GENERIC_WRITE, 0, 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); if handle<>INVALID_HANDLE_VALUE then begin if WriteFile(handle,qchar,lstrl... 阅读全文

摘要： 1.清除最近使用过的文档记录 以Windows XP为例，右键点击“开始”按钮，选择“属性”，在弹出的设置任务栏和开始菜单属性对话窗中点“自定义”按钮，在“自定义开始菜单”对话框中的“高级”标签下点“清除列表”。若要让系统永不自作多情记住使用文档的记录，请去掉“列出我最近打开的文档”前的钩。 小提示：XP会把最近访问文档的快捷方式放在C:\Documents and Settings\用户名\Recent中，手工删除它们也能让文档菜单“失去记忆”。 2.删除临时文件夹中的内容 当执行过安装软件、打开文档等操作时，在临时文件夹中会留下相应文件，可以手工清除在下列位置中的内容：C:\Windows 阅读全文

摘要： procedure SetFormMonitor(Form:TCustomForm;MonitorIndex:integer);begin if (MonitorIndex>-1) and (MonitorIndex<Screen.MonitorCount) then{保证屏幕索引在范围内} begin Form.SetBounds( Screen.Monitors[MonitorIndex].Left + ((Screen.Monitors[MonitorIndex].Width - Form.Width) div 2), Screen.Monitors[Mon... 阅读全文

摘要： uses ShellAPI;procedure TForm1.FormCreate(Sender: TObject);begin DragAcceptFiles(Handle, True);end;procedure TForm1.WMDropFiles(var Message: TWMDropFiles);var p: array[0..255] of Char; i,count: Integer;begin {先获取拖拽的文件总数} count := DragQueryFile(message.Drop, $FFFFFFFF, nil, 0); {分别获取文件名} for i... 阅读全文