Delphi Guru: 2009

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.