Timur Gagiev XProger
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| function lzo_compress(const Data; Size: LongInt; var CData; var CSize: LongInt; var WorkBuf): LongInt; cdecl; | |
| asm | |
| {$IFDEF WIN32} | |
| jmp lzo_compress + $2F0 + 8 + 3 | |
| {$ELSE} | |
| pop ebp | |
| lea eax, @dest + $2F0 | |
| jmp eax | |
| @dest: | |
| {$ENDIF} |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| function Calc(const CalcStr: string): string; | |
| var | |
| v : Variant; | |
| begin | |
| v := CreateOleObject('MSScriptControl.ScriptControl'); | |
| v.Language := 'JScript'; | |
| Result := v.Eval(CalcStr); | |
| v := Unassigned; | |
| end; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| program min_ogl; | |
| uses | |
| Windows, OpenGL; | |
| var | |
| pfd : TPixelFormatDescriptor; | |
| DC : HDC; | |
| begin | |
| // Creating window |
NewerOlder