Voici la fonction que j'utilise sous D2007 .

si cela peut t'aider



Function RenvoiVersion(NomAppli : String ):String;
var
FileName: string;
InfoSize, Wnd: DWORD;