Delphi ·¢ËÍ°´¼ü

const
ExtendedVKeys : set of byte =
[VK_Up,VK_Down,VK_Left,VK_Right,VK_Home,VK_End,VK_Prior, {Pg Up} VK_Next, {PgDn}VK_Insert,VK_Delete];
//·¢ËÍ°´¼ü
procedure SendCardNo(CardNo:String);
var
i :integer;
begin
for i:=1 to length(CardNo) do
begin
SendKeyDown(vkKeyScan(CardNo[i]),1, False);
end;

end;
procedure SendKeysBack(Key:char);
begin

SendKeyDown(vkKeyScan(Key),1, False);

end;

Procedure SendKeyDown(VKey: Byte;NumTimes : Word;GenUpMsg : Boolean);
var
Cnt : Word;
ScanCode : Byte;
NumState : Boolean;
KeyBoardState : TKeyboardState;
begin
If (VKey=VK_NUMLOCK) then
begin
NumState:=ByteBool(GetKeyState(VK_NUMLOCK) and 1);
GetKeyBoardState(KeyBoardState);
If NumState then
KeyBoardState[VK_NUMLOCK]:=(KeyBoardState[VK_NUMLOCK] and not 1)
else
KeyBoardState[VK_NUMLOCK]:=(KeyBoardState[VK_NUMLOCK] or 1);
SetKeyBoardState(KeyBoardState);
exit;
end;
ScanCode:=Lo(MapVirtualKey(VKey,0));
For Cnt:=1 to NumTimes do
If (VKey in ExtendedVKeys)then
begin
KeyboardEvent( VKey, ScanCode, KEYEVENTF_EXTENDEDKEY);
If (GenUpMsg ) then
KeyboardEvent( VKey, ScanCode, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP)
end
else
begin
KeyboardEvent(VKey, ScanCode, 0) ;
If (GenUpMsg) then
KeyboardEvent(VKey, ScanCode, KEYEVENTF_KEYUP);
End;
end;
Procedure KeyboardEvent(VKey, ScanCode : Byte;Flags : Longint);
var
KeyboardMsg : TMsg;
Wait :boolean;
begin
wait :=true;
keybd_event(VKey, ScanCode, Flags,0);
If (Wait) then While (
PeekMessage(KeyboardMsg,0,WM_KEYFIRST, WM_KEYLAST, PM_REMOVE)) do
begin
TranslateMessage(KeyboardMsg);
DispatchMessage( KeyboardMsg);
end;
end;
procedure SetCardLength(value: integer);
begin
CardLength:=Value;
end;

procedure SetSendKey(value: boolean);
begin
SendKey:=Value;
end;