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 |