Author: admin

// Encrypt/ decrypt files or strings unit EZCrypt; {modeled by Ben Hochstrasser(bhoc@surfeu.ch) after some code snippet from borland} interface uses Windows, Classes; type TWordTriple = Array of Word; function …

// Concatenate and compress files into one destination file uses Zlib; procedure CompressFiles(Files : TStrings; const Filename : String); var infile, outfile, tmpFile : TFileStream; compr : TCompressionStream; i,l …

// Change/read the Document Properties for a specified Word Document // 1st Method: Change MS Word properties via OLE uses ComObj; procedure TForm1.Button1Click(Sender: TObject); const wdPropertyTitle = $00000001; wdPropertySubject …

// Install an INF file with Delphi uses ShellAPI; function InstallINF(const PathName: string; hParent: HWND): Boolean; var instance: HINST; begin instance := ShellExecute(hParent, PChar('open'), PChar('rundll32.exe'), PChar('setupapi,InstallHinfSection DefaultInstall 132 ' …

// Show the select directory dialog and sepeify the initial directory uses ShlObj, ActiveX; function SelectDirectoryEx(hOwn: HWND; var Path: string; Caption, Root: string; uFlag: DWORD = $25): Boolean; const …

// Load the CD-ROM icon function GetCDIcon(Drive: Char): TIcon; var ico: TIcon; ini: TIniFile; s, p: string; i, j: Integer; begin //Abort if "AutoRun.inf" doesn't exists. if FileExists(Drive + …

// Encrypt/decrypt files with windows NTFS functions { This tip works with Windows 2000 (NTFS 5) and later These 2 functions are defined in windows.pas, but they're defined wrong. …

// Send data to another program by auto-drag&drop uses ShellAPI; function MakeDrop(const FileNames: array of string): THandle; // Creates a hDrop Object // erzeugt ein hDrop Object var I, …

// Get the width and height of a Gif-File type TImageSize = record Width: Integer; Height: Integer; end; function ReadGIFSize(Stream: TStream): TImageSize; type TGifHeader = record Signature: array of …

// Start a program and wait for its termination (2) // First create the special unit and put this code into this new unit: uses Windows, Registry, Dialogs, Classes, …