Forum Discussion

jackson_1's avatar
jackson_1
Frequent Contributor
14 years ago

cannot get the file version correctly in windows xp

hi all,     i met a troubsome thing in my project, i create a routine to get the version of the specified execution file likes below, but i find it works well in windows 7 os and get empty valu...
AlexanderM's avatar
AlexanderM
Staff
14 years ago
Hello Du,



We have found the following workaround. Please let us know how it works for you.



procedure Test;


var path, oWMI, oFile;


begin


  path := 'C:\\Test\\large_file.exe';  // note double backslashes!


  oWMI := Sys.OleObject('WbemScripting.SWbemLocator').ConnectServer;


  oFile := oWMI.Get('CIM_DataFile.Name="' + path + '"');


  Log.Message(oFile.Version);


end;