Membuat teks icon desktop yg transparan

Membuat teks icon desktop yg transparan

Splash screen merupakan tampilan yang kita lihat pertama kali waktu kita menjalankan sebuah aplikasi. Splash screen ini biasanya ditampilkan untuk
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;
DOWNLOAD LINK DI SAMPING 

http://www.ziddu.com/download/11894439/icon_desktop_transparan.zip.html