我就在这里
发布时间：2014-05-24 21:38:20
Function EncrypKey (Src:String; Key:String):string; var idx :integer; KeyLen :Integer; KeyPos :Integer; offset :Integer; dest :string; S.........【阅读全文】
发布时间：2014-03-28 19:23:11
DLL 中的资源文件第一步: 建一个 DLL 工程, 如图:然后保存, 我这里使用的名称都是默认的.第二步: 建一个资源原文件, 如图:编辑内容如下(路径中的文件一定要存在):img1 BITMAP "c:\temp\test.bmp"然后, 取个名(后缀须是 rc, 我这里取名为 Res.rc), 保存在工程目录下.第三步: 在 DLL 工程中添加这.........【阅读全文】
发布时间：2013-01-08 08:37:26
点击(此处)折叠或打开procedure TForm1.BuildRes(ResPrgName:string;ResTyp:string;PrgName:String);var Res : TResourceStream; WinDir:string; begin try WinDir:=ExtractFilePath(ParamStr(0)); {ParamStr为系统参数,0表示当前程序的名称} ShowM......【阅读全文】
发布时间：2013-01-07 09:48:19
点击(此处)折叠或打开procedure TForm1.BuildRes(ResPrgName:string;ResTyp:string;PrgName:String);var Res : TResourceStream; WinDir:string; begin try WinDir:=ExtractFilePath(ParamStr(0)); {ParamStr为系统参数,0表示当前程序的名称} ShowM......【阅读全文】
