mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-28 03:52:23 -05:00
30 lines
681 B
PHP
30 lines
681 B
PHP
|
procedure Lape_KeyDown(const Params: PParamArray);
|
||
|
|
begin
|
||
|
|
ps_KeyDown(PWord(Params^[0])^);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Lape_KeyUp(const Params: PParamArray);
|
||
|
|
begin
|
||
|
|
ps_KeyUp(PWord(Params^[0])^);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Lape_SendKeys(const Params: PParamArray);
|
||
|
|
begin
|
||
|
|
ps_SendKeys(Pstring(Params^[0])^);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Lape_PressKey(const Params: PParamArray);
|
||
|
|
begin
|
||
|
|
ps_PressKey(PWord(Params^[0])^);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Lape_isKeyDown(const Params: PParamArray; const Result: Pointer);
|
||
|
|
begin
|
||
|
|
Pboolean(Result)^ := ps_isKeyDown(PWord(Params^[0])^);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Lape_GetKeyCode(const Params: PParamArray; const Result: Pointer);
|
||
|
|
begin
|
||
|
|
Pinteger(Result)^ := ps_GetKeyCode(Pchar(Params^[0])^);
|
||
|
|
end;
|