[color=#FF0000]新手，求救大牛！[/color]

[千杯不醉-sen]

请问delphi中怎么使用api中的shellabout函数。我参考做了一个报错如下：

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分给第一个解决问题的那个。

[changsn]

ShellAbout(0,'v111','版权所有',1);

[千杯不醉-sen]

那个我知道，但不符合要求，关键是这个该如何写？

GetFileVersion(PChar(ExtractFilePath(Application.ExeName))

[千杯不醉-sen]

[Quote=引用楼主 yangsen600 的回复:]
请问delphi中怎么使用api中的shellabout函数。我参考做了一个报错如下：



Delphi(Pascal) code

begin
ShellAbout(Self.Handle,
pChar(' XXX '+GetFileVersion(PChar(ExtractFilePath(Application.ExeName))+'\XXX.exe')),
……
[/Quote]
不过还要谢谢你~

[千杯不醉-sen]

[Quote=引用 1 楼 changsn 的回复:]
ShellAbout(0,'v111','版权所有',1);
[/Quote]
晕，弄错了。不过还要谢谢你~

[kaikai_kk]

GetFileVersion()函数返回的是Cardinal,要转成string才行

IntToStr(GetFileVersion(...))

[changsn]

var
s: string;
i: Integer;
begin
s := 'C:\WINDOWS\notepad.exe';
i := GetFileVersion(s);//获得版本号
ShowMessage(IntToStr(i));
end;

[千杯不醉-sen]

[Quote=引用 5 楼 kaikai_kk 的回复:]
GetFileVersion()函数返回的是Cardinal,要转成string才行

IntToStr(GetFileVersion(...))
[/Quote]

谢啦！结贴。