ShadowPir8
New member
hm..... i have tried it to test what delphi can.....
but it dosen't work. :/
yes, some errors but i want to see what delphi can.
something is more c++ than delphi but it dosen't show errors.
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: