110,538
社区成员
发帖
与我相关
我的任务
分享
var
pKeyInfo: PAnsiChar;
var
dateLen: integer;
var
Pfunc: TFarProc;
KeyMoudle: THandle;
GetMem(pKeyInfo, 1024);
ZeroMemory(pKeyInfo,1024);
if KeyMoudle = 0 then
begin
KeyMoudle := Loadlibrary('ReadUKey.dll');
end;
if KeyMoudle > 0 then
begin
Pfunc := GetProcAddress(KeyMoudle, 'GetInfo');
end;
if Pfunc <> nil then
begin
ret := TFunGetKeyInfo(Pfunc)(pKeyInfo, dateLen);
end
[DllImport("ReadUKey.dll", CallingConvention = CallingConvention.StdCall)]
static extern int GetInfo(StringBuilder pKeyInfo, ref int dateLen);
static void Main(string[] args)
{
StringBuilder pKeyInfo = new StringBuilder();
int dateLen = 0;
int ret = GetInfo(pKeyInfo, ref dateLen);
}