procedure TForm1.BitBtn1Click(Sender: TObject);
begin
// Winapi.Windows.SetParent(form1.Handle , DesktopHandle);
form1.AlphaBlend:=True;
form1.AlphaBlendValue:=128;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
DesktopHandle := Winapi.Windows.FindWindow('Progman', 'Program Manager');
DesktopHandle := FindWindowEx(desktopHandle, 0, 'SHELLDLL_DefView', nil);
DesktopHandle := FindWindowEx(desktopHandle, 0, 'SysListView32', 'FolderView');
if (DesktopHandle= 0) then begin
DesktopHandle := Winapi.Windows.FindWindow('Progman', 'Program Manager');
DesktopHandle := DesktopHandle+ 2;
DesktopHandle := FindWindowEx(DesktopHandle, 0, 'SysListView32', 'FolderView');
end;
Winapi.Windows.SetParent(form1.Handle , DesktopHandle);
end;
end.
不要跟我講FMX 那不是我要的效果 求各位大神來破！
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/74550.html
上一篇：按照序列號進行更新
下一篇：tcp/ip協議的模擬邏輯問題