skey.dpr

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

library SKey;

uses SysUtils, Windows, SendKey;

function SendKeys(P: PChar): TSendKeyError; stdcall;
begin
  Result := SendKey.SendKeys(P);
end;

function IsPlaying: BOOL; stdcall;
begin
  Result := Playing;
end;

procedure WaitForHook; stdcall;
begin
  SendKey.WaitForHook;
end;

exports
  SendKeys name 'SendKeys',
  IsPlaying name 'IsPlaying',
  WaitForHook name 'WaitForHook';

begin
end.