Rev 80 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 80 | Rev 81 | ||
|---|---|---|---|
| Line 4... | Line 4... | ||
| 4 | 4 | ||
| 5 | {$IF CompilerVersion >= 25.0} |
5 | {$IF CompilerVersion >= 25.0} |
| 6 | {$LEGACYIFEND ON} |
6 | {$LEGACYIFEND ON} |
| 7 | {$IFEND} |
7 | {$IFEND} |
| 8 | 8 | ||
| - | 9 | {$WARN UNSAFE_CODE OFF} |
|
| - | 10 | {$WARN UNSAFE_TYPE OFF} |
|
| - | 11 | ||
| 9 | uses |
12 | uses |
| 10 | Windows, Classes, UD2_PluginIntf, UD2_PluginStatus; |
13 | Windows, Classes, UD2_PluginIntf, UD2_PluginStatus; |
| 11 | 14 | ||
| 12 | function UD2_WritePascalStringToPointerW(lpDestination: LPWSTR; cchSize: DWORD; stSource: WideString): UD2_STATUS; |
15 | function UD2_WritePascalStringToPointerW(lpDestination: LPWSTR; cchSize: DWORD; stSource: WideString): UD2_STATUS; |
| 13 | 16 | ||