개발자를 위한 커닝페이퍼

이건 콘솔용 어플리케이션 등에서 실행시 커맨드라인 파라미터 값을 간단히 처리하기 위한 라이브러리다. 먼저 사용법은 { C:\>Project1.exe /a /b Name=Jazz } FCML := TCommandLineParser.Create(FALSE, FALSE, '=', TRUE); Name := FCML.GetValue('NAME'); if FCML.Exists('/A') then ... unit LibCommandLineParser; interface uses Windows, SysUtils; // 사이즈를 줄이기 위해 Classes를 사용하지 않고 만들었다. type TPairString = packed record Name : String; Value : String; end; TCommand..

unit SocketEngine_WOL; interface uses Windows, Classes, WinSock, SysUtils, LibString, DefSocket, SocketEngine, SocketEngine2; function Socket_GetMagicPacketLength(const PasswdSize : Integer = 0) : Integer; stdcall; function Socket_GetMagicPacket(Mac : TMacAddress; Buffer : Pointer; BufferSize : Integer; const Passwd : PChar = nil; const PasswdSize : Integer = 0) : Integer; stdcall; function Sock..

unit NetFirewall; interface uses Windows, SysUtils, ActiveX, Variants, NetFwTypeLib_TLB, LibRegistry, LibUAC; function NetFirewall_AuthorizedApplication(const FileName: WideString; const ProgramDesc: WideString) : BOOL; stdcall; procedure NetFirewall_DeleteApplication(const FileName: WideString); function NetFirewall_BlockOutboundPort(const Name: WideString; Ports: WideString) : BOOL; stdcall; p..

unit LibRegistry; interface uses Windows, SysUtils; type TRegExploreCallBackFunc = function (const RKey: HKEY; const Parent, Name: String; Param: Integer) : Boolean; stdcall;// TRUE를 리턴하면 탐색 마침 TRegExploreCallBackMethod = function (const RKey: HKEY; const Parent, Name: String; Param: Integer) : Boolean of Object;// TRUE를 리턴하면 탐색 마침 procedure REG_Delete(const RKey:HKEY; const Folder,Name:String);..

unit LibUAC; interface uses Windows, SysUtils, ActiveX, WinUser, LibSystemConst, LibProcessToken; // 2011.07.19 JAZZ function UAC_isTurnON(const Elevated: PBoolean = nil) : Boolean; // 2010.12.23 JAZZVista 이상에서 UAC가 활성화된 경우 낮은 보안레벨의 프로세스는 //높은 보안레벨의 프로세스로 메세지를 보낼 수 없다. //이건 그걸 해제하는 함수다. //User Interface Privilege Isolation (UIPI) message filter procedure UIPI_MessageFilter(MessageID: DWORD; Allo..

unit LibSystemConst; interface uses Windows, SysUtils, LibProcessInfo, LibOSVersion; var __OverVista: Boolean; __OverXP: Boolean; __Over2K: Boolean; __64Bit: Boolean;// 2009.09.20 JAZZ __OverWindows7: Boolean;// 2010.07.12 JAZZ __OverWindows8: Boolean;// 2015.06.18 JAZZ __OverWindows10: Boolean;// 2020.01.20 JAZZ __InstanceFile: String; // Wow64 에서는 Redirect된 경로가 들어가니 주의할 것 __InstancePath: Strin..

unit LibOSVersion; interface uses Windows, SysUtils; {$IF CompilerVersion < 21} //Delphi 2010 - 21 //Delphi 2009 - 20 //Delphi 2007 - 18.5 //Delphi 2006 - 18 //Delphi 2005 - 17 //Delphi 8 - 16 //Delphi 7 - 15 //Delphi 6 - 14 type POSVersionInfoExA = ^TOSVersionInfoExA; POSVersionInfoEx = POSVersionInfoExA; _OSVERSIONINFOEXA = record dwOSVersionInfoSize: DWORD; dwMajorVersion: DWORD; dwMinorVersi..

unit LibModBusProtocol_RTU; interface uses Windows; type TModBus_RTUPacket = AnsiString; TModBus_RTUParam = AnsiString; function ModBusRTU_CheckPacketCRC(const Packet: TModBus_RTUPacket): Boolean; function ModBusRTU_MakePacket(SlaveAddress: BYTE; Func: BYTE; Param: Pointer; ParamLen: WORD): TModBus_RTUPacket; overload; function ModBusRTU_MakePacket(SlaveAddress: BYTE; Func: BYTE; Param: TModBus_..

unit LibExecuteEx; interface uses Windows, SysUtils, ShellApi, WinBase, WinNT, WTSApi32, StrUtils, UserEnv, LibLog, LibProcessToken; function EXEC_CreateProcess( ApplicationName : PChar; Parameter : PChar = nil; Directory : PChar = nil; AsUserToken: THandle = 0; WaitForInputIdle : Boolean = FALSE; WaitForTermination : Boolean = FALSE; WaitingThread : THandle = 0; EnvironmentBlock: Pointer = nil;..

unit LibProcessToken; interface uses Windows, SysUtils, WinNT, WinBase, Sddl, WTSApi32, TlHelp32, LibSystemConst, LibProcessInfo; function GetProcessHandle(Filename: String): THandle; // CloseHandle로 해제할것, Filename은 경로 미포함 function GetProcessToken(ProcessHandle: THandle): THandle;// CloseHandle로 해제할것 function GetCurrentProcessToken: THandle; // CloseHandle로 해제할것 function GetConsoleToken: THandle..