85 lines
2.3 KiB
PHP
85 lines
2.3 KiB
PHP
procedure Lape_SetDesktopAsClient(const Params: PParamArray);
|
|
begin
|
|
ps_SetDesktopAsClient();
|
|
end;
|
|
|
|
procedure Lape_SetTargetArray(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_SetTargetArray(PInteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_SetTargetBitmap(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_SetTargetBitmap(PInteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_SetEIOSTarget(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_SetEIOSTarget(Pstring(Params^[0])^, PVariant(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_SetImageTarget(const Params: PParamArray);
|
|
begin
|
|
ps_SetImageTarget(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_SetKeyMouseTarget(const Params: PParamArray);
|
|
begin
|
|
ps_SetKeyMouseTarget(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_GetImageTarget(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_GetImageTarget();
|
|
end;
|
|
|
|
procedure Lape_GetKeyMouseTarget(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_GetKeyMouseTarget();
|
|
end;
|
|
|
|
procedure Lape_ExportImageTarget(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PTarget_Exported(Result)^ := ps_ExportImageTarget();
|
|
end;
|
|
|
|
procedure Lape_ExportKeyMouseTarget(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PTarget_Exported(Result)^ := ps_ExportKeyMouseTarget();
|
|
end;
|
|
|
|
procedure Lape_FreeTarget(const Params: PParamArray);
|
|
begin
|
|
ps_FreeTarget(Pinteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_GetClientDimensions(const Params: PParamArray);
|
|
begin
|
|
ps_GetClientDimensions(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_GetClientPosition(const Params: PParamArray);
|
|
begin
|
|
ps_GetClientPosition(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_Freeze(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pboolean(Result)^ := ps_Freeze();
|
|
end;
|
|
|
|
procedure Lape_Unfreeze(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pboolean(Result)^ := ps_Unfreeze();
|
|
end;
|
|
|
|
procedure Lape_ActivateClient(const Params: PParamArray);
|
|
begin
|
|
ps_ActivateClient();
|
|
end;
|
|
|
|
procedure Lape_IsTargetValid(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pboolean(Result)^ := ps_IsTargetValid();
|
|
end;
|