Rev 81 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 81 | Rev 82 | ||
|---|---|---|---|
| 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 | - | ||
| 12 | uses |
9 | uses |
| 13 | Windows, Classes, UD2_PluginIntf, UD2_PluginStatus; |
10 | Windows, Classes, UD2_PluginIntf, UD2_PluginStatus; |
| 14 | 11 | ||
| 15 | function UD2_WritePascalStringToPointerW(lpDestination: LPWSTR; cchSize: DWORD; stSource: WideString): UD2_STATUS; |
12 | function UD2_WritePascalStringToPointerW(lpDestination: LPWSTR; cchSize: DWORD; stSource: WideString): UD2_STATUS; |
| 16 | 13 | ||