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

Question

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

Answer 1

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

Answer 2

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;

Answer 3

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

Answer 4

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);begin
inherited; 
if M.Result = htClient then 
M.Result := htCaption; 
end;
窗体拖动。