The user of your application needs do close and open it again everytime he/she set a particular configuration to make this change available. So, with the code below You can give the possibility to your users a quick restart and improve the experience of your software. Simple task: Create a batch file with the filename [...]

Every picture that You insert into your delphi application project makes the executable bigger. So, If you want minimize that problem with your disabled images of your buttons, You could use the code below: function ConvertBitmapToGrayscale(const Bitmap: TBitmap): TBitmap; var i, j: Integer; Grayshade, Red, Green, Blue: Byte; PixelColor: Longint; begin with Bitmap do for [...]

The Code below shuflle the bits of the image using the key to define differents ways to encrypt the same bitmap. procedure EncryptBitmap(const Bmp: TBitmap; Key: Integer); var   BytesPorScan: Integer;   w, h: integer;   p: pByteArray; begin   try BytesPorScan := Abs(Integer(BMP.ScanLine[1]) – Integer(BMP.ScanLine[0]));   except raise Exception.Create(‘Error’);   end;   RandSeed := Key; [...]

A simple way to encrypt your strings into Delphi Development. The acode below shuffle the characters based on those C1 and C2 constants and You can set to any number to them, but remenber to use the same in both code encryption. function EncryptStr(const S: String; Key: Word): String; var I: Integer; const C1 = 53761;       C2 = [...]

A useful code that convert a string to a character. It’s simple, a string is an array of characters, so you just have to “take” the position you want.Code Below: function StrToChr(Str: string; Pos: Integer): Char; beginResult := Str[Pos]; end;

When you want to be sure all content of a directory will be deleted, you have to use a recursive procedure to delete every file into a folder before delete the folder itself.Code below: procedure ForceDeleteDirContent(dir: string); var i: integer; sDirectory: string; sr: TSearchRec; beginsDirectory := IncludeTrailingPathDelimiter( dir ); i := FindFirst( sDirectory+’*.*’,faAnyFile,sr ); while [...]