Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library nptest;
- {$R *.res}
- const
- plugname = 'nptest';
- function MessageBoxA(hWnd: cardinal;
- lpText: PAnsiChar;
- lpCaption: PAnsiChar;
- uType: cardinal
- ): integer;
- stdcall;
- external 'user32.dll';
- function NP_GetEntryPoints(param: integer): integer; stdcall;
- begin
- MessageBoxA(0, 'NP_GetEntryPoints', plugname, 0);
- Result := 0;
- end;
- function NP_Initialize(param: integer): integer; stdcall;
- begin
- MessageBoxA(0, 'NP_Initialize', plugname, 0);
- Result := 0;
- end;
- function NP_Shutdown: integer; stdcall;
- begin
- MessageBoxA(0, 'NP_Shutdown', plugname, 0);
- Result := 0;
- end;
- exports
- NP_GetEntryPoints,
- NP_Initialize,
- NP_Shutdown;
- begin
- MessageBoxA(0, 'DllMain', plugname, 0);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement