你是说如何写可传递参数的DLL,还是想向已有的DLL传递参数。
1:编写函数时与不同函数一样建立参数接口啊。
2:要知道该DLL的函数调用说明。不过好多没有公开呀!
1:编写函数时与不同函数一样建立参数接口啊。
2:要知道该DLL的函数调用说明。不过好多没有公开呀!
解决方案 »
- EHLIB里面的PACKLIST为什么要点击两次才能显示下拉框的全部内容?
- 是考研还是继续编程?请各位出出主意?
- mdi登陆窗体问题
- 窗体最小化问题
- 新年第一帖,祝各位D友们新年新气象,:)
- delphi8的几个控间请教一下。
- ****郁闷,从来没有遇到这样的问题!!!为什么报表显示的时候会闪一下!而且显示出来后其窗体还没有自动关闭!********
- 以前不觉得,现在的高手都归隐了,只剩下一些玩水之徒。真是无聊!
- 视频卡有谁作过吗?请问这段代码能抓图吗?挺急的,分数不是问题!
- 关于zswang(伴水)找了个CSDN的漏洞到底是怎么回事?
- 开一个线程进行数据库查询,碰到问题了。
- 请问:如何让一个子窗口可以在主主窗口中随意拖动和DOCK,可以就向VC中的workspace一样。
begin
if str1=str2 then CheckStr:=true
else CheckStr:=false;
end;
在用静态的调用dll方式调用即可!
function FuncCheckString(str1,str2:pchar):integer;stdcall;
begin
...........
if 合法 then
result := 1
else
result := 0;
end;
export
FuncCheckString index 1;
uses Windows, ...;
type TTimeRec = record
Second: Integer;
Minute: Integer;
Hour: Integer;
end; TGetTime = procedure(var Time: TTimeRec); THandle = Integer;var Time: TTimeRec;
Handle: THandle;
GetTime: TGetTime;
...
begin
Handle := LoadLibrary('DATETIME.DLL');
if Handle <> 0 then
begin
@GetTime := GetProcAddress(Handle, 'GetTime');
if @GetTime <> nil then
begin
GetTime(Time);
with Time do
WriteLn('The time is ', Hour, ':', Minute, ':', Second);
end;
FreeLibrary(Handle);
end;end;