讨厌老师的作业。

要求：
函数名称：int _stdcall WimDev_GetVerNo(char *VerNo)
说明：获取版本号；
参数：VerNo 产品号 采用“X.X.X”格式；
返回值：0 成功；-1 失败；

我写的函数如下：
Function WimDev_GetVerNo(var VerNo:array of char):integer;stdcall;export;
{
功能：获取软件版本号
参数:
返回: >=0 成功
-1 失败
VerNo:版本号
}
var
SBuf: string[15];
begin
try
SBuf:='1.06.04';
strpcopy(VerNo,SBuf);
WimDev_GetVerNo:=0;

except
WimDev_GetVerNo:=-1;
exit;
end;
end;

为啥老是没法显示，急死了，请gg们帮个忙，先谢了！！

[此贴子已经被作者于2007-10-23 21:21:09编辑过]

怎么没人说话？高手秀一下吧，谢谢了！