请教一个关于对话框函数，100分送上！

Question

可以显示windows的版本和一些自己的个人信息，以前见到过，可是忘了。

Answer 1

breezing(前不见gz 后不见up) 说的应该是你想要的。

Answer 2

var
  Icon:Integer;
  Title,Msg:String;
begin
Icon:=LoadIcon(hinstance,'mainicon');
Title:='XX软件';
Msg:='张飞 于 2003.03.06'#13#10'http://www.张飞.com';
ShellAbout(Handle,PChar(Title),PChar(Msg),Icon);
end;

Answer 3

对，就是这个ShellAbout(Handle,'aaa','aaa',0)不过我一直奇怪为什么最后的参数hIcon不能象帮助里说的那样是null?

Answer 4

对，就是这个ShellAbout(Handle,'aaa','aaa',0)不过我一直奇怪为什么最后的参数hIcon不能象帮助里说的那样是null?

Answer 5

其实在VC或C++BUILDER里，使用NULL，其实在其内部是将 NULL定义为 0了，所以你在c++的编译环境里，可以使用NULL，而在DELPHI没有定义这个，所以不能使用NULL，如果你需要使用的话，可以在程序开头部分加入：  const NULL =0;就可以了。

Answer 6

var
  OSVersionInfo: TOSVersionInfo;
begin
  OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);
  GetVersionEx(OSVersionInfo);
  PlatformID := OSVersionInfo.dwPlatformID;
  Case PlatformID Of
    VER_PLATFORM_WIN32s:        showmessage('Platform ID := Windows 3.1.');
    VER_PLATFORM_WIN32_WINDOWS: showmessage('Platform ID := Windows 98');
    VER_PLATFORM_WIN32_NT:      showmessage('Platform ID := Windows NT');
  end;end;

Answer 7

有没有getsysteminfo函数
能找到吧！