Ayuda con la función GetFileVersionInfoSize

[jaderl]

Hola amigos del foro...

Saludos desde Colombia....

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

  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...

[Coco]

agrega esta linea en tu proyecto:

uses Windows;

Saludos.
Coco