<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="cache-control" content="max-age=180,private" />
</head>
<card id="discuz_wml" title="CnPack Forum">
<p>#1 Pascal Script for Delphi里面的 ___Pointer 类型怎么用?<br /><small>我在 Pascal Script for Delphi 脚本里面调用 win api<br />
 <br />
但是 api 函数要求把  record 用  指针传入 ,  不知道怎么办~<br />
 <br />
procedure CopyMemory(pDest: LongInt; pSrc: ___Pointer; ByteLen: LongInt); external [email=]'RtlMoveMemory@kernel32[/email] stdcall';<br />
<br />
 <br />
var<br />
  KInput : TKeybdInput;<br />
  p  : ___Pointer<br />
begin<br />
  p := ___Pointer(KInput )  ;                                               <br />
  CopyMemory( GInput[0].xi[0],  KInput,  sizeof(KInput) );<br />
end.<br />
 <br />
{<br />
上面两 ..</small><br />
</p>
<p>#1 <a href="index.php?action=thread&amp;tid=2350&amp;start=0&amp;offset=498&amp;sid=fpz8EP">&gt;&gt;Next Page</a><br />
<br />Forum:<a href="index.php?action=forum&amp;fid=8&amp;sid=fpz8EP">CnPack IDE 专家包（CnW ...</a>
<br />Thread:<a href="index.php?action=thread&amp;tid=2350&amp;sid=fpz8EP">Pascal Script for De ...</a>
<br />Next Thread:<a href="index.php?action=thread&amp;tid=2380&amp;sid=fpz8EP">建议：历史文件专家增加 ...</a>
</p>
<p align="center"><br /><a href="index.php?sid=fpz8EP">Home</a><br />
<a href="index.php?action=login&amp;sid=">Login</a><br /><br />
<small>Powered by Discuz!</small></p>
</card>
</wml>