delphi中怎样加载dll?

Fallingstar 2002-10-17 04:59:47

怎样动态的加载dll？
最好能给一个能运行的例子！

...全文

174 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

Fallingstar 2002-10-18

打赏
举报

wsforqyc(大海)
hh:=LoadLibrary(PChar(CurDir+'xpformdll.dll'));应该加上stdcall或其他标示符才对吧?
我这样用但是他老返回的是地址阿！

armu80830 2002-10-18

打赏
举报

同意 wsforqyc(大海)

wsforqyc 2002-10-18

打赏
举报

Typt
TModPas=Function(Var OldPwd:PChar;Var NewPwd:PChar;HH:THandle):Boolean;stdcall;

procedure TMainForm.cb1Click(Sender: TObject);
var
HH:Thandle;
ModPassWord:TModPas;
begin
Try
hh:=LoadLibrary(PChar(CurDir+'xpformdll.dll'));
if hh<>0 then
@ModPassWord:=GetProcAddress(HH,'ModPassWord');
if (@ModPassWord)<>nil then
if TModPas(ModPassWord)(OldP,NewP,Application.Handle) then
//Go you Program
Finally
Freelibrary(HH);
End;
end;

Fallingstar 2002-10-17