Rendre le texte des icônes du bureau transparents

uses Commctrl;
var
hLV : THandle;

procedure TForm1.GetDesktopListViewHandle;
var
s1: string;

begin
hLV := FindWindow('ProgMan', nil);
hLV := GetWindow(hLV, GW_CHILD);
hLV := GetWindow(hLV, GW_CHILD);
SetLength(s1, 40);
GetClassName(hLV, PChar(s1), 39);
if PChar(s1) <> 'SysListView32' then
ShowMessage('Failed');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
xColor : TColor;

begin
GetDesktopListViewHandle;
xColor := ListView_GetTextColor(hLV);
ListView_SetTextColor(hLV, xColor);
xColor := ListView_GetTextBkColor(hLV);
ListView_SetTextBkColor(hLV, xColor);
ListView_SetTextBkColor(hLV, $FFFFFFFF);
end;
Commentaire des internautes
avatar
Christophe le 10/01/2002
je te propose d'améliorer la fonction
procedure TForm1.Button1Click(Sender: TObject);
begin
GetDesktopListViewHandle;
ListView_SetTextBkColor(hLV, $FFFFFFFF);
ListView_RedrawItems(hLV, 0, ListView_GetItemCount(hlv));
end;

De plus pour ce qui est de masquer les icones, il y a dans le registry la
clé suivante (sur pour Windows NT/2000 a vérifier sur 98)

Hive: HKEY_CURRENT_USER
Key: Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Name: NoDesktop
Type: REG_DWORD
Value: 1
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour10/01/2002
VisualisationVu 968 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Systeme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur