我用DEPHI7.0编写了一个DLL,在DELPHI里可以调用,但我不知道怎么在VB里调用,有高手懂请一定赐教,感恩不尽!
下面是DLL模块里的部分代码:
library prjDLL;
uses
SysUtils,
Forms,
Windows,
Messages,
Classes,
DLLFormUnit in 'DLLFormUnit.pas' {frmDLLForm},
AboutUnit in 'AboutUnit.pas' {frmAbout},
sumt_fgh in 'sumt_fgh.pas' {Form3};
{$R *.res}
var
DLLApp: TApplication;
DLLScr: TScreen;
function CreateDLLForm(App: TApplication; Scr: TScreen):TForm;
var
ptr:PLongInt;
begin
Application := App;
Screen := Scr;
Application.CreateForm(TfrmDLLForm, frmDLLForm);
Application.CreateForm(TfrmAbout, frmAbout);
Application.CreateForm(TForm3, Form3);
result:=frmDLLForm;
end;
procedure ExitDLL(Reason: Integer);
begin
if Reason = DLL_PROCESS_DETACH then
begin
Application := DLLApp;
Screen := DLLScr;
end;
end;
exports
CreateDLLForm;
begin
DLLApp := Application;
DLLScr := Screen;
DLLProc := @ExitDLL;
end.
下面是DLL模块里的部分代码:
library prjDLL;
uses
SysUtils,
Forms,
Windows,
Messages,
Classes,
DLLFormUnit in 'DLLFormUnit.pas' {frmDLLForm},
AboutUnit in 'AboutUnit.pas' {frmAbout},
sumt_fgh in 'sumt_fgh.pas' {Form3};
{$R *.res}
var
DLLApp: TApplication;
DLLScr: TScreen;
function CreateDLLForm(App: TApplication; Scr: TScreen):TForm;
var
ptr:PLongInt;
begin
Application := App;
Screen := Scr;
Application.CreateForm(TfrmDLLForm, frmDLLForm);
Application.CreateForm(TfrmAbout, frmAbout);
Application.CreateForm(TForm3, Form3);
result:=frmDLLForm;
end;
procedure ExitDLL(Reason: Integer);
begin
if Reason = DLL_PROCESS_DETACH then
begin
Application := DLLApp;
Screen := DLLScr;
end;
end;
exports
CreateDLLForm;
begin
DLLApp := Application;
DLLScr := Screen;
DLLProc := @ExitDLL;
end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货