skeys.pas

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

unit SKeys;

interface

type
  { Return values for SendKeys function }
  TSendKeyError = (sk_None, sk_FailSetHook, sk_InvalidToken, sk_UnknownError);

function SendKeys(P: PChar): TSendKeyError; stdcall;

implementation

function SendKeys; external 'SendKey' name 'SendKeys';

end.