Tips delphi berikut ini adalah untuk membuat teks icon desktop yang transparan.
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;
be...