请问如何将dll文件用内存映射后,运行?
解决方案 »
- 有个问题,给个思路
- 三层的一个小问题,RPC服务器不可用......请求帮忙,谢谢
- 我在线程里输出excel,excel刚开始出现的速度太慢
- 请教:一个排队问题!
- 找了N天,研究了N天,不知道如何在本地共享局域网其他机器的盘符
- 奇怪的DCOM代码转COM+出现的异常,"DLLHOST.exe 地址异常错误",请高手作答!
- 请问各位老大,怎么把TFileTime类型的变量转换成yyyy-mm-dd的格式,TFileTime中的dwLowDateTime和dwHighDateTime是什么意思
- 在线! Adoquery1: Database not in edit or insert mode 如何判断,解决!
- 关于messagebox的难题,高手,大虾指点.
- 关于释放问题
- query语句中含有'`'该怎么处理?
- 动态创建窗体问题,在线等待,如有肯定结果马上揭贴~~~
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;