|
Hola a todos,podría por favor alguien traducirme esto a C, yo me hice un rollo y no me resulta.
Gracias de antemano.
Abel.
procedure Keyb_Event(C: CHAR);
var S: WORD;
begin S:= VkKeyScan(C);
if(S and $0100) <> 0 then keybd_event(VK_SHIFT,0,0,0);
if(S and $0200) <> 0 then keybd_event(VK_LCONTROL,0,0,0);
if(S and $0400) <> 0 then keybd_event(VK_LMENU,0,0,0);
keybd_event(S,0,0,0);
keybd_event(S,0,KEYEVENTF_KEYUP,0);
if(S and $0100) <> 0 then keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0); i
f(S and $0200) <> 0 then keybd_event(VK_LCONTROL,0,KEYEVENTF_KEYUP,0);
if(S and $0200) <> 0 then keybd_event(VK_LMENU,0,KEYEVENTF_KEYUP,0);
end;
|