Membuat teks icon desktop yg transparan

Splash screen merupakan tampilan yang kita lihat pertama kali waktu kita menjalankan sebuah aplikasi.

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;

( source:klik-kanan)