개발자를 위한 커닝페이퍼

unit LibProcessInfo; interface uses Windows, WinBase, SysUtils, TlHelp32, PSAPI; type TProcessFindProc = function (ProcessInfo : PProcessEntry32; UserPara : Pointer) : BOOL; stdcall; TModuleFindProc = function (ProcessID : DWORD; ModuleInfo : PModuleEntry32; UserPara : Pointer) : BOOL; stdcall; TProcessFindProcEx = function (ProcessInfo : PProcessEntry32; UserPara : Pointer) : BOOL of object; TM..

unit LibExecute; interface uses Windows, SysUtils, ShellApi, WinBase, WinNT, WTSApi32, LibLog, StrUtils; function EXECUTE_RunEx(ApplicationName : PChar; ProcessInfo : PProcessInformation; Parameter : PChar = nil; const Directory : PChar = nil; const WaitForInputIdle : Boolean = FALSE; const Show : Integer = SW_SHOW) : BOOL; function EXECUTE_Run(ApplicationName : PChar; Parameter : PChar = nil; c..

unit DefSocket; interface uses Windows, WinSock, Classes, LibThread; const SocketReader_BufferSize = 8192; type {$EXTERNALSYM TSocket} TSocket = u_int; const SIO_GET_INTERFACE_LIST = $4004747F; IFF_UP = $00000001; IFF_BROADCAST = $00000002; IFF_LOOPBACK = $00000004; IFF_POINTTOPOINT = $00000008; IFF_MULTICAST = $00000010; const {$EXTERNALSYM INVALID_SOCKET} INVALID_SOCKET = TSocket(NOT(0)); {$EX..