| Вопрос: Получить номер версии файла | Добавлено: 28.11.06 20:13 |
Автор вопроса:  Trusishka | ICQ: 229751913 |
| Как? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #1 | Добавлено: 28.11.06 20:39 |
|
А ВЫ случайно нехотите посмотреть это в
стандартах. (Добавить форму\существующие\Template\Forms\About Dialog) |
||
|
Номер ответа: 2 Автор ответа: Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #2 | Добавлено: 28.11.06 22:11 |
| Файла своего(в смысле приложения запущенного), али чужого? | ||
|
Номер ответа: 3 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #3 | Добавлено: 28.11.06 22:14 |
| Вот подробнее: http://bbs.vbstreets.ru/viewtopic.php?t=6561&sid=59007dad4949ee847a527fa73cc61e9a | ||
|
Номер ответа: 4 Автор ответа:  Trusishka ICQ: 229751913 Вопросов: 36 Ответов: 48 |
Профиль | | #4 | Добавлено: 29.11.06 11:32 |
| Arseny,дружище, спасибо, работает | ||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 30.11.06 22:29 |
Гы, а мне влом было константы для апи собирать, быстрее файл руками расковырять 
Public Function GetFileVersion(path As String) As String
On Error GoTo e If Trim$(path) = "" Then GoTo e Dim l As Long Dim S As String n = FreeFile Open path For Binary As #n l = LOF(n) S = String(l, vbNullChar) Get n, , S Close #n S = Replace(S, Chr$(0), "" 
start = InStr(1, S, "ProductVersion", 1) + 14 fEnd = start + 4 1: simvol$ = Mid$(S, fEnd, 1) If IsNumeric(simvol$) = True Or simvol$ = "." Then fEnd = fEnd + 1: GoTo 1 GetFileVersion = Mid(S, start, fEnd - start) Exit Function e: GetFileVersion = "" Close #n End Function |
||
Страница: 1 |