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
| program interface_factory; | |
| {$APPTYPE CONSOLE} | |
| {$R *.res} | |
| uses | |
| System.SysUtils, | |
| System.Generics.Collections; |
jarroddavis68
/ InterfaceFactory.pas
Created
November 5, 2021 23:41
InterfaceFactory - Manage a list is generic NoRef counted interfaces.
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
| (******************************************************************************* | |
| InterfaceFactory - Manage a list is generic NoRef counted interfaces. | |
| Copyright © 2021 tinyBigGAMES™ LLC | |
| All Rights Reserved. | |
| Website: https://tinybiggames.com | |
| Email : support@tinybiggames.com |
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 © 2021 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 ExecuteFile(ahWnd: Cardinal; const aFilename, aParams, aStartDir: string; aShowCmd: Integer; aWait: Boolean): Integer; | |
| var | |
| Info: TShellExecuteInfo; | |
| ExitCode: DWORD; | |
| begin | |
| Result := -1; | |
| FillChar(Info, SizeOf(Info), 0); | |
| Info.cbSize := SizeOf(TShellExecuteInfo); | |
| with Info do | |
| begin |
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 DeferDelFile(const aFilename: string); | |
| var | |
| LCode: TStringList; | |
| LFilename: string; | |
| procedure C(const aMsg: string; const aArgs: array of const); | |
| var | |
| LLine: string; | |
| begin | |
| LLine := Format(aMsg, aArgs); |
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 |
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 |
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 } |
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
/ 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. |
OlderNewer