What's new

zilmar plugin to delphi

ShadowPir8

New member
hm..... i have tried it to test what delphi can.....
but it dosen't work. :/


Code:
library plugin;

uses
  SysUtils,
  Classes;

{$R *.res}

  var void: pchar;
  type struct = (Version, plgType, Name);
  var PLUGIN_INFO: struct;
  var Value: word;
  type struct_2 = (Plugin_);
   type union = (R_DPAD,
                 L_DPAD,
                 D_DPAD,
		 U_DPAD,
		 START_BUTTON,
		 Z_TRIG,
		 B_BUTTON,
		 A_BUTTON,
                 R_CBUTTON,
		 L_CBUTTON,
		 D_CBUTTON,
		 U_CBUTTON,
		 R_TRIG,
		 L_TRIG,
		 Y_AXIS,
                 X_AXIS);
  var BUTTONS: union;
begin


{$DEFINE PLUGIN_TYPE_CONTROLLER 4} // type of plugin
{$DEFINE PLUGIN_NONE 1} // nothing
{$DEFINE PLUGIN_MEMPAK 2} // memory pak
{$DEFINE PLUGIN_RUMBLE_PAK 3} // rumble pak
{$DEFINE PLUGIN_TRANSFER_PAK 4} // transfer pak

{$DEFINE EXPORT __cdeclspec(dllexport)}
{$DEFINE CALL _cdecl}

{$DEFINE NumberOfButtons 7}
end.

EXPORT void CALL CloseDll(void);
begin
end;

EXPORT void CALL ControllerCommand(void);
begin
end;

EXPORT void CALL DllAbout(hWnd hParent)
begin
ShowMessage('zilmar's basic keyboard plugin delphi port test');
end;

EXPORT void CALL GetDllInfo(PLUGIN_INFO * PluginInfo)
begin
PluginInfo->Version = 0x0100;
PluginInfo->plgType = PLUGIN_TYPE_CONTROLLER;
writeln(PluginInfo->Name, "Test Plugin");
end;

end.

yes, some errors but i want to see what delphi can.
something is more c++ than delphi but it dosen't show errors.
 
Last edited:

Top