???
解决方案 »
- delphi xe2报CoInitialize has not been called错误
- 请PDK领分,过期不候
- 请问高手:nmftp or idftp 的list问题?
- 人民币转换大写问题??
- webservice(dll格式)部署到2003server上的问题
- delphi 给dbgrid添加鼠标右击事件
- 小问题
- 如何释放内存中的位图所占内存
- Delphi有没有判断字符类型的函数?
- DELPHI 调用C DLL 问题,LPSTR* 什么替换类型,请高手指点。
- CreateProcess 失败!%1 不是有效的 Win32 应用程序。莫名其妙啊
- 关于delphi ado连接mysql的问题?
//获取指定文件的版本号
function getBRVersion(aFileName: string; var aVersion: string): BOOL;
var
lpdwHandel: Cardinal;
verInfoSize: DWORD;
pVerData: Pointer;
verInfo: PVSFixedFileInfo;
wV1, wV2, wV3, wV4: Word;
begin
Result := False;
verInfoSize := GetFileVersionInfoSize(PChar(aFileName), lpdwHandel);
if verInfoSize <> 0 then
begin
GetMem(pVerData, verInfoSize);
try
if GetFileVersionInfo(PChar(aFileName), lpdwHandel, verInfoSize, pVerData) then
begin
if VerQueryValue(pVerData, '\', Pointer(verInfo), verInfoSize) then
begin
wV1 := HiWord(verInfo.dwFileVersionMS);
wV2 := verInfo.dwFileVersionMS;
wV3 := HiWord(verInfo.dwFileVersionLS);
wV4 := verInfo.dwFileVersionLS;
aVersion := Format('%d.%d.%d.%d', [wV1, wV2, wV3, wV4]);
Result := True;
end;
end;
finally
FreeMem(pVerData);
end;
end;
end;