Как создать EXE-файл наибольшего размера?

[GSerg]

Не больше 2 Гб. Гы гы.

[minotawr]

А для создания такого файла - напихай на форму графики в опупенном расширении, и слоями, слоями, а потом на таймер посади отображение и тестируй

[alibek]

Нафига?
Поместить в ресурсы AVI-файл.
Глупо, конечно, но не более, чем заявленное требование в пилотном посте.

[minotawr]

Хм, я прикололся, в ресурсы попробовал образ диска DWD залить, васик выкинуло в эрор

[keks-n]

Дописать EXE нулями до 2 ГБ и всё.

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

Open "myfile.exe" For Binary As #1
Put #1, &H7FFFFFFF, Chr(0)
Close

[Ennor]

Совершенно верно, все описано в спецификациях: http://msdn.microsoft.com/library/defau ... ormats.asp

[keks-n]

Бред. Читай PE формат. Если дописать в конец EXE данный, то они будут вне всяких секций и не повлияют на работу(если такое влияние не предусмотрено в коде, в частности: использование дописанных ранее данных, подсчёт CRC)

[GSerg]

keks-n
Нельзя в смысле "невозможно" и нельзя в смысле "не надо" - вещи разные...

[keks-n]

Я посчитал, что сказано в смысле "невозможно". А WINRAR между прочим дописывает данные в конец EXE, когда делает self-extracting.

[GSerg]

Из всего обсуждения прямо вытекает, что "невозможно" не могло иметься в виду, keks-n...

[Dex]

keks-n согласен с тобой + моно ещё хранить в константе в HEX виде=)
А вот примерчик простенький:

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

Dim mas() As Byte
Dim DLINA, i As Integer
DLINA = 1000
FileCopy App.Path & "\" & App.EXEName & ".exe", App.Path & "\New.exe"
ReDim mas(FileLen(App.Path & "\New.exe") - 1)
For i = vbNull To DLINA
Open App.Path & "\New.exe" For Binary As #1
Put #1, UBound(mas) * i, mas
Close #1
Next


Тока комп может зависнуть если DLINA очень большое значение
Можно нулями конечно как предложил keks-n. А этот способ назавём самокопирование самой себя в саму себя

[keks-n]

А где у тебя массив заполняется? А то он ведь нулики пишет

[Dex]

Ой забыл
Тогда вот так:

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

Dim mas() As Byte
Dim DLINA, i As Integer
DLINA = 2
FileCopy App.Path & "\" & App.EXEName & ".exe", App.Path & "\New.exe"
ReDim mas(FileLen(App.Path & "\New.exe") - 1)
Open App.Path & "\New.exe" For Binary As #1
Get #1, vbNull, mas
Close #1
For i = vbNull To DLINA
Open App.Path & "\New.exe" For Binary As #1
Put #1, UBound(mas) * i, mas
Close #1
Next

А то получается я твой метод стянул

[VVitafresh]

Не больше 2 Гб. Гы гы.

Можно и больше: WinRar SFX-архив, к примеру, позволяет создавать. Другое дело, в FAT32 есть ограничение на размер файла, но это уже другая история.

[tyomitch]

Ограничение FAT32 -- это 4Гб, и с указанным GSerg-ом оно не имеет никакой связи.

Весь вопрос в том, что считать exe-файлом. Если мусор добавлять в одну из секций, то ограничение даже жёстче, чем 2Гб (образ файла не должен пересекаться с образами системных библиотек).

Если же, как и делает WinRAR, мусор просто дописывать в конец файла, то ограничения нет. Хоть на терабайт можете файл делать.

[VVitafresh]

Ограничение FAT32 -- это 4Гб, и с указанным GSerg-ом оно не имеет никакой связи.

А я и не говорил, что ограничение FAT32 -- 2 ГБ. На своем опыте познакомился с ограничением 4 ГБ (когда не хотел копироваться бэкап, долго ломал голову над этой загадкой )
Ну а большие *.exe сам программно никогда не создавал (только WinRar'ом).

[d3drm]

сделал ехе в 144 гб, сейчас на форум выложу...

[minotawr]

[keks-n]

Мой код смотрел? &H7FFFFFFF-2ГБ. Выполнябельность не страдает.

[Dex]

redvasya тогда на тебе такой вариант :

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

Dim mas() As Byte
Dim DLINA, i As Integer
DLINA = 100
FileCopy App.Path & "\" & App.EXEName & ".exe", App.Path & "\" & App.EXEName & "1.exe"
ReDim mas(FileLen(App.Path & "\" & App.EXEName & "1.exe") - 1)
Open App.Path & "\" & App.EXEName & "1.exe" For Binary As #1
Get #1, vbNull, mas
Close #1
For i = vbNull To DLINA
Open App.Path & "\" & App.EXEName & "1.exe" For Binary As #1
Put #1, UBound(mas) * i, mas
Close #1
Next

При необходимости можно массив заполнять не самой прогай, а (нулями - прим. keks-n) или чем хочешь сам. И кстате
keks-n в твой вариант не мешает добавить образ самой проги, а то получается тока одни нули, примерно так:

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

Dim mas() As Byte
EXE_NAME = "ЗДЕСЬ УКАЗАТЬ ПУТЬ К ФАЛУ КОТОРЫЙ БУДЕМ РАСШИРЯТЬ"
ReDim mas(FileLen(EXE_NAME) - 1)
Open EXE_NAME For Binary As #1
Get #1, vbNull, mas
Close #1
Open "myfile.exe" For Binary As #1
Put #1, &H7FFFFFFF, Chr(0)
Close #1


keks-n твой вариант действительно работает тока всё таки выполняебальность страдает ждать приходится не мало.
Это keks-n чтоб чел понял лучше [/b]

[keks-n]

Ну образ кучу раз копировать это не есть гут. Его любой архиватор сожмёт до исходного состояния(равно как и с нулями), посему надо генерить каждый байт через Rnd .

[Dex]

Хотел же предложить
Но каждый раз rnd тут уж точно скорость работы проги упадёт...

[Бяка]

keks-n твой вариант действительно работает тока всё таки выполняебальность страдает ждать приходится не мало.

добавь ДуйЕвентс или таймер поставь и пусть себе в фоновом режиме работает ,а юзера , пока у него винт засерается, позадалблювать всякими заполнениями форм типа введите ваше имя и вам настанет щастье и тд и тп

d3drm да , я в универе тоже так прикалывался на лентах по С++, забивал ехешник нулями до 4Гб сжимал в selfархив до 100 -200кб назвав к примеру "курсак по..." и выкладывал в универе ни компы ещё пеньки 166