Ho creato un programma installer.exe a cui appendo con questa routine:
codice:
Private Sub AppendToExe(exefile$, filetoappend$, Stringa$, StringaFine)
Dim MFile As Integer
MFile = FreeFile
Open filetoappend$ For Binary As MFile
filedata$ = String(LOF(MFile), " ")
Get MFile, , filedata$
Close MFile
MFile = FreeFile
Open exefile$ For Binary As MFile
F = LOF(MFile)
Seek MFile, F + 1
filedata$ = Stringa$ & filedata$ & StringaFine
Put MFile, , filedata$
Close MFile
End Sub
Un file zip contenente tutti i file che devo installare. Quando viene lanciato il file Installer.exe lui si toglie il file zip appeso, lo scompatta e copia i file.
Ultimamente però molti antivirus non lasciano partire l'installer.exe perchè lo credono infetto dallo zip.
Potete suggerirmi un altro metodo per raggruppare il file .exe e lo zip?
Grazie Otti.