又来请教了。关于DLL调用。

[haochin]

我的DLL文件名 K950C.DLL
放在当前程序目录
DLL中有一函数为:

KCreateDevice()
函数声明: HANDLE KCreateDevice(BYTE ncom)
功能说明:创建设备。
参数说明:
BYTE ncom 设备连接PC的串口号,如:1表示com1, 2表示com2, 3表示com3…,最大值为16。
返回值:
0 创建设备失败。
不为0 创建设备成功,且返回值为的设备标识号。

要求
1.在button.click事件中，动态调用此DLL 并且调用此函数。
2.在EDIT1.TEXT中显示函数返回值。


等答案啊。。。。。。谢谢条位了。

[pathletboy]

function KCreateDevice(ncom: Byte): THandle;stdcall;external 'K950C.DLL';

procedure TForm1.ButtonClick(Sender: TObject);
begin
  Edit1.Text := IntToStr(KCreateDevice(1));
end;

[haochin]

谢谢，还有一函数不知道怎么调用，，


KSetDateTime()
函数声明: LONG KSetDateTime(HANDLE Hdev, LONG DeviceID)。
功能说明:通迅测试及设置日期和时间。
参数说明:
HANDLE HDev 设备标识号(由KCreateDevice()函数返回得到)
此函数为广播命令，函数自动取电脑中的时钟参数，对使用HDev串口上的机器校时，所以必须保证电脑上的当前时钟准确。
返回值:
0 成功。
1 　　失败。


想达到的效果
1.在button.click事件中 且调用此函数。
2.在EDIT1.TEXT中显示函数返回值。