mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-11 03:45:06 -05:00
38 lines
381 B
ObjectPascal
38 lines
381 B
ObjectPascal
library libmml;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
cmem,Classes,interfaces,graphics,client;
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
C: TClient;
|
|
function test: pchar;
|
|
begin
|
|
result := PChar('hello world');
|
|
end;
|
|
|
|
procedure init;
|
|
begin
|
|
C:=TCLient.Create('');
|
|
end;
|
|
|
|
function getmousepos: tpoint;
|
|
begin
|
|
C.IOManager.GetMousePos(result.x,result.y);
|
|
end;
|
|
|
|
|
|
|
|
exports
|
|
test,
|
|
init,
|
|
getmousepos;
|
|
|
|
|
|
begin
|
|
end.
|
|
|