delphi help里的例子:
=========================
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;
=========================
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;
解决方案 »
- 征求解决方案
- 请问如何快速将 窗体 所有 adodataset 的 active 属性 设为 false???????????????????
- 请问ehlib中的那个DEMO1中点击GRIDEH1时弹出另一个窗口是如何实现的?
- 那位告诉我SetLength的用法
- 大家请来帮帮我 帮我解决我的问题
- 如何截取一个字副串中到空格为止的部分。如asd ad 中如何截取asd?
- ODBC为什么总是调用失败??????是高手的请进。。。。。。
- 记录的拖动问题
- www.inprises.com/控件天堂怎么上?
- 可以不通过ODBC而直接使用BDE访问数据库吗? 该如何设置?
- StringGrid中的数据怎么打印啊,还要报表控件吗!!!!问题,急,up者有分 非常急啊!
- 怎样用动态SQL向数据库中插入图片啊?
在程序中的调用和用本程序定义的函数一样。如:Function GetMax(const x,y: Integer):Integer;Far;exprots 'GetMax.dll';