uses Commctrl;
1.
2.
var
3.
hLV : THandle;
4.
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;
17.
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;
