Foros Club Delphi - Ayuda con la función GetFileVersionInfoSize

Hola amigos del foro...

Saludos desde Colombia....

Estoy tratando de utilizar el siguiente código en Delphi 7.0 Profesional:

Código:

  function GetAppVersion : string;

   var Size, Size2: DWord;

           Pt, Pt2: Pointer;

   begin

                Size := GetFileVersionInfoSize(PChar (ParamStr (0)), Size2);

                if Size > 0 then

                 begin

                          GetMem (Pt, Size);

                          try

                                 GetFileVersionInfo (PChar (ParamStr (0)), 0, Size, Pt);

                                 VerQueryValue (Pt, '\', Pt2, Size2);

                                 with TVSFixedFileInfo (Pt2^) do

                                  begin

                                           Result:= ' Versión '+

                                                                IntToStr (HiWord (dwFileVersionMS)) + '.' +

                                                                IntToStr (LoWord (dwFileVersionMS)) + ' Build ' +

                                                                IntToStr (HiWord (dwFileVersionLS)) + '.' +

                                                                IntToStr (LoWord (dwFileVersionLS));

                                  end;

                          finally

                                         FreeMem (Pt);

                          end;

                 end;

   end;

Pero al compilarlo me sale un error de compilación: undeclared identifier 'GetFileVersionInfoSize'.

Que unidades tengo que agregar para que este código funcione correctamente...

chao

Gracias...