第二个问题已经解决
用sendmessage(handle,WM_SYSCOMMAND,SC_ICON,0);
还剩第一个问题大家快来呀
有人给我提示
可是我还是高不懂TForm1 = class(TForm)
  private
    ...
    procedure WMNCPaint(var Message: TMessage); message WM_NCPAINT;//这一行要自己加!
  ...
end;procedure TForm1.WMNCPaint(var Message: TMessage);
...
begin
  hrgn:=Message.wParam;
  ...
  ..
end;