如何用delphi在桌面上只显示一个图片

[luxx123]

不要窗口的边框和最上面的提示行

[luxx123]

图片是不规则的图形，怎么能让后面的form透明，显示出背景桌面的东西？
还有怎么能实现鼠标拖动图片？

[fatebus]

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);

begin
inherited;
if M.Result = htClient then
M.Result := htCaption;
end;
窗体拖动。

[fatebus]

form1.BorderStyle := bsNone;
form1.WindowState := wsMaximized;

[fatebus]

var wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil); // 隐藏任务栏
ShowWindow(wndHandle, SW_HIDE);
end;