FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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; Que unidades tengo que agregar para que este código funcione correctamente... chao Gracias... |
#2
|
|||
|
|||
agrega esta linea en tu proyecto:
uses Windows; Saludos. Coco |
|
|
|