The Tor Browser / file comparison
comparison: other-licenses/nsis/Contrib/ExDLL/exdll.dpr
other-licenses/nsis/Contrib/ExDLL/exdll.dpr
- branch
- TOR_BUG_9701
- changeset 14
- 925c144e1f1f
equal
deleted
inserted
replaced
| -1:000000000000 | 0:4c54e0bc245e |
|---|---|
| 1 { | |
| 2 NSIS ExDLL example | |
| 3 (C) 2001 - Peter Windridge | |
| 4 | |
| 5 Fixed and formatted by Brett Dever | |
| 6 http://editor.nfscheats.com/ | |
| 7 | |
| 8 Tested in Delphi 7.0 | |
| 9 } | |
| 10 | |
| 11 library exdll; | |
| 12 | |
| 13 uses Windows; | |
| 14 | |
| 15 type | |
| 16 VarConstants = ( | |
| 17 INST_0, | |
| 18 INST_1, // $1 | |
| 19 INST_2, // $2 | |
| 20 INST_3, // $3 | |
| 21 INST_4, // $4 | |
| 22 INST_5, // $5 | |
| 23 INST_6, // $6 | |
| 24 INST_7, // $7 | |
| 25 INST_8, // $8 | |
| 26 INST_9, // $9 | |
| 27 INST_R0, // $R0 | |
| 28 INST_R1, // $R1 | |
| 29 INST_R2, // $R2 | |
| 30 INST_R3, // $R3 | |
| 31 INST_R4, // $R4 | |
| 32 INST_R5, // $R5 | |
| 33 INST_R6, // $R6 | |
| 34 INST_R7, // $R7 | |
| 35 INST_R8, // $R8 | |
| 36 INST_R9, // $R9 | |
| 37 INST_CMDLINE, // $CMDLINE | |
| 38 INST_INSTDIR, // $INSTDIR | |
| 39 INST_OUTDIR, // $OUTDIR | |
| 40 INST_EXEDIR, // $EXEDIR | |
| 41 INST_LANG, // $LANGUAGE | |
| 42 __INST_LAST | |
| 43 ); | |
| 44 TVariableList = INST_0..__INST_LAST; | |
| 45 pstack_t = ^stack_t; | |
| 46 stack_t = record | |
| 47 next: pstack_t; | |
| 48 text: PChar; | |
| 49 end; | |
| 50 | |
| 51 var | |
| 52 g_stringsize: integer; | |
| 53 g_stacktop: ^pstack_t; | |
| 54 g_variables: PChar; | |
| 55 g_hwndParent: HWND; | |
| 56 | |
| 57 function PopString(): string; | |
| 58 var | |
| 59 th: pstack_t; | |
| 60 begin | |
| 61 if integer(g_stacktop^) <> 0 then begin | |
| 62 th := g_stacktop^; | |
| 63 Result := PChar(@th.text); | |
| 64 g_stacktop^ := th.next; | |
| 65 GlobalFree(HGLOBAL(th)); | |
| 66 end; | |
| 67 end; | |
| 68 | |
| 69 procedure PushString(const str: string=''); | |
| 70 var | |
| 71 th: pstack_t; | |
| 72 begin | |
| 73 if integer(g_stacktop) <> 0 then begin | |
| 74 th := pstack_t(GlobalAlloc(GPTR, SizeOf(stack_t) + g_stringsize)); | |
| 75 lstrcpyn(@th.text, PChar(str), g_stringsize); | |
| 76 th.next := g_stacktop^; | |
| 77 g_stacktop^ := th; | |
| 78 end; | |
| 79 end; | |
| 80 | |
| 81 function GetUserVariable(const varnum: TVariableList): string; | |
| 82 begin | |
| 83 if (integer(varnum) >= 0) and (integer(varnum) < integer(__INST_LAST)) then | |
| 84 Result := g_variables + integer(varnum) * g_stringsize | |
| 85 else | |
| 86 Result := ''; | |
| 87 end; | |
| 88 | |
| 89 procedure SetUserVariable(const varnum: TVariableList; const value: string); | |
| 90 begin | |
| 91 if (value <> '') and (integer(varnum) >= 0) and (integer(varnum) < integer(__INST_LAST)) then | |
| 92 lstrcpy(g_variables + integer(varnum) * g_stringsize, PChar(value)) | |
| 93 end; | |
| 94 | |
| 95 procedure NSISDialog(const text, caption: string; const buttons: integer); | |
| 96 begin | |
| 97 MessageBox(g_hwndParent, PChar(text), PChar(caption), buttons); | |
| 98 end; | |
| 99 | |
| 100 procedure ex_dll(const hwndParent: HWND; const string_size: integer; const variables: PChar; const stacktop: pointer); cdecl; | |
| 101 begin | |
| 102 // setup global variables | |
| 103 g_stringsize := string_size; | |
| 104 g_hwndParent := hwndParent; | |
| 105 g_stacktop := stacktop; | |
| 106 g_variables := variables; | |
| 107 // end global variable setup | |
| 108 | |
| 109 NSISDialog(GetUserVariable(INST_0), 'The value of $0', MB_OK); | |
| 110 NSISDialog(PopString, 'pop', MB_OK); | |
| 111 PushString('Hello, this is a push'); | |
| 112 SetUserVariable(INST_0, 'This is user var $0'); | |
| 113 end; | |
| 114 | |
| 115 exports ex_dll; | |
| 116 | |
| 117 begin | |
| 118 end. |
