Delphi Collision Protector Plugin SDK for Developers

Code
library SDK;



uses

  Windows;



{$R *.res}



const

  szPluginName = 'Plugin SDK';

  szPluginDescription = 'Create your own plugins';





function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; assembler;

asm

        PUSH    EDI

        PUSH    ESI

        PUSH    EBX

        MOV     ESI,EAX

        MOV     EDI,EDX

        MOV     EBX,ECX

        XOR     AL,AL

        TEST    ECX,ECX

        JZ      @@1

        REPNE   SCASB

        JNE     @@1

        INC     ECX

@@1:    SUB     EBX,ECX

        MOV     EDI,ESI

        MOV     ESI,EDX

        MOV     EDX,EDI

        MOV     ECX,EBX

        SHR     ECX,2

        REP     MOVSD

        MOV     ECX,EBX

        AND     ECX,3

        REP     MOVSB

        STOSB

        MOV     EAX,EDX

        POP     EBX

        POP     ESI

        POP     EDI

end;



function PluginName(pStr: PChar; iStrLen: Integer): Integer; stdcall;

var

  s: String;

begin

  s := szPluginName;

  Result := length(s);

  StrLCopy(pStr, PChar(s), Result);

end;



function PluginDescription(pStr: PChar; iStrLen: Integer): Integer; stdcall;

var

  s: String;

begin

  s := szPluginDescription;

  Result := length(s);

  StrLCopy(pStr, PChar(s), Result);

end;





procedure LoadPlugin; stdcall;

begin

  //Init Function for Client;

end;



procedure Execute; stdcall;

begin

  MessageBox(0,'SDK','SDK_OK',MB_OK OR MB_ICONINFORMATION);

end;



exports

  LoadPlugin,

  Execute,

  PluginName,

  PluginDescription;



end.