Download all you need here
Miscellaneous
[ Delphi ] – Swap the mouse buttons
May 4th
procedure SwapMouseButtons(bValue: Boolean); begin if bValue then SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0) else More >
[ Delphi ] – Hide the desktop icons
Apr 4th
ShowWindow(FindWindow(nil, ‘Program Manager’), SW_HIDE); More >
[ Delphi ] – Make the desktop icon text transparent
Apr 4th
uses
Commctrl;
var
hLV: THandle;
procedure TForm1.GetDesktopListViewHandle;
var
s1: String;
begin
hLV := FindWindow('ProgMan', nil);
hLV := GetWindow(hLV, GW_CHILD); More >

