Jarrod Davis jarroddavis68
This file contains 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
| {=============================================================================== | |
| ItaniumABIExporter | |
| Copyright © 2024-present tinyBigGAMES™ LLC | |
| All Rights Reserved. | |
| Website: https://tinybiggames.com | |
| Email : [email protected] | |
| License: BSD 3-Clause |
This file contains 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
| (**************************************************************************** | |
| ___ _ _ _ ___ _ _ ___ ___ _____ | |
| | \ ___ | | _ __ | |_ (_) / __|| |_ __ _ | |_ / __|| _ \|_ _| | |
| | |) |/ -_)| || '_ \| ' \ | || (__ | ' \ / _` || _|| (_ || _/ | | | |
| |___/ \___||_|| .__/|_||_||_| \___||_||_|\__,_| \__| \___||_| |_| | |
| |_| | |
| Copyright © 2022-present tinyBigGAMES™ LLC | |
| All Rights Reserved. |
This file contains 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 SetGlobalEnvironment(const aName: string; const aValue: string; const aUser: Boolean = True): Boolean; | |
| const | |
| REG_MACHINE_LOCATION = 'System\CurrentControlSet\Control\Session Manager\Environment'; | |
| REG_USER_LOCATION = 'Environment'; | |
| var | |
| lParam, wParam: NativeInt; | |
| Buf: Array[0..11] of Char; | |
| dwReturnValue: DWORD_PTR; | |
| begin | |
| Buf := 'Environment'+#0; |
jarroddavis68
/ CmdLine.pas
Last active
November 8, 2022 07:44
TCmdLine - Enhanced Command line Processing for Delphi
This file contains 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
| {============================================================================== | |
| TCmdLine - Enhanced Command line Processing for Delphi | |
| Copyright © 2022 tinyBigGAMES™ LLC | |
| All Rights Reserved. | |
| Website: https://tinybiggames.com | |
| Email : [email protected] | |
| Redistribution and use in source and binary forms, with or without | |
| modifications are permitted provided that the following conditions are met: |
jarroddavis68
/ EncryptedZipFile.pas
Last active
October 17, 2022 18:40
TZipFile with Password Encryption
This file contains 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
| {============================================================================== | |
| . | |
| .--: : | |
| ---- :---: | |
| .----- .-. | |
| .------ . | |
| -------. | |
| .-------- : | |
| .--------- .:. | |
| ----------: . |
jarroddavis68
/ uSingleUnit.pas
Last active
July 13, 2023 13:28
Combine multiple Delphi into a single unit
This file contains 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
| {============================================================================== | |
| ____ _ | |
| / ___| _ __ __ _ _ __| | __ | |
| \___ \| '_ \ / _` | '__| |/ / | |
| ___) | |_) | (_| | | | < | |
| |____/| .__/ \__,_|_| |_|\_\ | |
| |_| Game Toolkit™ | |
| Copyright © 2022 tinyBigGAMES™ LLC | |
| All Rights Reserved. |
jarroddavis68
/ uCaptureConsoleEvent.pas
Last active
April 21, 2022 06:50
This file contains 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
| unit uCaptureConsoleEvent; | |
| interface | |
| type | |
| { TCaptureConsoleEvent } | |
| TCaptureConsoleEvent = procedure(aSender: Pointer; aLine: string); | |
| procedure CaptureConsoleOutput(const aTitle: string; const aCommand: PChar; const aParameters: PChar; aSender: Pointer; aEvent: TCaptureConsoleEvent); |
jarroddavis68
/ uSpStringList.pas
Last active
April 7, 2022 00:12
TSpStringList - Enhanced Delphi String List
This file contains 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
| unit uSpStringList; | |
| interface | |
| uses | |
| System.SysUtils, | |
| System.Classes; | |
| type | |
| { TSpStringList } |
This file contains 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
| unit uSpSingleton; | |
| interface | |
| uses | |
| System.SysUtils; | |
| type | |
| // 1. Add this unit to your project, then save-as a new unit file |
This file contains 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
| procedure PostKey(aKey: word; const aShift: TShiftState; aSpeciaKey: Boolean); | |
| { ************************************************************ | |
| * Procedure PostKey | |
| * | |
| * Parameters: | |
| * key : virtual keycode of the key to send. For printable | |
| * keys this is simply the ANSI code (Ord(character)). | |
| * shift : state of the modifier keys. This is a set, so you | |
| * can set several of these keys (shift, control, alt, | |
| * mouse buttons) in tandem. The TShiftState type is |
NewerOlder