Procedure TForm1. BitBtn1Click (Sender: TObject);
The begin
//Winapi. Windows. SetParent (form1. Handle, DesktopHandle);
Form1. AlphaBlend function:=True;
Form1. AlphaBlendValue:=128;
end;


Procedure TForm1. FormCreate (Sender: TObject);
The begin
DesktopHandle:=Winapi. Windows. FindWindow (' Progman ', 'the Program Manager ");
DesktopHandle:=FindWindowEx (DesktopHandle, 0, 'SHELLDLL_DefView, nil);
DesktopHandle:=FindWindowEx (DesktopHandle, 0, 'SysListView32', 'FolderView');
If (DesktopHandle=0) then the begin
DesktopHandle:=Winapi. Windows. FindWindow (' Progman ', 'the Program Manager ");
DesktopHandle:=DesktopHandle + 2;
DesktopHandle:=FindWindowEx (DesktopHandle, 0, 'SysListView32', 'FolderView');
end;
Winapi. Windows. SetParent (form1. Handle, DesktopHandle);
end;
End.

Don't tell me FMX that's not what I want to ask you a great god to the effect of broken!