[Back to KEYBOARD SWAG index] [Back to Main SWAG index] [Original]

    (*
    From: MARC BIR
    Subj: KEYBOARD Simulation

    {BW>Ok, here is my problem...I am trying to read a string from a
    file, poke it i the keyboard buffer, and then dump the contents of
    the buffer, so as to simulate that the user actually typed the
    string...This way the user doesnt have to type it all out..My
    program works fine, except if the string is more than characters, and
    if I try to clear the buffer after 16 characters, all I get the last
    few characters in the string..Can anyone please help?  I would real
    like to finish this dang project! :>  Thank you.}

    {This should work, tested it out.  If it returns a false, you have to
    stop sending characters, until those that are in the buffer are used,
    doesn't matter what scancode is if you don't use, ditto for asciicode }
    *)

    Function SimulateKey( AsciiCode, ScanCode : Byte ) : Boolean; Assembler
    Asm
     Mov  AH, 05H
     Mov  CH, ScanCode
     Mov  CL, AsciiCode
     Int  16H
     XOR  AX, 1       { bios returns 1 = error, 0 = false, pascal opposite }
    End; { Returns false if buffer is full }

[Back to KEYBOARD SWAG index] [Back to Main SWAG index] [Original]