tps_demo_onloaddll.htm

来自「Delphi脚本控件」· HTM 代码 · 共 72 行

HTM
72 行
字号 
<html>
<head>
<link rel=stylesheet type="text/css" href="styles.css">
</head>

<body>

<font face="Arial, Helvetica">

<h3>
TPaxScripter.OnLoadDll event demo.
</h3>
<hr>

Delphi code:

<blockquote>
<pre>
<font color="blue"><b>procedure</b></font> MyVirtualProc;
<font color="blue"><b>begin</b></font>
  ShowMessage(<font color="Red">'MyVirtualProc has been called'</font>);
<font color="blue"><b>end</b></font>;

<font color="blue"><b>function</b></font> MyVirtualFunc: ShortString;
<font color="blue"><b>begin</b></font>
  result := <font color="Red">'MyVirtualFunc'</font>;
<font color="blue"><b>end</b></font>;

<font color="blue"><b>procedure</b></font> TForm1.PaxScripter1LoadDll(Sender: TObject; <font color="blue"><b>const</b></font> DllName,
  ProcName: <font color="blue"><b>String</b></font>; <font color="blue"><b>var</b></font> Address: Pointer);
<font color="blue"><b>begin</b></font>
  <font color="blue"><b>if</b></font> DllName = <font color="Red">'MyVirtualDll.dll'</font> <font color="blue"><b>then</b></font>
  <font color="blue"><b>begin</b></font>
    <font color="blue"><b>if</b></font> ProcName = <font color="Red">'MyVirtualProc'</font> <font color="blue"><b>then</b></font>
      Address := @ MyVirtualProc
    <font color="blue"><b>else</b></font> <font color="blue"><b>if</b></font> ProcName = <font color="Red">'MyVirtualFunc'</font> <font color="blue"><b>then</b></font>
      Address := @ MyVirtualFunc;
  <font color="blue"><b>end</b></font>;
<font color="blue"><b>end</b></font>;
</pre>
</blockquote>

Script:

<blockquote>
<pre>
<font color="blue"><b>program</b></font> Demo;
<font color="blue"><b>Function</b></font> GetTickCount : Integer;  <font color="blue"><b>stdcall</b></font>; <font color="blue"><b>external</b></font> <font color="Red">'kernel32.dll'</font>; // "real" dll

<font color="blue"><b>procedure</b></font> MyVirtualProc; <font color="blue"><b>external</b></font> <font color="Red">'MyVirtualDll.dll'</font>; // "virtual" dll
<font color="blue"><b>function</b></font> MyVirtualFunc: ShortString; <font color="blue"><b>external</b></font> <font color="Red">'MyVirtualDll.dll'</font>;
// "virtual" dll

<font color="blue"><b>begin</b></font>

MyVirtualProc();
<font color="blue"><b>print</b></font> MyVirtualFunc();
<font color="blue"><b>print</b></font> GetTickCount();
<font color="blue"><b>end</b></font>.
</pre>
</blockquote>


<p>
<HR>
<font size = 1 color ="gray">
Copyright &copy; 1999-2005
VIRT Laboratory. All rights reserved.
</font>
</body>
</html>

tps_demo_onloaddll.htm - 源码说明

本页面展示了「Delphi脚本控件」中的 tps_demo_onloaddll.htm 源码文件，采用 HTM 编程语言编写，共 72 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?