首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

[color=#FF0000]新手,大牛![/color]

2012-04-02 
[color#FF0000]新手,求救大牛![/color]请问delphi中怎么使用api中的shellabout函数。我参考做了一个报错如

[color=#FF0000]新手,求救大牛![/color]
请问delphi中怎么使用api中的shellabout函数。我参考做了一个报错如下:


Delphi(Pascal) code
begin  ShellAbout(Self.Handle,    pChar(' XXX '+GetFileVersion(PChar(ExtractFilePath(Application.ExeName))+'\XXX.exe')),    pChar('作者:X X    E-Mail:XXX'), Icon.Handle);end;




[Pascal Error] MainFrm.pas(140): E2010 Incompatible types: 'string' and 'Cardinal'


貌似是不兼容,如何让对象匹配呢?

注:50分给第一个解决问题的那个。

[解决办法]
GetFileVersion()函数返回的是Cardinal,要转成string才行

IntToStr(GetFileVersion(...))

热点排行