Delphi怎么把XML文件或者INI文件封装到DLL中读取(我不想让别人看见配置信息)

呃……这个……没必要吧？

配置XML或INI 文件的优势在于不用重新编译应用程序，只要重新配置文件就好了

若你要DLL的话，岂不是如果配置项想改变的话,都要重新生成DLL？

若你不想别人看见配置信息。那你配置信息不要明文显示，

进行加密处理后写入，然后应用程序读取时，再做解密处理即可。

public aform1AddAandB(int a , int b): Integer

begin

result := a + b;

end;

其他地方就可以

AddAandB(1,2);

AddAandB(3,4);

AddAandB(5,6);

就是把一些公用的代码集合起来，然后其他的地方直接调用方法传个参数进去就over了

你可以新建一个空的资源文件 MyResrc

在其中这样增加

序号 类型（BITMAP/ICON/GRAPHIC) "文件路径"

如

1 BITMAP "D:\img\MyBMP1bmp"

2 BITMAP "D:\img\MyBMP2bmp"

3 ICON "D:\img\MyICOico"

然后将这个rc文件加到工程里面

然后 如下调用

MyBitmapLoadFromResourceID(HInstance,1) //将D:\img\MyBMP1bmp动态加载到MyBitmap（TBitmap）中

编译 会生成一个和rc文件同名的res文件

就可以了 需要注意的是 一个工程只能引用一个res文件

Windows NT服务程序不同于一般的运行程序，它不需要NT登录进去，只需要开机进入NT系统便可以运行，一般用于系统服务方面的应用，学会编写NT服务程序对网络管理人员而言是非常重要的，Delphi作为一种高效、快速、强大的开发语言，为开发NT服务程序提供了非常便捷的方法，加上其可视化界面以及与数据库的完美结合，使我们开发与数据库有关的NT服务程序变得非常简单，下面以编写一个NT定期备份程序为例，介绍如何运用Delphi编写Windows NT的服务程序。

打开Delphi编辑器，选择菜单中的File|New，在New Item中选择Service Application项，Delphi便自动为你建立一个基于TServiceApplication的新工程，TServiceApplication是一个封装NT服务程序的类，它包含一个TService1对象以及服务程序的装卸、注册、取消方法。

将TService1对象的属性做下列更改：

DisplayName与Name改为：DataBackup，ServiceStartName属性改为系统管理员用户(如DOMAIN\Administrator)和Password则输入用户密码

这样，服务程序运行时将自己以该用户的权限 *** 作NT。

这样，一个NT服务程序编写已经完成，在Delphi编辑器中选择菜单Run|Parameters，在Parameters中输入/install，程序编译运行后，一个名为DataBackup的NT服务程序已经安装好，你可以双击控制面板中的服务项目，将会看到此服务程序，只是此服务程序没有任何东西而已；在Delphi编辑器中选择菜单Run|Parameters，在Parameters中输入/uninstall，程序编译运行后，系统将会将此服务程序卸掉。

服务程序是通过控制一个线程的生成、暂停、继续、停止来达到服务目的的，因此我们必须加入一个TSession对象来编写文件自动备份代码，在Delphi编辑器中选择菜单中的File|New，在New Item中选择Thread Object项，Delphi会提示你为该TSession对象输入一个名称(输入DataCopy),Delphi便生成了一个基于TSession的DataCopy对象，并提供了一个Execute过程供重载，我们要Execute过程中输入以下程序：

var

Hour, Min, Sec, MSec: Word;

TimeStamp, DirectoryEdit1, DirectoryEdit2: String;

SearchRec: TSearchRec;

Source, Temp, Dest: Pchar;

F, F1: THandle;

FF, FF1: WIN32_FIND_DATA;

Begin

// 每次文件备份执行时间

TimeStamp:= '12:00';

// 文件备份源目录

DirectoryEdit1:= 'C:\temp';

// 文件备份目录

DirectoryEdit2:= 'C:\temp1';

While True do

Begin

DecodeTime(Time, Hour, Min, Sec, MSec);

IF Trim(TimeStamp) = Format('%-22d:%-22d',[Hour, Min]) then

Begin

GetMem(Source, 250);

GetMem(Dest, 250);

GetMem(Temp, 250);

StrPcopy(Dest, DirectoryEdit2 + '\' + FormatDateTime('YYYYMMDD', Date));

CreateDirectory(Dest, Nil);

IF FindFirst(DirectoryEdit1 + '\', faAnyFile, SearchRec) = 0 then

Begin

Repeat

StrPcopy(Source, DirectoryEdit1 + '\' + SearchRecName);

StrPcopy(Dest, DirectoryEdit2+'\' + FormatDateTime('YYYYMMDD', Date) + '\' + SearchRecName);

CopyFile(Source, Dest, False);

Until FindNext(SearchRec) <> 0;

end;

SysUtilsFindClose(SearchRec);

FindClose(F);

FreeMem(Source, 250);

FreeMem(Dest, 250);

FreeMem(Temp, 250);

end;

Sleep(60000);

end;

end;

此线程执行时每隔一分钟将检查一次时间，看是否到了备份时间，如果是则将DirectoryEdit1中的所有文件拷到DirectoryEdit2目录中去。

现在编写服务控制DataCopy线程的代码，在TdataBackup对象中的OnStart、OnStop、OnPause、OnContinue事件中分别输入如下代码：

Procedure TDataBackupDataBackupStart(Sender: TService;

var Started: Boolean);

begin

DataThread:= TDataCopyCreate(False);

Started := True;

end;

procedure TDataBackupDataBackupStop(Sender: TService;

var Stopped: Boolean);

begin

DataThreadTerminate;

Stopped := True;

end;

procedure TDataBackupDataBackupPause(Sender: TService;

var Paused: Boolean);

begin

DataThreadSuspend;

Paused := True;

end;

procedure TDataBackupDataBackupContinue(Sender: TService;

var Continued: Boolean);

begin

DataThreadResume;

Continued := True;

end;

这样一个文件自动备份程序已经完成，编译好后，加上/install参数执行程序，系统会将此服务程序安装，由于服务程序中StartType属性为stAuto，NT每次启动时，此程序自动执行，你可以在控制面板中的服务项目来启动、暂停、恢复、停止它，也可以加上/uninstall参数执行程序来卸掉它。通过上述例子我们可以看到，用Delphi编写NT服务器程序十分方便，而且你也可以在TService对象上加许多非可视化控件来与数据库关联，实现很多复杂的功能。

你可以用DELPHI自己写一个安装程序,实际所谓安装程序,就是把你做的软件,从安装文件包复制到电脑的某个硬盘分区上,并创建一个文件夹,还要建立快捷方式,桌面和开始菜单等,还有写注册表(有必要的话),这些 *** 作,DELPHI都有专门的函数或过程,如果你熟悉这些方法(函数和过程)后,你自己做一个安装程序就非常简单了其实DELPHI做的软件根本就不需要什么安装程序,你只要把你做的软件的EXE文件及所用的资源文件放在一个文件夹中,用户只要把这个文件夹复制到电脑的某个硬盘分区上,再将EXE文件建立一个快捷方式拖到桌面上,就可以像其它软件一样,双击即可运行了

以上就是关于Delphi怎么把XML文件或者INI文件封装到DLL中读取(我不想让别人看见配置信息)全部的内容，包括:Delphi怎么把XML文件或者INI文件封装到DLL中读取(我不想让别人看见配置信息)、delphi的相同的代码如何封装，然后调用、delphi中DLL封装图片等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！