内容发布更新时间 : 2025/10/22 9:44:07星期一 下面是文章的全部内容请认真阅读。
intraweb11.0.63发布成EXE程序时实现
自定义窗体的方法
之所以写这篇文章，是因为我用file->new->other->intrabweb->intraweb application wizard开始新建的intraweb程序，保存后发现想改变程序的图标是不可以的，我用IW是IntraWeb 11.0.63，是在delphi7下使用的，不知道是不是因为我使用的破解版IW的原故还是其他的，在project->options->application的Ico处竟然是无效的，我不喜欢用delphi默认的应用程序图标，想换成自己喜欢的。在编译9.0版本的程序时，发现IntraWeb XI版本自动生成的dpr文件也是跟原来的在9.0以下的是不一样的，程序启动的方式改变了很多。
篇一
（一）带自已的定义的主窗体。
1、新建正常的app,具体步骤是：file->new->other->intrabweb->intraweb application wizard开始新建。直接保存
2、新加入一个from,具体步骤是：file->new->form开始新建,直接保存为unit2/ Form2。
3、修改生成的dpr文件，在dpr文件中是这样的写，红色的是需要改动的 program newform; uses Forms,
//IWStart,//被注销引用 IWMain,//新增引用
1
ServerController TIWServerController},
in 'ServerController.pas' {IWServerController:
Unit1 in 'Unit1.pas' {IWForm1: TIWFormModuleBase}, UserSessionUnit in 'UserSessionUnit.pas' {IWUserSession:
TIWUserSessionBase},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res} begin
//TIWStart.Execute(True);//被注销不用的,此处只有这一句语句。 //以下是新增的，因为新增form2,所以form2为主页。共三个语句。 Application.Initialize;
Application.CreateForm(TForm2, Form2);//这句是关键。 Application.Run; end.
4、在from2中放置一个IWStandAloneServer1: TIWStandAloneServer，一个mmo1: TMemo，一个lbl1: TLabel.
分别写如下的代码：
procedure TForm2.FormCreate(Sender: TObject); begin
mmo1.Lines.Add('留言服务开关：On');
2
mmo1.Lines.Add('监听端口: ' + IntToStr(GServerController.Port)); mmo1.lines.add(''); end;
//此处GServerController.Port要引用IWglobal单元,所以要引用IWglobal，具体写法是在{$R *.dfm}下面写如下：uses IWglobal;
procedure TForm2.lbl1Click(Sender: TObject); begin
IWStandAloneServer1.Run; end;
procedure TForm2.IWStandAloneServer1DebugLog(ASender: TObject; ALog: String); begin
mmo1.Lines.Add(ALog); end;
5、在IWForm1中使用IW的控件进行应用的编写。 6、编译成功，运行成功，可以修改程序的图标。 见图：
3
篇二
（二）Intraweb默认的应用程序，可修改程序图标。
1、使用file->new->other->intrabweb->intraweb application wizard开始新建的Intraweb程序，直接保存。
2、修改生成的dpr文件，在dpr文件中是这样的写，红色的是需要改动的 program newform1; uses Forms, //IWStart,
IWMain,//新增引用 ServerController TIWServerController},
Unit1 in 'Unit1.pas' {IWForm1: TIWFormModuleBase}, UserSessionUnit TIWUserSessionBase};
{$R *.res}
4
in 'ServerController.pas' {IWServerController:
in 'UserSessionUnit.pas' {IWUserSession:
begin
// TIWStart.Execute(True); Application.Initialize;
Application.CreateForm(TformIWMain, formIWMain); Application.Run;
//注意：Application.CreateForm(TformIWMain, formIWMain);这一句，全部的程序都是要用CreateForm （TformIWMain, formIWMain），换成TIWForm1, IWForm1)出错。可能TformIWMain, formIWMain是系统默认启动的窗体。
end.
3、在IWForm1中使用IW的控件进行应用的编写。 4、编译成功，运行成功，可以修改程序的图标。 见图：
5