1.下载 Ehlib控件 Ehlib下载2.解压后安装Ehlib EhLib 5.2->Installer->EhLibInstaller.exe3.打开Delphi2010 Tools->options->Libraty-win32添加EhLib 5
一、在主程序中定义函数//------------------------------------Start Code-- //把共享的变量放在主程序里myuid function GetCurUserName:PChar; begin Result:=PChar(myuid); end; {$R *.res} exports GetCurUserName; //--------
一、打开项目文件(.DPR),删除单元底部begin和end.之间的所有语句(一般情况下这些语句是由Delphi自动生成的)。 二、更改头部 program 类型 将 program 改为 library 三、可以在单元底部的begin语句之前加入自己定义的其他函数或者过程,用于输出
一、新建一个DlL文件 1.新建一个Dll文件,并保存Dll文件 二、将EXE的.pas文件添加到Dll文件中 1.点击 Project -->Add Project(或Shift+F11) 2.找到exe的.pas文件 三、在DLL工程源文件中添加代码 library Mydl
procedure TForm1.FormCreate(Sender: TObject); var I,Y,L:Integer; Bstr,Sustr:string; RootNode,SubNode,SutNode:TTreeNode; begin try ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.
DLL链接库代码Library Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; Function ShowForm(AHandle:THandle):Boolean;StdCall; var AForm:TForm1; begin Result:=False; Application.Handle:=AHandle; AF
procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); var myurl,tstr:string;
Copyright © 2005-2024 51CTO.COM 版权所有 京ICP证060544号