App Maximize

procedure AppMaximize(hWin: HWND);
begin
SendMessage(hWin, WM_SYSCOMMAND, SC_MAXIMIZE, 0);
end;

Font Remove

function FontRemove(const FontFilename: string): Boolean;
begin
 
result := RemoveFontResource(PChar(ExtractFilePath(ParamStr(0) + FontFilename)));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
 
end;

Font Add

function FontAdd(const FontFilename: string): Boolean;
begin
 
result := (AddFontResource(PChar(ExtractFilePath(ParamStr(0) + FontFilename))) <> 0);
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
 
end;

Memory Used Percentage

function MemoryUsedPercentage: Integer;
var
MemStat: TMemoryStatus;
begin
 

MemStat.dwLength := SizeOf(MemStat);
GlobalMemoryStatus(MemStat);
result := MemStat.dwMemoryLoad;
 

end;

EhLib 4.5 contains components and classes for Borland Delphi 4-9, 2005, 2006, Borland C++ Builder 4-6, CodeGear Delphi 2007 and CodeGear RAD Studio 2009, intended to increase capacity of the client part of database application in part of interaction with applications user


Screenshot of Component toolbar

TurboPower Abbrevia

Abbrevia is a compression toolkit for Borland Delphi, C++Builder, &Kylix. It supports PKZIP 4, Microsoft CAB, TAR, & gzip formats & thecreation of self-extracting archives. It includes visual componentsthat simplify the manipulation of ZIP files.


Component Toolbar Screenshot

http://tpabbrevia.sourceforge.net/

EkszBox - VCL LED Component

EkszBox-VCL - Visual Component Library For Delphi/C++ Builder. Mainly contains easily skinnable/attractive controls. Animation/fade/tween effects. ImgProgressBar, ImgTrackBar, ImgCheckBox, ImgButton, ImgForm, ImgLED, GradientBar, FadeImage, DirBrowse

EkszBox - VCL LED Component Screenshopt