skeys.pas

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

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.