关于DELPHI ShellAbout调用错误

Question

本人使用的是DELPHI XE2 IDE环境，在使用shellabout时总会弹出一对话框提示：could not convert variant of type (null) into type (integer)    求解啊！！！！
已声明shellAPI

Answer 1

procedure TForm1.Action12Execute(Sender: TObject);
begin
  ShellAbout(self.Handle,PChar('记事本V1.0'),
              PChar('切肤只愛'),
              HICON(NULL));
end;

Answer 2

把NULL改为nil，DELPHI里没有NULL

Answer 3

var i:TIcon;
begin
i:=TIcon.Create;
i.LoadFromFile(icon文件名);
ShellAbout(self.Handle,PChar('记事本V1.0'),
  PChar('切肤只愛'),
  i.handle);
i.free;
end;

Answer 4

其实NULL是存在的，这是variant变体类型空值的符号，楼主是从C++转型过来的吧。。