A
alvinlv
Unregistered / Unconfirmed
GUEST, unregistred user!
<pre>
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp;
type
TWebModule1 = class(TWebModule)
procedure WebModule1DefaultAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.WebModule1DefaultAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.Content := 'This is Sample';
end;
end.
</pre>
程序运行没有问题。 但运行之后,无法删除这个.dll文件。
是系统的资源没有释放,因为重新启动机器后就可以删除。
请教怎样在程序运行之后释放资源, 使这个.dll 文件能够删除?
thks!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp;
type
TWebModule1 = class(TWebModule)
procedure WebModule1DefaultAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.WebModule1DefaultAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.Content := 'This is Sample';
end;
end.
</pre>
程序运行没有问题。 但运行之后,无法删除这个.dll文件。
是系统的资源没有释放,因为重新启动机器后就可以删除。
请教怎样在程序运行之后释放资源, 使这个.dll 文件能够删除?
thks!