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

Question

我的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中显示函数返回值。
等答案啊谢谢条位了。

Answer 1

function KCreateDevice(ncom: Byte): THandle;stdcall;external 'K950C.DLL';procedure TForm1.ButtonClick(Sender: TObject);
begin
  Edit1.Text := IntToStr(KCreateDevice(1));
end;

Answer 2

谢谢，还有一函数不知道怎么调用，，
KSetDateTime()
函数声明: LONG KSetDateTime(HANDLE Hdev, LONG DeviceID)。
功能说明:通迅测试及设置日期和时间。
参数说明: 
HANDLE  HDev       设备标识号(由KCreateDevice()函数返回得到)
此函数为广播命令，函数自动取电脑中的时钟参数，对使用HDev串口上的机器校时，所以必须保证电脑上的当前时钟准确。
返回值:
         0      成功。
          1    　　失败。
想达到的效果
1.在button.click事件中 且调用此函数。 
2.在EDIT1.TEXT中显示函数返回值。