keys.pas

《Delphi开发人员指南》配书原码

unit Keys;

interface

type
  TSendKeyError = (sk_None, sk_FailSetHook, sk_UnknownError, sk_InvalidToken);

function SendKeys(S: String): integer;

implementation

function SendKeys; external 'SendKey' index 2;

end.