cs_sub-zero
Messages postés98Date d'inscriptionmercredi 22 novembre 2000StatutMembreDernière intervention12 juillet 2005
-
10 mai 2003 à 18:56
cs_didine13
Messages postés96Date d'inscriptionmardi 18 août 2009StatutMembreDernière intervention14 août 2013
-
31 août 2010 à 09:43
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_didine13
Messages postés96Date d'inscriptionmardi 18 août 2009StatutMembreDernière intervention14 août 2013 31 août 2010 à 09:43
c koi
begiladss
Messages postés7Date d'inscriptionjeudi 1 février 2007StatutMembreDernière intervention 1 mars 2007 1 mars 2007 à 17:20
Comment créer un éxécutable ou un fichier .exe?
BlackGoddess
Messages postés338Date d'inscriptionjeudi 22 août 2002StatutMembreDernière intervention14 juin 2005 15 mai 2003 à 23:45
ah, oui pardon j'avais pas vu :$
logedu
Messages postés33Date d'inscriptionmercredi 26 mars 2003StatutMembreDernière intervention 1 mars 2005 15 mai 2003 à 14:10
Y a-t-il un moyen pour exécuter directement la ressource 'mon fichier.exe', sans le copier au prélable dans le répertoire système ?
cs_sub-zero
Messages postés98Date d'inscriptionmercredi 22 novembre 2000StatutMembreDernière intervention12 juillet 2005 15 mai 2003 à 01:12
Const FTAILLE = 351744 et ca c koi....
BlackGoddess
Messages postés338Date d'inscriptionjeudi 22 août 2002StatutMembreDernière intervention14 juin 2005 14 mai 2003 à 22:05
c pas la taille du fichier, c la taille du nom de fichier lol
cs_sub-zero
Messages postés98Date d'inscriptionmercredi 22 novembre 2000StatutMembreDernière intervention12 juillet 2005 10 mai 2003 à 18:56
vi tu peux faire plus simple et sans avoir a connnaitre la taille de l'exe
Public Sub creat(nom_fic As String, ress As Integer)
'cree un fichier à partir d'ID de ressources binaires
Dim tab_ani() As Byte
If Dir(nom_fic) = "" Then
Open nom_fic For Binary Access Write As #1
tab_ani = LoadResData(ress, "CUSTOM")
ReDim Preserve tab_ani(UBound(tab_ani))
Put #1, , tab_ani
Close #1
End If
End Sub
31 août 2010 à 09:43
1 mars 2007 à 17:20
15 mai 2003 à 23:45
15 mai 2003 à 14:10
15 mai 2003 à 01:12
14 mai 2003 à 22:05
10 mai 2003 à 18:56
Public Sub creat(nom_fic As String, ress As Integer)
'cree un fichier à partir d'ID de ressources binaires
Dim tab_ani() As Byte
If Dir(nom_fic) = "" Then
Open nom_fic For Binary Access Write As #1
tab_ani = LoadResData(ress, "CUSTOM")
ReDim Preserve tab_ani(UBound(tab_ani))
Put #1, , tab_ani
Close #1
End If
End Sub