иконки мешают работе ехе

[mayhem]

как только я ставлю иконку на проект, ехе перестает нормально работать, хотя проэкт работает нормально. В чем тупость?

[RayShade]

DNA?

[mayhem]

sho?

[alibek]

RayShade один анекдот вспомнил. Но правила приличия не позволили ему написать "в ДНК" в ответ на вопрос "где ошибка?".

[mayhem]

плоский юмор! я ж серьезно

[Konst_One]

но ведь телепаты то в отпуске

напиши подробней, что ты делаешь и что у тебя происходит после этого

[mayhem]

тупость редкая. сам в шоке. есть проект который в design mode работает отлично, если компилить без установки иконки тоже работает нормально. Но как только ставлю иконку на форму и компилирую с ней перестает выполняться GetVolumeInformation. пришлось тулить другую форму и на нее вешать иконку, но это жвообще маразм.

[KDima]

Попробуй насильно вставить иконку при помощи ресурс едита....

[tyomitch]

Попробуй насильно вставить иконку при помощи ресурс едита....

В форму-то? Имхо не удастся.

[mayhem]

я уже через другую форму втулил просто интересно у кого криша сехала у меня или у ВБ

[mayhem]

через другую форму не вышло тоже! а я пришол с примером того что я пытался делать!

[mayhem]

1: сначала запускаем из проекта и смотрим что все работает
2: потом компилируем и смотрим что все работает
3: потом присваиваем форме иконку keys.ico и компилируем - функция GetVolumeInformation перестает работать

я работаю на вин98!

[A.A.Z.]

Тестил на ХР - все работает

[mayhem]

на XP и у меня все работает но то что я делаю ориентировано на 98! у кого она еще есть поспотрите пожалуйста

[mayhem]

A.A.Z.! ты запускал из проекта или компилил с иконкой?

[A.A.Z.]

1) Запустил из проекта и убедился, что все работает;
2) Скомпилировал и убедился, что все работает;
3) Поменял у формы иконку;
4) Запустил проект, убедился что все работает;
5) Скомпилировал и убедился, что прога все еще работает.

[mayhem]

кто нибуть с 98 есть? выручайте!!!!!!!!!!!

[A.A.Z.]

GSerg есть А у меня есть МЕ Надо?

[mayhem]

О! ме вроде на 98 смахивает! Протесть плиз буду очень благодарен!

[A.A.Z.]

В МЕ тоже работает (возвращает 6)

[GSerg]

GSerg есть, его не может не быть
Он ответственно заявляет: если код откомпилировать на 98, то он будет возвращать 0.
А 16390 он будет возвращать, если, блин, option explicit повставлять, и все переменные объявить! Ибо нефиг.

Код: Выделить всё

Option Explicit

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long

Private Type HDDInfo
  sVolumeLabel As String      'label of this drive
  sFileSystem As String       'file system
  lSerialNumber As Long       'hdd serial number
  lFileSystemFlags As Long    'filesystemflags
  dTotalHDDSpace As Double    'totlal hdd space
End Type

Private hdd As HDDInfo

Public Sub InitHDDInfo(sDriveLetter As String)
  Dim lSecPerClus As Long, lBytPerSec As Long, lFreeClus As Long, lTotalClus As Long
  Dim lMaxCompLen As Long
 
  hdd.sVolumeLabel = String$(260, vbNullChar)
  hdd.sFileSystem = String$(6, vbNullChar)
  'get hdd info
  If GetVolumeInformation(sDriveLetter, hdd.sVolumeLabel, Len(hdd.sVolumeLabel), hdd.lSerialNumber, lMaxCompLen, hdd.lFileSystemFlags, hdd.sFileSystem, Len(hdd.sFileSystem)) Then
      hdd.sVolumeLabel = Replace$(hdd.sVolumeLabel, vbNullChar, vbNullString)
      hdd.sFileSystem = Replace$(hdd.sFileSystem, vbNullChar, vbNullString)
  End If
  'get total hdd space
  hdd.dTotalHDDSpace = 0
  If GetDiskFreeSpace(sDriveLetter, lSecPerClus, lBytPerSec, lFreeClus, lTotalClus) Then
      hdd.dTotalHDDSpace = lSecPerClus * lBytPerSec * lTotalClus
  End If
End Sub
Public Function TestHddFileSystem() As String
    TestHddFileSystem = hdd.sFileSystem
End Function
Public Function TestHddSerialNumber() As String
    TestHddSerialNumber = hdd.lSerialNumber
End Function
Public Function TestHddFileSystemFlags() As String
    TestHddFileSystemFlags = hdd.lFileSystemFlags
End Function
Public Function TestHddTotalSpace() As String
    TestHddTotalSpace = hdd.dTotalHDDSpace
End Function

[A.A.Z.]

Да, Option Explicit форева
А у меня он, кстати, 6 возвращал

[mayhem]

на ХР по моему вообще 2!

[mayhem]

я все переменные пообьявлял все равно глючит

[GSerg]

Тогда обрати внимание на версию своего VB SP.
Меня ещё смущает 48-пиксельная иконка...

[mayhem]

проблема решилась так же по тупому какая и она сама! не знаю надолго ли! перенес переменные из модуля в форму! кстати: глюк есть если на форме установлены и иконка и пикчер, а если один из них то все хорошо! этот топик без пооллитры читать нельзя! МАРАЗМ!

[mayhem]

там три иконки кстати 16 32 48 так что по идее подставляться нужная должна автоматом при выборе видаотображения папок! а sp 3