简单到极致
2014年5月8日
让窗体自适应屏幕
摘要： unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V... 阅读全文
posted @ 2014-05-08 20:44 ring_hacker 阅读(222) 评论(0) 推荐(0) 编辑
2014年5月7日
获取文件sha1 值
摘要： 单元IdHashSHA申明function GetFile_SHA1(const iFileName: String): String; //Checksum hash value for firefox var SHA1 : TIdHashSHA1; fileStre... 阅读全文
posted @ 2014-05-07 07:00 ring_hacker 阅读(1406) 评论(0) 推荐(0) 编辑
自定义popupmenu菜单背景色
摘要： procedure TForm1.N11DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);beginIf (Selected) ThenbeginACanvas.Font.Color := clW... 阅读全文
posted @ 2014-05-07 06:57 ring_hacker 阅读(2416) 评论(0) 推荐(0) 编辑
2014年2月5日
拨号设置
摘要： unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,Registry,ShlObj;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declara 阅读全文
posted @ 2014-02-05 14:01 ring_hacker 阅读(317) 评论(0) 推荐(0) 编辑
2014年2月2日
独占方式打开 文件
摘要： 1 添加单元IniFiles2 申明变量为文件流 protectFile:TFileStream;3 protect 路径const = 'c:\xo.ini';4 用独占方式打开 protectFile:=TFileStream.Create(protect,fmShareExclusive);5 释放 protectFile.Free; 阅读全文
posted @ 2014-02-02 07:19 ring_hacker 阅读(1013) 评论(0) 推荐(0) 编辑
下一页