Не как ни магу склеить два exe в один, если кто знает подскажите плизз.....

AlexLam писал(а):Уже запарился...
Не как ни магу склеить два exe в один, если кто знает подскажите плизз.....
Sub Kleum_EXE(File1 as string, File2 as string, Kuda as String)
Dim XX as byte
FileCopy File1, Kuda
P1=FileLen(File1)
P2=FileLen(File2)
Open Kuda for Binary as 1
Open File2 for Binary as 2
For I=1 to P2
GET #2, I, XX
PUT #1, P1+I, XX
Next I
Close
End Sub
Сейчас этот форум просматривают: Yandex-бот и гости: 13