Advertisement
Guest User

Untitled

a guest
Aug 19th, 2017
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.86 KB | None | 0 0
  1. library nptest;
  2.  
  3. {$R *.res}
  4.  
  5. const
  6.   plugname = 'nptest';
  7.  
  8. function MessageBoxA(hWnd:      cardinal;
  9.                      lpText:    PAnsiChar;
  10.                      lpCaption: PAnsiChar;
  11.                      uType:     cardinal
  12.                      ):         integer;
  13.                      stdcall;
  14.                      external 'user32.dll';
  15.  
  16. function NP_GetEntryPoints(param: integer): integer; stdcall;
  17. begin
  18.   MessageBoxA(0, 'NP_GetEntryPoints', plugname, 0);
  19.   Result := 0;
  20. end;
  21.  
  22. function NP_Initialize(param: integer): integer; stdcall;
  23. begin
  24.   MessageBoxA(0, 'NP_Initialize', plugname, 0);
  25.   Result := 0;
  26. end;
  27.  
  28. function NP_Shutdown: integer; stdcall;
  29. begin
  30.   MessageBoxA(0, 'NP_Shutdown', plugname, 0);
  31.   Result := 0;
  32. end;
  33.  
  34. exports
  35.   NP_GetEntryPoints,
  36.   NP_Initialize,
  37.   NP_Shutdown;
  38.  
  39. begin
  40.   MessageBoxA(0, 'DllMain', plugname, 0);
  41. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement