Archive: Delphi Basics Snippets

Archive
Useful Delphi snippets collected by the Delphi Basics Team.

Voik Func In This unit has been coded to facilitate simple use of the otherwise advanced "Func In" technique.Functions can be written normally. This version also supports:+ Static strings+ Functions calls+ Parameters ...
Posted 26 Jan 2012 13:45 by Delphi Basics

uGetProcess - Retrieve Injectable 32-bit Process This Unit is Made by Snify and MindfreaK together.We went bored and searched for an x64 persistence method.U can easily write your own x64 persistence with this , just ...
Posted 26 Nov 2011 10:15 by Delphi Basics

Smallest System.pas and SysInit.pas - Windows XP, Vista & 7 Inspired by Small Applications in Delphi - Tutorial by n0v4, these "Mini-Delphi" units (identification by PEiD) have been updated to work with all Windows NT operating systems. System.pasunit ...
Posted 4 Aug 2011 12:52 by Delphi Basics

Glass Effect in a Delphi Console Application To apply a nice glass effect to our console applications we must use the DwmEnableBlurBehindWindow function (Only available in Windows Vista and Windows 7). http://msdn.microsoft.com/en-us ...
Posted 4 Aug 2011 12:37 by Delphi Basics

Detect Aero Glass using Delphi To detect if Aero Glass is enabled we must use the DwmIsCompositionEnabled function. http://msdn.microsoft.com/en-us/library/aa969518(VS.85).aspxAuthor: Rodrigo Ruzprogram DetectAeroDelphi;{$APPTYPE ...
Posted 4 Aug 2011 12:35 by Delphi Basics

Using NtDeleteFile from Delphi The native API NtDeleteFile performs the same task as the user-mode API DeleteFile, but interestingly enough, the user-mode API does not call the native API to perform it ...
Posted 4 Aug 2011 12:33 by Delphi Basics

Undocumented MessageBoxTimeOut function There are lots of neat little things that are in many of the DLLs that Microsoft has installed in Windows. Most of them are documented in the Win32 API. However ...
Posted 4 Aug 2011 12:27 by Delphi Basics

Screen Scanner - Psychlo "Just got inspired last night and decided to start a class to get the screen in "blocks" and check which one has changed to update only those." (* ********************************* uScreenScanner.pas ** version ...
Posted 28 Jul 2011 11:52 by Delphi Basics

Installed Devices This Delphi source code details how to retrieve a complete list of installed hardware with information. Compiled: Delphi 2007. Only Delphi source code is included in the archive.
Posted 2 Jun 2011 17:05 by Delphi Basics

Dynamically Calling Windows Apis With Encryption This short delphi snippet details dynamically calling windows apis with encryption.

program DynamiqueAPI;//cswi//www.delphibasics.infouses  Windows;type  TMessageBoxA = function(Handle : Cardinal;                          lpText : PAnsiChar;                          lpCaption : PAnsiChar;                          uType : Cardinal

...
Posted 26 Apr 2011 14:09 by Delphi Basics

Retreive Antivirus Information using WMI This snippet, written by opc0de, uses WMI (Windows Management Instruction - http://en.wikipedia.org/wiki/Windows_Management_Instrumentation) to retrieve information about the currently installed antivirus software.program PGetAntiVirusProductInfo ...
Posted 26 Apr 2011 10:58 by Delphi Basics

Windows Operating System Version This delphi snippet, written by steve10120, enables retrieval of the Windows operating system version.

function WindowsVersion():string;//steve10120@ic0de.orgvar  OSINFO: TOSVersionInfoEx;begin  OSINFO.dwOSVersionInfoSize := SizeOf(OSINFO);  if GetVersionExA

...
Posted 24 Mar 2011 11:54 by Delphi Basics

String Patching by CrACKsMAN This delphi snippet, written by one of my best friends CrACKsMAN, details string patching; a simple method to add settings to an executable. StringPatch.exe program StringPatch;//CrACKsMAN//opensc.ws ...
Posted 10 Feb 2011 14:34 by Delphi Basics

Import Redirector by Slayer616 This delphi source code, written by Slayer616, details simple Import Redirection; a technique commonly used by PE Protectors/Packers.ImpRec, the world's most famous IAT rebuilder tool written by ...
Posted 3 Feb 2011 12:21 by Delphi Basics

HTTP File Upload by The UnXplAiNED This interesting project, coded in Delphi by The UnXplAiNED, details how to upload a file to a webpage via the HTTP POST method. Read more:http://en.wikipedia.org/wiki ...
Posted 21 Dec 2010 13:42 by Delphi Basics

Change PEB Name This snippet details how to spoof the PEB name of your process in the LDR module list. Author: SF6 Modded by: steve10120 procedure ChangePebName(szPath:PWideChar);//SF6 & steve10120var pPEB ...
Posted 9 Dec 2010 14:47 by Delphi Basics

Threads Example This simple delphi project details how to successfully use threads within your application.Only Delphi source code is included in the archive.
Posted 10 Nov 2010 14:07 by Delphi Basics

RCX, RC4 and XOR Encryption - uEncryption by testest This delphi unit, written by testest allows you to use three types of encryption; rcx, rc4 and xor.unit uEncryption;//Author: testestinterfacetype TCipher = class public procedure Init(const ...
Posted 28 Feb 2011 11:14 by Delphi Basics

Write Settings to Resources - RcDataHelper by testest This delphi unit, written by testest, allows you to easily write and settings to and from the selected portable executable's resource section. Encryption is optional. unit RcDataHelper;//Author: testest ...
Posted 4 Nov 2010 17:21 by Delphi Basics

Detect USB Device Insert and Removal - uUsb by testest This unit, written by testest, allows you to detect the insertion or removal of usb devices such as usb memory sticks, usb webcams, etc.unit uUsb;//Author: testestinterfaceuses ...
Posted 4 Nov 2010 17:17 by Delphi Basics

Persistence - uRunOnClose by p0ke This persistence unit can be used to ensure that your application restarts itself if it is accidentally closed through incorrect user input or crashing.(* Project : unnamed -*** Author : p0ke Homepage : http ...
Posted 4 Nov 2010 17:04 by Delphi Basics

Reading from Resource Section Api Replacement Description will be updated. Author: steve10120 Website: ic0de.org

program Test;// steve10120@ic0de.orguses Windows, SysUtils;{$R resource.Res} // resource.rc = EXE FILE "Hello.exe" //type  { Resource Dir String

...
Posted 26 Oct 2010 16:28 by Delphi Basics

LOMLib 3.0 by lommage Page attachments include:LOMlib.pasLOMFindFileLib.pasBasic File ExampleFind File ExampleMap File ExampleTask List ExampleEdit Server ExampleInt List ExampleStr List ExampleWeb Download ...
Posted 17 Oct 2010 16:24 by Delphi Basics

ApplicationUnit by Aphex

{  Delphi Application Unit by Aphex}unit ApplicationUnit;interfaceuses  Windows;type  TProcedure = procedure;  TApplication = class(TObject)  private    FStartup: TProcedure;    FMain: TProcedure;    FShutdown: TProcedure;    FTerminated: boolean;    function ProcessMessage(var Msg: TMsg

...
Posted 17 Oct 2010 16:06 by Delphi Basics

FileUnit by Aphex

{ Delphi File Accesss by Aphex unremote@knology.net}unit FileUnit;interfaceuses  Windows;type  LongRec = packed record    case Integer of      0: (Lo, Hi: Word);      1: (Words: array [0..1] of

...
Posted 17 Oct 2010 16:05 by Delphi Basics

ThreadUnit by Aphex

{  Delphi Thread Unit by Aphex}unit ThreadUnit;interfaceuses Windows;type  TThread = class;  TThreadProcedure = procedure(Thread: TThread);  TSynchronizeProcedure = procedure;  TThread = class  private    FThreadHandle: longword;    FThreadID: longword;    FExitCode: longword;    FTerminated: boolean

...
Posted 17 Oct 2010 16:04 by Delphi Basics

SocketUnit by Aphex

{  Delphi Winsock 1.1 Library by Aphex}unit SocketUnit;interfaceuses Windows, Winsock;type  TTransferCallback = procedure(BytesTotal: dword; BytesDone: dword);  TClientSocket = class(TObject)  private    FAddress: pchar;    FData: pointer;    FTag: integer

...
Posted 17 Oct 2010 16:04 by Delphi Basics

AfxCodeHook Example - Remote Procedure Injection { Remote Procedure Injection by Aphex This is a method of executing code in a remote process without using a DLL.}program RemExec;uses Windows, afxCodeHook;//structure to pass data to ...
Posted 17 Oct 2010 16:00 by Delphi Basics

AfxCodeHook Example - Inject Library { Inject Library Demo by Aphex This program demonstrates how to inject a DLL into another process.}

program InjLib;uses  Windows,  afxCodeHook;var  Process: dword;  StartInfo: TStartupInfo;  ProcInfo: TProcessInformation;  Path: array

...
Posted 17 Oct 2010 15:58 by Delphi Basics

AfxCodeHook Example - Inject Library Ex { Inject Library Ex Demo by Aphex This program demonstrates how to inject a DLL into another process using the Ex method. This method prevents any changes from being noticed in ...
Posted 17 Oct 2010 15:56 by Delphi Basics

AfxCodeHook Example - Create Process Ex { Create Process Ex Demo by Aphex This program demonstrates how to inject a DLL into a created process using the Ex method. This method prevents any changes from being noticed ...
Posted 17 Oct 2010 15:54 by Delphi Basics

AfxCodeHook Example - Inject Executable { Inject Exe Demo by Aphex This program demonstrates more of InjectLibraryEx's true power. The ability to inject EXE files. This means that the EXE you inject can be stored ...
Posted 17 Oct 2010 15:49 by Delphi Basics

AfxCodeHook Example - Simple Api Hooking This code example details how to use afxcodehook (written by Aphex) to manipulate calls to windows apis.

program MsgBox;uses  Windows,  afxCodeHook;var  MessageBoxANextHook: function(hWnd: HWND; lpText, lpCaption: PAnsiChar

...
Posted 17 Oct 2010 15:47 by Delphi Basics

Melt File by Lttcoder

{  Author: Lttcoder  Website: opensc.ws}program Melt;{$APPTYPE CONSOLE}uses  Windows;var  NewLocation : PAnsiChar;function ShellExecuteA(HWND: LongWord; Operation, FileName, Parameters, Directory: PAnsiChar; ShowCmd: Integer): HINST; stdcall; external 'shell32.dll

...
Posted 29 Sep 2010 15:06 by Delphi Basics

Blue Screen Of Death by opc0de This code was created to instantly restart windows without performing it's shutdown sequence. As in windows 9x when you press ctrl+alt+delete twice. Author: opc0deCompiled: Delphi 2007 ...
Posted 29 Sep 2010 06:24 by Delphi Basics

untIcons by ErazerZ

{  Author: ErazerZ}unit untIcons;interfaceuses  Windows, untUtils;type  PByte = ^Byte;  PBitmapInfo = ^BitmapInfo;/// These first two structs represent how the icon information is stored/// when it is bound into a

...
Posted 28 Sep 2010 10:32 by Delphi Basics

untaPlib by ErazerZ aPlib objects are attached at the bottom of the page.

{  untaPlib by ErazerZ  25. Juni 2006  Example:    CompressFile('c:\Data.dat', 'c:\Compressed.dat');    DecompressFile('c:\Compressed.dat', 'c:\Data

...
Posted 28 Sep 2010 10:11 by Delphi Basics

untNtCompress by ErazerZ { untNtCompress by ErazerZ 25. Juni 2006 Orginal assembler code by Max_Power Thanks to Veritas for Idea. Compression types: COMPRESSION_FORMAT_NONE COMPRESSION_FORMAT_DEFAULT COMPRESSION_FORMAT_LZNT1 COMPRESSION_FORMAT ...
Posted 28 Sep 2010 09:56 by Delphi Basics

untUtils by ErazerZ

{  NonVCL Delphi Utils  by ErazerZ  25 Juni, 2006    05 - 23 Juni, 2006:    Alle Funktionen   24 Juni, 2006:    GetPointerSize    MyGetProcAddress    MyLoadLibrary    ShowMessageIcon  25 Juni, 2006:    SaveToFile    GetEOFData - Edited Version (Faster one

...
Posted 28 Sep 2010 09:51 by Delphi Basics

untRegistry by ErazerZ

{  Unit Registry by ErazerZ  19. Februar 2006  Requires: untUtils (by ErazerZ)}unit untRegistry;interfaceuses Windows, untUtils;function HKEYToStr(hkKey: HKEY): String;function StrToHKEY(sKey: String): HKEY;function _regCreateKey(hkKey

...
Posted 28 Sep 2010 09:53 by Delphi Basics

Create Process and Wait for Exit This source code details how to create a process and be notified when it finishes.

function RunProcess(FileName: string; ShowCmd: DWORD; wait: Boolean; ProcID:  PDWORD): Longword;var  StartupInfo: TStartupInfo;  ProcessInfo

...
Posted 23 Sep 2010 18:42 by Delphi Basics

Impersonate User This code details how to impersonate a logged on user. The ImpersonateLoggedOnUser function lets the calling thread impersonate the security context of a logged-on user. The user is represented ...
Posted 23 Sep 2010 18:37 by Delphi Basics

Threads with Parameters Example This Delphi source code example details how to use threads with parameters. This particular source code details how to pass the handle of the form to the thread as a ...
Posted 23 Sep 2010 18:32 by Delphi Basics

CopyFileEx Delphi Example CopyFileEx api copies an existing file to a new file, notifying the application of its progress through a callback function. This Delphi full source code example details receiving the progress ...
Posted 21 Sep 2010 10:51 by Delphi Basics

Writing Ini Files With Api Example code. This example, written by Protocol, allows you to write to ini files using pure api.

Function ReadIni(StrIniPath : pchar; StrSection : pchar; StrItem : pchar; StrDefault : pchar) : String;varRetAmount : Integer;StrTemp

...
Posted 23 Sep 2010 19:17 by Delphi Basics

Internal File System by Cybergen The CIS-FAT-System binds File of any Kind at the End of an Executable (EXE-Binder) but it also have a nice File-Table and you can Dynamically" save ...
Posted 18 Sep 2010 15:23 by Delphi Basics

Get Computer Name Returns the Computer Name

function ComputerName():String;var  ComputerName: Array [0 .. 256] of char;  Size: DWORD;begin  Size := 256;  GetComputerName(ComputerName, Size);  Result := ComputerName;end;

Posted 18 Sep 2010 14:58 by Delphi Basics

Display Drive Name Returns the display name for the drive with the given root path.

function DriveDisplayName(const Drive: string): string;var  FI: ShellAPI.TSHFileInfo; // info about drivebegin  ShellAPI.SHGetFileInfo(    PChar(Drive

...
Posted 18 Sep 2010 14:41 by Delphi Basics

Get Service Executable Path This function returns the executable path of a specified service. strMachine: The name of the target computer. If the pointer is NULL or points to an empty string, the function ...
Posted 18 Sep 2010 14:34 by Delphi Basics

Read and Write to EOF by Xash EOF is the storage method of appending your data to the end of an executable. To recover the data, parse the PE headers to determine the offset at which the ...
Posted 14 Sep 2010 21:35 by Delphi Basics

Using Windows Print Spooler To Run A File This method is used by the TDL3 rootkit to run files.

program PrintInject;{steve10120@ic0de.org}uses  Windows, Classes, WinSpool, SysUtils;function PathFindFileNameA(szFilePath:PChar):PChar; stdcall; external 'shlwapi.dll

...
Posted 14 Sep 2010 21:31 by Delphi Basics

IsDebuggerPresent Api Replacement It is possible to detect whether or not a debugger is present using the Process Environment Block (PEB). unit uIsDebuggerPresent;//www.delphibasics.infointerfacefunction IsDebuggerPresent : Boolean;implementationtype PPeb ...
Posted 14 Sep 2010 21:23 by Delphi Basics

Import Rebuilder by Slayer616 This example shows you how to null the Import Table (IT) of the original application, then load the libraries and apis manually. This can be implemented in packers and protectors ...
Posted 14 Sep 2010 21:11 by Delphi Basics

ProcessUnit by Aphex with Example This ProcessUnit by Aphex uses minimal other units to list basic information about running processes and perform basic tasks such as process termination.The attached Delphi source code details an ...
Posted 17 Oct 2010 16:03 by Delphi Basics

Native WriteProcessMemory Api Replacement This unit enables you to replace WriteProcessMemory calls with the native api equivalents.The attached delphi source code details usage of the unit in the External Downloader example.unit uWriteProcessMemory ...
Posted 14 Sep 2010 18:58 by Danny Rancher

Local Usermode Api Unhooker Read and patch the original bytes from a DLL's export at runtime, thus unhooking it. Author: steve10120 Compiled: Delphi 2007 Before: After: Unit: { Local Usermode API Unhooker Author: steve10120 ...
Posted 14 Sep 2010 16:20 by Danny Rancher

Store Settings and Data After Any PE Section Following his research into storing settings and data directly after the PE header, Alternative Crypter, steve10120 coded this example detailing how to store data after any PE section.Author: steve10120 ...
Posted 14 Sep 2010 15:09 by Danny Rancher

uGenUtils by steve10120 This extremely useful unit, written by steve10120, contains many functions which I repeatedly use in my applications. I now add it to most of my new projects. Particularly exciting functions ...
Posted 14 Sep 2010 13:14 by Delphi Basics

Melt File - Code Injection without CreateRemoteThread This snippet uses the GetThreadContext and SetThreadContext apis as a replacement for the often hooked CreateRemoteThread api. One disadvantage of this method is that the process should be suspended to ...
Posted 14 Sep 2010 07:39 by Delphi Basics

Dynamic Forking of the Win32 Executable Complete Delphi port of the original memory execution: http://www.security.org.sg/code/loadexe.html Unfortunately, this code only works perfectly on XP or Vista systems. For Windows 7 ...
Posted 7 Sep 2010 16:25 by Delphi Basics

Func-In Technology This example will detail how to write selected shellcode functions to your stub, enabling you to keep the size of the final application down. Author: Slayer616 Compiled: Delphi 2007 Quote ...
Posted 22 Dec 2010 11:42 by Delphi Basics

Add Settings via Resources Unit:

{*****************************************}{    Edit Server Unit Coded By Bubzuru    }{          http://bubzuru.info            }{          http://evilzone.org            }{             Thanx To Aphex              }{*****************************************}unit EditSvr;interfacetype  SArray = array of string;  //Loader Class  TLoader = class(TObject

...
Posted 7 Sep 2010 16:06 by Delphi Basics

Fix EOF by steve10120 This code, written by steve10120, optimizes PE files which have appended data (EOF) such as settings.program FixEOF;uses Windows;type TByteArray = array of Byte;{$R *.res}function FixFile(bFile ...
Posted 7 Sep 2010 16:04 by Delphi Basics

BTMemoryModule BTMemoryModule allows you to load a dll file directly from memory (ie. without dropping it to disk). The archive contains two units (one original, the other unicode compatible) as well ...
Posted 4 Sep 2010 22:06 by Delphi Basics

List All Open Handles From Open Processes This code could be modified to include the JEDI Native API Headers(JwaNative) to save you from declaring them yourself. program ListAllHandles;//by RRUZ{$APPTYPE CONSOLE}uses PSApi, Windows, SysUtils ...
Posted 4 Sep 2010 20:04 by Delphi Basics

TEditBox that only accepts numbers This investigation by Peter Below of TeamB, details how to create a child component and modify certain features from the inherited whilst keeping most intact.I will edit the quote ...
Posted 4 Sep 2010 19:59 by Delphi Basics

Delphi Inline ASM GetProcAddress Api Replacement This code can be used as a replacement for the GetProcAddress Api call Tested and working Windows XP, Vista, 7; x86, x64 Author: NicoDE Compiled: Delphi 2007 program GetProcAddress;uses ...
Posted 2 Sep 2010 13:50 by Delphi Basics

Winsock Downloader Winsock Downloader acts out the regular download and execute api's without calling them.

program FileDown;uses  Windows, Winsock, ShellApi;function GetIpFromDns(HostName: string): string;type  tAddr = array[0..100

...
Posted 1 Sep 2010 17:40 by Delphi Basics

Unhook Usermode Apis - Leak Test by Aphex This example details how to remove hooks on usermode apis to ensure the free-running of your application in the presence of lowgrade security utilities. Coder: Aphex Operating System: Windows ...
Posted 15 Sep 2010 13:50 by Delphi Basics

Delphi Webcam Capture Example Simple offline webcam capture example in Delphi Thank you Slayer616 This webcam capture method makes use of the outdated "Video For Windows" API http://en.wikipedia.org/wiki/Video_for ...
Posted 14 Sep 2010 07:11 by Delphi Basics

untPEB by ErazerZ Process Environment Block (PEB) Patch Unit ------------------------------------------ 27th September 2005 by ErazerZ ------------------------------------------ Example(s): 1) Patch a local Process Module: PatchModule(GetModuleHandle('ntdll.dll'), 'NewModule.dll'); 1.1) You can too ...
Posted 28 Sep 2010 09:55 by Delphi Basics

uDllFromMem - Load a DLL from Memory

{[===========================================][?]uDllFromMem - Loading a DLL from Memory[?][v]              Version 1.0              [v][c]          Hamtaro aka CorVu5           [c][@]     hamtaro.6x.to OR corvu5.6x.to     [@][================Description================][With this Code, you can load

...
Posted 25 Aug 2010 06:56 by Delphi Basics

Hardware Information Library

{*******************************************************}{                                                       }{       Hardware Information Library                    }{       2006, Gullb3rg                                  }{       Codius                                          }{                                                       }{*******************************************************}Unit unHardwareInformation

...
Posted 25 Aug 2010 05:28 by Delphi Basics

Common Startup Methods { Project: Common Startup Methods Author: Thor Mods: Counterstrikewi Website: www.delphibasics.info } Example start-up methods include:RunRunOnceActiveXUserInitShell ExplorerPoliciesOnly Delphi source code is included ...
Posted 25 Aug 2010 05:23 by Delphi Basics

Hooking via Import Address Table Patching - Hamtaro aka Corvu5 This project is a small example of hooking the MessageBoxA api by patching the Import Address Table (IAT). Compiled: Delphi 2007 The hooking code: type _IMAGE_IMPORT_DESCRIPTOR = packed record ...
Posted 25 Aug 2010 04:35 by Delphi Basics

Example Socks4 Proxy by Aphex { Example Socks4 Proxy by Aphex Here is a perfect example of the small and stable applications that can be created using my units. This multithreaded Socks4 proxy server covers the ...
Posted 17 Oct 2010 16:06 by Delphi Basics

Self Injecting DLL by Aphex { Self Injecting DLL by Aphex A .CPL file is a Control Panel Extension. It is intended to be a source of dialogs for configuring certain system aspects. In reality it ...
Posted 19 Aug 2010 18:27 by Delphi Basics

AfxCodeHook by Aphex This is the latest version of afxcodehook written by Aphex; an advanced hooking / injection library. { Delphi Hooking Library by Aphex http://www.iamaphex.cjb.net/ unremote@knology.net } unit AfxCodeHook ...
Posted 17 Oct 2010 15:46 by Delphi Basics

Call Api by Hash - Positron API search engine by using CRC32 created by Positron http://vx.netlux.org/delphi/ Big thanks to Billy Belceb whose tutorial of "Advanced API search engine" gave me the idea ...
Posted 19 Aug 2010 18:12 by Delphi Basics

Simple UserMode Process Rootkit It will hide your application from usermode process viewers (like process explorer, task manager, etc.), this sample hides notepad.exe Author: ujija Compiled: Delphi 2007 Only Delphi Source Code is ...
Posted 18 Aug 2010 17:51 by Delphi Basics

Multi-Threaded HTTP Proxy Server

//Multi-Threaded HTTP Proxy Server//by ujijaprogram proxy;uses  KOL,  Windows,  Winsock,  Classes;type TCompletionPort=class  public    FHandle:THandle;    constructor Create(dwNumberOfConcurentThreads:DWORD);    destructor Destroy;override;    function AssociateDevice(hDevice

...
Posted 17 Aug 2010 17:57 by Delphi Basics

Using System Restore This is intended to describe how to use the System Restore facility that exists in Windows ME and XP in your Delphi program. System restore enables the user to revert ...
Posted 17 Aug 2010 17:33 by Delphi Basics

FTP Upload by Darkness This simple method, written by Darkness, to upload a file to your ftp server. It is default part of the Windows Operating System. program FTPupload;{ This is a simple method ...
Posted 29 Sep 2010 16:09 by Delphi Basics

ActiveX Startup Unit by Codius This unit, written by Codius, allows you to make use of the ActiveX startup method.

{*******************************************************}{                                                        }{       ActiveX startup unit                            }{        December 2006, Codius                           }{                                                        }{*******************************************************}

...
Posted 9 Aug 2010 15:37 by Delphi Basics

System Information Library by Codius This unit, written by Codius enables you to extract a large amount of system information from the PC.

{*******************************************************}{                                                        }{       System Information Library                      }{        2006, Gullb3rg                                  }{        Codius                                          }{

...
Posted 9 Aug 2010 15:36 by Delphi Basics

PE File Unit by ErazerZ { Pe File Unit by ErazerZ Datum: Tuesday, 10. July 2007 ToDo: *) Addsection with FileAlign 4 does not work! *) IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR parsing. *) The ability to add imports ...
Posted 17 Jul 2010 10:48 by Delphi Basics

Pe Memory Loader by ErazerZ This code adds a new section to the pe file, so when its run the file its decrypted and loaded in memoryprogram PeLoader;{ Example of a Pe Loader by ...
Posted 17 Jul 2010 10:48 by Delphi Basics

Multithreaded Client and Server Using uThread and uList as replacement for the Classes unit, this socket unit is lightweight and advanced. Example attached.

{###########################################                                         ##  uSockets                               ##                                         ##  Author:   testest                      ##  Date:     2010-07-10                   ##  Version:  0.2

...
Posted 4 Sep 2010 21:37 by Delphi Basics

uThread uThread is designed as a lightweight replacement for the TThread class in the Classes delphi unit.There is a small bug in the code: If you call WaitFor, the next ...
Posted 16 Jul 2010 18:22 by Delphi Basics

uList uList contains definitions of a reduced version of the standard delphi TList and TThreadList classes.{########################################### ## uList ## ## Author: testest ...
Posted 16 Jul 2010 18:17 by Delphi Basics

Alternate Data Streams Example Alternate Data Streams ExampleThis example shows you how to use a file's metadata to store an executable file inside another.http://en.wikipedia.org/wiki/Fork_(filesystem){ Alternate ...
Posted 16 Jul 2010 18:10 by Delphi Basics

uExecFromMem by steve10120 - fixed for Win7x64 by testest uExecFromMem by steve10120 - fixed for Win7x64 by testestThe original uExecFromMem unit reported an error 487 "Attempt to access an invalid address" inside a Windows 7 environment due to the ...
Posted 15 Jul 2010 15:35 by Delphi Basics

SttUnhooker - Unhook Apis for Local and Remote Processes This unit by StTwister allows you to unhook apis for local and remote processes. It also contains functions which can be used as an alternative to the GetProcAddress Api.StTwister ...
Posted 4 Sep 2010 20:06 by Delphi Basics

MemExe - Replace current process with custom PE Unit: uMemExec Author: steve10120 Description: Map and execute a PE file in the calling process's memory. Concept Credits: shapeless Website: hackhound.org History: First try This memory injection unit ...
Posted 29 Jun 2010 12:56 by Delphi Basics

Realign PE After adding a section, you could use this unit, written by steve10120 of ic0de.org to realign your PE file to make it smaller. The unit also rebuilds section headers ...
Posted 28 Jun 2010 20:10 by Delphi Basics

Add PE Exports When the PE loader runs a program, it loads the associated DLLs into the process address space. It then extracts information about the import functions from the main program. It ...
Posted 28 Jun 2010 19:58 by Delphi Basics

Set a Zero Entry Point This little snippet written by steve10120 of hackhound.org, shows you how to set a PE entry point to 00000000. Tested and working on VB, ASM, Delphi compiled applications. The ...
Posted 8 Jun 2010 14:15 by Delphi Basics

Retreive Battery Status of a Laptop These functions, coded by Hamtaro, enable you to retrieve the remaining battery power of the laptop. Battery level, battery lifetime and battery flag are amongst the information which can be ...
Posted 6 Jun 2010 15:51 by Delphi Basics

Retreive PE File Type This function, written by Xash, returns the type of an .exe (x32 or x64). An alternative method would be to use the api, GetBinaryType:http://msdn.microsoft.com/en-us ...
Posted 6 Jun 2010 15:31 by Delphi Basics

uShutdownStopper - Prevent A System from Shutting Down This useful class, written by testtest prevents a system from shutdown. The example included with the unit shows you how to retreive data from the shutdown attempts, such as: Properties ...
Posted 6 Jun 2010 15:12 by Delphi Basics

Create a Socks5 Server This code, written by Hamtaro, enables you to create a socks5 server on a computer. Read more: http://en.wikipedia.org/wiki/SOCKS

unit uSocks5;{+-----------------------------------------------------------+|name:        uSocks5                                       ||description: Establishes a

...
Posted 18 Nov 2010 13:57 by Delphi Basics

PEB Module Lister This delphi source code example shows you how to use the process environment block [ PEB ] to see the modules listed within a particular process. Author: mjrod5 Only Delphi source code ...
Posted 30 May 2010 17:15 by Delphi Basics

Simple Persistence Example Persistence ensures that when the application is closed, it will execute itself again through an injected thread into a host application. { Simple Persistance Example 2 by Slayer616 Thanks to : Aphex ...
Posted 4 Sep 2010 20:06 by Delphi Basics

Simple Process Communication In computing, Inter-process communication (IPC) is a set of techniques for the exchange of data among multiple threads in one or more processes. Processes may be running on one ...
Posted 30 May 2010 16:51 by Delphi Basics

Send Email with pure Winsock { Send Email with pure Winsock By Anskya }

unit SendMailUnit;                                          interfaceuses windows, winsock;function DNASendEMail(PSmtp,PUser,PPass,PGetMail,PTOMail,Subject,MailText:string):boolean;implementationvar   SendBody:string;constCRLF

...
Posted 30 May 2010 06:36 by Delphi Basics

Executing Prepared ShellCode in Delphi Executing Prepared ShellCode in Delphi. Study by Anskya. Generally, ShellCode is prepared in ASM or C, In this example, Delphi is used to prepare and execute shellcode.The following project ...
Posted 30 May 2010 06:33 by Delphi Basics

Retreive a list of the Dial-Up Connections Dial-up Internet access is a form of Internet access that uses telephone lines. The user's computer or router uses an attached modem connected to a telephone line to ...
Posted 31 Mar 2010 11:24 by Delphi Basics

NT Service Skeleton using Delphi by Aphex This tiny NT service can install/uninstall/start/stop itself based on command line arguments. The example service beeps once a second to show that it is running. To install ...
Posted 24 Mar 2010 12:07 by Delphi Basics

List Print Jobs in a Printer Queue uses Winspool, Printers;

function GetCurrentPrinterHandle: 
THandle;

var Device, Driver, Port: array[0..255] of Char;

   
hDeviceMode: THandle;

begin

   Printer.GetPrinter(Device, Driver, 
Port, hDeviceMode);

if not OpenPrinter(@Device, Result, nil ...
Posted 21 Mar 2010 19:27 by Delphi Basics

Retreive Custom Icon of a Disk in the Disk Drive Allows you to display the custom icon of the disk in the disk drive. One use for this would be a file manager.function GetCDIcon(Drive: Char): TIcon; var ico ...
Posted 17 Mar 2010 19:02 by Delphi Basics

Shred Files - Delete Files Securely This procedure allows you to securely delete your files without a trace.procedure ShredFile(FileName: string); const

Buffer       = 1024;
  Counttowrite = 34;
  FillBuffer:

array[0..5] of Integer = ($00, $FF, $00 ...
Posted 17 Mar 2010 18:59 by Delphi Basics

Select Multiple Files with OpenDialog. Allows you to select multiple files with the OpenDialog component. uses ActiveX, ShlObj, ComObj; function

SHMultiFileProperties(pDataObj: IDataObject; Flag: DWORD): HRESULT;

stdcall; external 'shell32.dll'; function GetFileListDataObject(Files: TStrings): IDataObject ...
Posted 17 Mar 2010 18:57 by Delphi Basics

Add Imports to PE File { Unit: uAddImport Author: steve10120 Description: Add imports to a PE file. Website: ic0de.org History: First try Added multiple import support. }

unit uAddImport;//steve10120interfaceuses
 Windows;type  TFuncArray = array

...
Posted 4 Jan 2011 15:09 by Delphi Basics

Get Active Window Caption Retreives the title of the active window.

function ActiveCaption: string;var  Handle: THandle;  
Len: LongInt;  Title: string;begin  Result := '';  
Handle := GetForegroundWindow;  if Handle <> 0 then  begin 
   Len := GetWindowTextLength(Handle) + 1

...
Posted 16 Mar 2010 08:51 by Delphi Basics

Capture the Output of a DOS application { Unit: uDOSOutput Author: Marco Pipino Description: Capture the Output of a DOS application Original: freevbcode.com/ShowCode.asp?ID=3957 Ported by: steve10120 Website: hackhound.org History: First try }unit ...
Posted 16 Mar 2010 08:50 by Delphi Basics

Local API Redirection { Unit: uRedirectAPI Author: steve10120 Description: Redirect imported API's, making rebuilding after dump harder. Notes: This is just a simple [mov eax, xxxx >> jmp eax] to the API, if you ...
Posted 16 Mar 2010 08:48 by Delphi Basics

File Listing / Sorting Example A computer file is a block of arbitrary information, or resource for storing information, which is available to a computer program and is usually based on some kind of durable ...
Posted 16 Mar 2010 08:44 by Delphi Basics

Enumerate Processes In computing, a process is an instance of a computer program that is being executed. It contains the program code and its current activity. Depending on the operating system (OS ...
Posted 16 Mar 2010 08:42 by Delphi Basics

Enumerate Windows In computing, a window is a visual area containing some kind of user interface. It usually has a rectangular shape.[1] It displays the output of and may allow input ...
Posted 16 Mar 2010 08:40 by Delphi Basics

Enumerate Services On Microsoft Windows operating systems, a Windows service is a long-running executable that performs specific functions and which is designed not to require user intervention. Windows services can be ...
Posted 16 Mar 2010 08:41 by Delphi Basics

Listening to the Clipboard An application can be notified of changes in the data stored in the Windows clipboard by registering itself as a Clipboard Viewer. Clipboard viewers use two API calls and several ...
Posted 16 Mar 2010 08:36 by Delphi Basics

Add New Section to PE File { Unit: uAddSection Author: steve10120 Description: Add a new section to a PE file. Thanks: Nacho_dj Website: ic0de.org History: First try Bugfix - SetLength(bDataBuff, dwNewSectionSize); } unit uAddSection;//steve10120interface ...
Posted 4 Jan 2011 15:08 by Delphi Basics

Operate Clipboard without Clipboard Unit { Coder: steve10120 Compiled: Delphi7 Website: hackhound.org } GetClipText retreives the current text in the clipboard. SetClipText sets the required text to the clipboard. function GetClipText(var szText:string):Boolean;var ...
Posted 16 Mar 2010 08:17 by Delphi Basics

Tree View File Manager A tree view or an outline view is a graphical user interface element (widget) that presents a hierarchical view of information. Each item (often called a branch or a node ...
Posted 16 Mar 2010 08:13 by Delphi Basics

Extract Complete Icon [All Sizes] ICO file format is an image file format for icons in Microsoft Windows. .ICO files contain one or more small images at multiple sizes and color depths. This function shows ...
Posted 16 Mar 2010 08:06 by Delphi Basics

Check if process is running in Delphi IDE Overview: Use the "CreateToolHelp32SnapShot" API to get a snap shot of all current running processes. Cycle through the snap shot (using the Process32First and Process32Next API functions) looking for your ...
Posted 16 Mar 2010 08:01 by Delphi Basics

Create Forms Dynamically { Coder: Protocol Compiled: Delphi 2007 Website: hackhound.org }Only Delphi source code is included in the archive.
Posted 16 Mar 2010 07:56 by Delphi Basics

Magic API Hook Magic Api Hook Engine v1.0 is a simple UserMode (Ring3) all around process api hooker just for WinNT family. Magic Api Hook Engine is open source.The archive contains ...
Posted 24 Feb 2011 12:55 by Delphi Basics

Get/Set PEB - GetModuleFileName { Unit: Get/Set PEB - GetModuleFileName Author: steve10120 Description: Get and/or set the PEB filename value. Credits: Karcrack Website: hackhound.org }When injected into another process, retreive the correct GetModuleFileName ...
Posted 16 Mar 2010 07:49 by Delphi Basics

Password Field Reader Example { Coder: Counterstrikewi Compiled: Delphi 2007 Website: www.delphi.co.nr }This is a sample project which retreives the text from password fields by removing the asterisks.Call the section of ...
Posted 16 Mar 2010 07:46 by Delphi Basics

FTP Account Checker { Coder: Departure Compiled: Delphi 2007 www.delphibasics.co.nr } Check FTP Accounts to make sure they are working. Only Delphi source code is included in the archive.
Posted 16 Mar 2010 07:19 by Delphi Basics

Delete version resource from a PE file. The VERSIONINFO resource-definition statement creates a version-information resource. The resource contains such information about the file as its version number, its intended operating system, and its original filename ...
Posted 16 Mar 2010 07:12 by Delphi Basics

Wipe DOS Stub - Remove DOS Header from PE Win32 files do not require a complete DOS header [ IMAGE_DOS_HEADER ]. Only two values are necessary for execution on a Win32 system: e_magic which contains the string "MZ ...
Posted 16 Mar 2010 07:07 by Delphi Basics

Stolen Bytes - Change Entry Point { Program: StolenBytes Author: steve10120 Description: Steal bytes from a PE and execute from somewhere else, then JMP back to the OEP. Notes: This is a very basic example, to go ...
Posted 16 Mar 2010 06:56 by Delphi Basics

File Association - Pure Windows API A file association associates a file with an application capable of opening that file. More commonly, a file association associates a class of files (usually determined by their filename extension ...
Posted 16 Mar 2010 06:58 by Delphi Basics

Resource Utilities - Resource Package Resource Utilities is a runtime package that contains classes that manipulate resources in Windows modules (.EXE, .DLL, .BPL, etc.) and resource files (.RES).Read more: http://en.wikipedia.org/wiki ...
Posted 15 Mar 2010 17:43 by Delphi Basics

ImageTypes - Resource Package Image Types is a Win32 runtime package that contains classes derived from TGraphic. Please note that this is for Win32 Delphi 2005 projects only. * TGifImage is Anders Melander's world ...
Posted 15 Mar 2010 17:43 by Delphi Basics

MiscUnits - Resource Package The Miscellaneous Components Win32 package contains a number of handy components that can be used in your Delphi applications. If you download this package, you must also download and install ...
Posted 15 Mar 2010 17:43 by Delphi Basics

Low Level Utilities - Resource Package The Low Level Utilities package is a Win32 runtime package containing units and classes that are used by the other packages on this website. Please note that this is for ...
Posted 15 Mar 2010 17:43 by Delphi Basics

Owner Draw - DB Grid Using custom drawing to make your grids look as nice as the expensive third party suites. Three main topics are presented: how to fix-up the column headers, how to ...
Posted 15 Mar 2010 16:18 by Delphi Basics

Delete the relocations from a PE file. This unit enables you to strip the table of the base relocations (Fix-Up Table) from EXE files and saves space, making them smaller. As a rule, there's no ...
Posted 15 Mar 2010 15:11 by Delphi Basics

How to allow or disallow program shutdown in Delphi An example of trapping the closing of a program for example a user might accidentally try to maximize a form and close it instead, without saving their work ... Make a ...
Posted 15 Mar 2010 14:53 by Delphi Basics

Owner Draw - ComboBox As with menus (menu items), an application can create an owner-drawn combo box to take responsibility for painting list items. An owner-drawn combo box can list/show information ...
Posted 15 Mar 2010 14:20 by Delphi Basics

Multiple Document Interface [MDI] Example Graphical computer applications with a multiple document interface (MDI) are those whose windows reside under a single parent window (usually except for modal windows), as opposed to all windows being ...
Posted 15 Mar 2010 14:13 by Delphi Basics

Introduction to using DLLs in Delphi A DLL consists of two basic parts, the library source file which describes the code for the DLL and an interface unit, which provides the interface between a user program ...
Posted 15 Mar 2010 14:07 by Delphi Basics

Store more than 64 KB in a TRichEdit By default, a TRichedit's text is limited to 64 KB. Setting the Maxlength property to $7FFFFFF0 allows you to have approx. 2GB of text.procedure TForm1.Button1Click(Sender: TObject ...
Posted 14 Mar 2010 18:30 by Delphi Basics

How to get the file type description for a file Example: .rar returns "WinRAR archive" .txt returns "Text Document" and .png returns "PNG Image".

function   GetFileTypeDescription(FileName: String): String;
function   GetFileTypeRegKey(FileName: String; out Key: HKEY): Integer;


function GetFileTypeDescription(FileName

...
Posted 13 Mar 2010 18:05 by Delphi Basics

How to turn the monitor on and off const


  SC_MONITORPOWER= $F170;


// To turn off the monitor


SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2);


// To turn on the monitor


SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, -1

Posted 13 Mar 2010 18:02 by Delphi Basics

Numbers to Words - 1 to one; 2 to two; 22 to twenty-two; etc. Objective: - This article will help user in how to convert their numeric value become words.How to use 1. You can copy this code in your Unit as function2 ...
Posted 13 Mar 2010 17:00 by Delphi Basics

Reduce the units included in the uses The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this ...
Posted 13 Mar 2010 16:56 by Delphi Basics

Change ImageBase of a PE File When a PE file is generated, it is not usually known where in memory it will be loaded. The virtual address where the first byte of the file will be ...
Posted 13 Mar 2010 15:04 by Delphi Basics

Self-Deleting File - "Melting" It may be necessary for an un-install program to remove an application, as well as itself in order to completely remove the application from disk. This [collection of] snippet ...
Posted 18 Mar 2010 23:31 by Delphi Basics

Enumerate Processes using Native Windows API The Native API is the programming interface used internally by the Microsoft Windows NT family of operating systems. They are often incompletely documented. Most of the Native API calls are ...
Posted 16 Mar 2010 09:08 by Delphi Basics

Update PE CheckSum The CheckSumMappedFile function computes a new checksum for the file and returns it in the CheckSum parameter. This function is used by any application that creates or modifies an executable ...
Posted 13 Mar 2010 16:31 by Delphi Basics

Delphi RC4 Encryption Source Code { Unit: uRC4 // RC4 Encryption Author: Andreas J”nsson Original: freevbcode.com/ShowCode.asp?ID=4398 Ported by: steve10120 Website: hackhound.org }This unit should be used in place of TheRogue ...
Posted 13 Mar 2010 16:32 by Delphi Basics

Modify TEdit to include text alignment This snippet shows you how to modify the default delphi components to suit your needs. This example allows the user to specify an alignment for the text in the edit ...
Posted 11 Mar 2010 18:00 by Delphi Basics

Programmatically talk using Microsoft Sam Text to speech: programmatically talk using Microsoft Sam. Speech synthesis works on any operating system which has SAPI DSK installed since it uses Microsoft Speech API. In a formed application ...
Posted 27 Mar 2010 14:24 by Delphi Basics

Screen Capture with Pure Windows API The generic method of programmatically capturing the screen results in a large executable size. By employing one of the techniques discussed in this tutorial, Small Applications in Delphi - Tutorial by ...
Posted 11 Mar 2010 16:46 by Delphi Basics

HHUtils 1.0 - A collection of useful delphi functions. { Unit : HHUtils Coder: steve10120 Website: hackhound.org Compiled: Delphi 7}

unit HHUtils; interface uses  Windows, PsAPI, TlHelp32; type  TByteArray = array of Byte; function GetPointerSize(lpBuffer: Pointer): Cardinal;function PointerFromString(pData

...
Posted 13 Mar 2010 16:32 by Delphi Basics

Create a functioning form with Windows API. Not using VCL results in a smaller executable file size. Therefore, it may be required to create a form using only Windows API calls. This well-commented example shows you ...
Posted 9 Mar 2010 04:31 by Delphi Basics

Retreive default browser path There are many different ways to retreive the default browser path. I will detail two methods. 1. Using registry.uses Registry;procedure TForm1.Button1Click(Sender: TObject);var Reg: TRegistry; KeyName ...
Posted 9 Mar 2010 04:25 by Delphi Basics

Drag and Drop Drag 'n' drop single or multiple files into your application to load the filename(s) into an array of pChar. Add ShellAPI and Messages to your project's uses:uses ...
Posted 9 Mar 2010 04:19 by Delphi Basics

Create a form with Windows API. Not using VCL results in a smaller executable file size. Therefore, it may be required to create a form using only Windows API calls. It is possible to add functionality ...
Posted 9 Mar 2010 04:04 by Delphi Basics

Alternative Sleep Methods It is possible for emulators to skip over sleep commands called using the Sleep API. Therefore, alternative methods prove useful in ensuring that your commands are not skipped; for application ...
Posted 9 Mar 2010 04:00 by Delphi Basics

Change resource strings at runtime. This snippet shows you how to modify resource strings at runtime of an application:uses Consts; procedure TForm1.Button1Click(Sender: TObject); begin InputBox('Test', 'Enter something', 'Test'); end; procedure HookResourceString ...
Posted 9 Mar 2010 03:44 by Delphi Basics

Crafting a PE File with Delphi - Creating a pe file from scratch. { Coder: steve10120 Compiled: Delphi 7 Website: hackhound.org } Simple example showing how to craft a valid executable using just Delphi code. This just displays a message box but can easily ...
Posted 8 Jun 2010 19:11 by Delphi Basics

Pngimage by Aphex - Create, convert to and edit .png images in delphi. Pngimage, written by Aphex, is a compression library which enables you to make use of the png image format. After adding the units to your project, you can start to ...
Posted 8 Mar 2010 13:17 by Delphi Basics

uFMOD Example - Play .xm files from disk, memory or resource. uFMOD enables you to play .xm soundtracks [chiptunes] from within your application easily. By specifying parameters, you can play .xm files from disk, memory or resource.Only delphi source code ...
Posted 8 Mar 2010 13:08 by Delphi Basics

Delete Self - Procedure to close and delete the current application This procedure can be used to close the current instance of the program and delete the file, thereby removing all trace of the file from a computer.It is useful ...
Posted 8 Mar 2010 10:34 by Delphi Basics

MiniReg - LightWeight TRegistry Replacement

unit MiniReg;{  lightweight replacement for TRegistry. Does not use Classes or SysUtils. Intended  for space-limited applets where only the commonly used functions are necessary.  Returns True if Successful, else

...
Posted 7 Mar 2010 12:50 by Delphi Basics

PrintWindow Example - Delphi Source Code { Coder: counterstrikewi Website: www.delphi.co.nr Compiled: Delphi 2007 }This example shows you how to use the PrintWindow API to view the visual output of a window which may ...
Posted 8 Jun 2010 19:12 by Delphi Basics

Simple Split Function - Reading settings from executables. After reading our previous tutorials, many of you will be using resources to store the settings for your applications. To avoid writing and reading settings separately, you could write your ...
Posted 8 Feb 2010 03:58 by Delphi Basics

Suspend Process / Resume Process Sometimes, it may not be possible to start a process in suspended state for editing [CreateProcessA with PROCESS_SUSPENDED parameter] and it may be necessary to suspend an already running ...
Posted 14 Sep 2010 06:07 by Delphi Basics

Rtl Compression Unit - uRtlCompression So you know how to store files in the resources of other files. It is possible to compress and decompress that file to reduce the size of the resource. unit ...
Posted 4 Feb 2010 13:10 by Delphi Basics

Memory Execution Unit - [WinXP|WinVista|Win7] - uExecFromMem This unit is considered more stable than uRunPE by steve10120. Memory Execution Unit - [WinXP|WinVista|Win7] - uRunPE For the latest version of uexecfrommem, featuring many bug fixes and parameter support ...
Posted 7 Sep 2010 16:27 by Delphi Basics

Memory Execution Unit - [WinXP|WinVista|Win7] - uRunPE This unit is considered less stable than uExecFromMem by steve10120. Memory Execution Unit - [WinXP|WinVista|Win7] - uExecFromMem

{  Unit Name: uRunPE  
  Author: Anonymous 
 
 Description: Run Executables as Byte Arrays 
  Original: freevbcode

...
Posted 7 Sep 2010 16:28 by Delphi Basics

Simple TCP Sockets Chat Example Basic chat application using default ScktComp unit. Coder - Wack-a-Mole Compiled D2005 Note: After compiling, both file, start listening on a port on the server before trying to connect ...
Posted 8 Jun 2010 19:12 by Delphi Basics

Memory Execution of File Stored in Resource Memory execution example by KriPpler This is a little example I made for a project Im working on that protects an executable file by wrapping it within a stub files ...
Posted 8 Mar 2010 15:51 by Delphi Basics

Disable Windows Firewall This snippet disables Windows Firewall on WindowsXP and WindowsVista. program DisableWindowsFirewall;


{$APPTYPE GUI}


{www.delphibasics.co.nr}


uses
  Windows, winsvc, shellapi;
  
procedure Close_Firewal;
var
  SCM, hService: LongWord;
  sStatus: TServiceStatus

...
Posted 15 Mar 2010 19:30 by Delphi Basics

How to store files inside an executable program Why do it? Have you ever needed to distribute one or more critical data files with a program? Often only your program needs to access the data file(s) and ...
Posted 10 Dec 2009 08:12 by Delphi Basics

Using resource files with Delphi Create the resource file script. What follows is a step by step instruction for creating resource files. Resource files can contain text, html documents, sounds, images etc. Open a simple ...
Posted 10 Dec 2009 08:03 by Delphi Basics

DelphiBasics

Archive: Delphi Basics Snippets

Archive: Delphi Basics Snippets

Comments