keys.pas

来自「《Delphi开发人员指南》配书原码」· PAS 代码 · 共 15 行

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.