帮忙翻译代码（C->Delphi)，谢谢。愿意加分 (100分)

J

jlutt-sadan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-20

• #1

基础太差，没办法：（
LPBYTE lpbKeySate;
if (lpbKeyState[VK_MENU] &amp
0x80 ) return FALSE


type
LPBYTE=Windows.PBYTE;
var
lpbKeyState: LPBYTE;
begin
//后面不会写了：（
end;

 

L

ljlljl-79

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-20

• #2

if (lpbKeyState[VK_MENU] is 0x80 ) then Result:=FALSE;

 

J

jlutt-sadan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-20

• #3

thanks.
这样写过，编译出错，需要数组类型

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-20

• #4

type
LPBYTE=Windows.PBYTE;
var
lpbKeyState: LPBYTE;
PByte;
begin
.....
P:=lpbKeyState;
Inc(P,VK_MENU);
Result=((P^)and($80))<>0;
end

 

S

Siva

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-20

• #5

if lpbyte(VK_MENU)=80 then result:=false

 

Y

yfdciom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-20

• #6

if (lpbKeyState[VK_MENU] and $80) <>0 then
begin
Result:=false;
exit;
end;
Result:=true;

//0x80表示16进制的80，delphi的16进制表示法为 $80

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-21

• #7

var　　
ks: TKeyBoardState;
begin
GetKeyBoardState(ks)
//检测键盘函数
if ks[VK_MENU] and $80 <> 0 then

result:=true
end;

 

J

jlutt-sadan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-21

• #8

多谢楼上各位，到时加分，
那下面的这个怎么翻译呢？
#define GETLPCOMPSTR(lpcs) (LPTSTR)((LPBYTE)(lpcs) + (lpcs)->dwCompStrOffset)
......

*GETLPCOMPSTR(lpCompStr) = _T('/0');

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-21

• #9

StrPcopy(Pchar(Pointer(lpCompStr)+lpCompStr.dwCompStrOffset),'');

 

刘

刘麻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-22

• #10

Likedfw520 , 是否希望进黑名单玩玩 ？

 

J

jlutt-sadan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-23

• #11

多人接受答案了。