Membuat Teks Icon Desktop Yang Transparan

Tips delphi berikut ini adalah untuk membuat teks icon desktop yang transparan.

uses Commctrl;

2. var
3. hLV : THandle;
5. procedure TForm1.GetDesktopListViewHandle;
6. var
7. s1: string;
8. begin
9. hLV := FindWindow('ProgMan', nil);
10. hLV := GetWindow(hLV, GW_CHILD);
11. hLV := GetWindow(hLV, GW_CHILD);
12. SetLength(s1, 40);
13. GetClassName(hLV, PChar(s1), 39);
14. if PChar(s1) <> 'SysListView32' then
15. ShowMessage('Failed');
16. end;
18. procedure TForm1.Button1Click(Sender: TObject);
19. var
20. xColor : TColor;
21. begin
22. GetDesktopListViewHandle;
23. xColor := ListView_GetTextColor(hLV);
24. ListView_SetTextColor(hLV, xColor);
25. xColor := ListView_GetTextBkColor(hLV);
26. ListView_SetTextBkColor(hLV, xColor);
27. ListView_SetTextBkColor(hLV, $FFFFFFFF);
28. end;