Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "WinAPI";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Mostrar versión * .exe Encontrar ramas similares


Skiv   (2001-11-05 09:55) [0]

¿Puedo leer el archivo que creo sin usar terceros?
Componente (clases) de tipo RX, LMD.



Digitman   (2001-11-05 10:27) [1]

Usted puede Todos estos componentes en última instancia, abordan las llamadas WINAPI.
GetFileVersionInfo, GetFileVersionInfoSize, VerQueryValue. Como, por cierto, todos los demás componentes: todos acceden a la API desde el interior (más correctamente, los componentes encapsulan las funciones de la API).



Dimka Maslov   (2001-11-05 11:02) [2]

tipo // Tipo de registro de versión de archivo PFileVersion = ^ TFileVersion; TFileVersion = registro HiVersion: Integer; // Número de versión principal LoVersion: Integer; // Número de versión menor Lanzamiento: Integer; Construir: Integer; fin función FileVersion (const FileName: TString = ""): TFileVersion; var S: TString; hMem: HGLOBAL; Buf: puntero; BufSize, Len, dwHandle: DWORD; VerInfo: PVSFixedFileInfo; pszName: PAnsiChar; comenzar FillChar (Resultado, SizeOf (Resultado), 0); S: = Nombre de archivo; Limpieza (S, Verdadero); si IsEmptyStr (S) entonces S: = ParamStr (0); pszName: = @ S [1]; BufSize: = GetFileVersionInfoSize (pszName, dwHandle); si BufSize <> 0 entonces comience hMem: = GlobalAlloc (GHND, BufSize); si hMem = 0 entonces OutOfMemoryError; Buf: = GlobalLock (hMem); si Buf = nil entonces OutOfMemoryError; GetFileVersionInfo (pszName, dwHandle, BufSize, Buf); VerQueryValue (Buf, "\", puntero (VerInfo), Len); con VerInfo ^ empezar Result.HiVersion: = HiWord (dwFileVersionMS); Result.LoVersion: = LoWord (dwFileVersionMS); Resultado. Lanzamiento: = HiWord (dwFileVersionLS); Result.Build:=LoWord(dwFileVersionLS); fin Desbloqueo global (hMem); GlobalFree (hMem); final else Result.HiVersion: = - 1; fin



Dimka Maslov   (2001-11-05 11:06) [3]

En el ejemplo necesitas quitar Limpieza (S, Verdadero)una llamada IsEmptyStr (S)reemplazar con S = ""Y TString en la cuerda



Páginas: 1 rama entera

Foro: "WinAPI";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba









Memoria: 0.56 MB
Tiempo: 0.023 c
6-22291
leviatán
2001-10-09 22:02
2002.01.08
Pregunta sobre el componente NMFTP


14-22406
VEG
2001-11-10 12:56
2002.01.08
Sucedió aquí conmigo diferente ...


14-22371
Denso
2001-11-08 17:11
2002.01.08
¿Vida después de la muerte?


1-22239
Gayrus
2001-12-17 03:52
2002.01.08
TStatusBar


1-22020
Leo ^ sol
2001-12-18 07:08
2002.01.08
Tmemo





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiana Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español