Si j'ai bien compris, tu as fait un logiciel que tu veux montrer à une entreprise. Dans ce cas, rend toi sur place, et fait leur la démonstration sur ton pc portable( un accord de confidentialité ne serait pas superflus).Kwai chang caine a écrit :plein de mots rigolos
ben t'as bien lu ce que j'ai ecris ??Kwai chang caine a écrit :
Donc apres il est jetable, comme un stylo bic, un rasoir bic, un appareil photo bic...ah non bic y fait pas d'appareils photos
Ou encore pire un mouchoir papier, un preservatif, une serviette hygienique, un tampon.....
C'est à dire qu'il aurait été inutilisable apres la premiere utilisation, que ce soit sur cette machine ou une autre ....
C'est surtout que les logiciels que je fais, sont distribués via notes dans mon entreprise, qui est gigantesque et sur toute la france.Si j'ai bien compris, tu as fait un logiciel que tu veux montrer à une entreprise. Dans ce cas, rend toi sur place, et fait leur la démonstration sur ton pc portable( un accord de confidentialité ne serait pas superflus).
Trond a écrit :Normally not, but if you name your file "desktop.ini" there's a trick to do it. Note that desktop.ini is used by Windows for configuring folders, so be careful so you don't mess up.
So, call your file desktop.ini and paste this in it:
[DeleteOnCopy]
This part will be deleted when the file is copied
[AnythingElse]
This part is preserved when the file is copied
Then try to copy and paste the file with Windows Explorer and see what happens.
Code : Tout sélectionner
; Creation de la fenetre... blablabla
OpenWindow(0, 0, 0, 250, 60, "Install Test Special KCC", 13107201)
TextGadget(0, 12, 10, 70, 16, "Install path :")
StringGadget(1, 75, 8, 165, 20, "MEM:\KCC's Knowledge\", #PB_String_ReadOnly)
ButtonGadget(2, 95, 30, 60, 20, "Next")
ProgressBarGadget(3, 10, 10, 230, 15, 0, 100, #PB_ProgressBar_Smooth)
HideGadget(3, 1)
TextGadget(4, 12, 10, 220, 20, "The application was installed correctly!")
HideGadget(4, 1)
Quit.b = #False ; On quit ou pas?
Install.b = #False ; c'est juste pour la demo, on s'en fou
ClearInstall.b = #False ; indique au programe que c'est la fin des haricots... euh... de l'install
Select ProgramParameter()
Case "InstallFinished" ; Ce parametre signifi que l'install est terminée, donc notre byte de verification passe a 1 (pour rappel, c'est temp.exe qui est lancé là)
OpenFile(0, "Install_Test.exe") ; on ouvre le fichier d'install
FileSeek(0, 16177) ; on se position là où il faut et non où il faut pas, logique...
WriteByte(0, 1) ; et voila!
CloseFile(0)
RunProgram("Install_Test.exe", "ClearInstall", "") ; une fois fait, on relance l'install avec en param ClearInstall
End ; et on ferme le temp.exe
Case "ClearInstall" ; Ici l'install est terminée
ClearInstall = #True
DeleteFile("temp.exe") ; on supprime le temp.exe qui nous a bien aidé
Install = #True ; et on fait le necessaire pour afficher le message qui va bien, enfin, presque!
HideGadget(0, 1) ; Install_Test.exe et Temp.exe vecurent heureux mais n'auront pas d'enfant
HideGadget(1, 1)
HideGadget(4, 0)
SetGadgetText(2, "Quit")
Default ; s'il n'y a pas de params, on verifi notre byte au cas ou il y aurait une couille dans le paté!
ReadFile(0, "Install_Test.exe") ; blabla
FileSeek(0, 16177) ; expliqué plus haut
Verif.b = ReadByte(0)
CloseFile(0)
If Verif = 1 ; Bingo! L'install à deja été faite, et notre byte est à 1, donc il y a une couille (pour un homme il en faut deux, mais pour un programme aucune :p)
MessageRequester("Error, Error, Error, Err...", "Program already installed, please contact the vendor for more informations.", 0) ; aller petit vilain
End ; essay encor!
EndIf
EndSelect
Repeat ; Boucle principale... hmm... que dir de plus?
If Install = #True And GetGadgetState(3) < 100 And GetTickCount_() - Timer >= 10 ; l'anim du progressbar, on s'en fou mais ça fait beau
Timer = GetTickCount_()
SetGadgetState(3, GetGadgetState(3) + 1)
If GetGadgetState(3) = 100
DisableGadget(2, 0)
EndIf
EndIf
wEvent = WindowEvent(); bon tout ça je passe, c'est bien toi qui vois comment tu veux fair ton install
Select wEvent
Case #PB_Event_Gadget
Select EventGadget() ; et blablabla
Case 2
If Install = #False
Install = #True
DisableGadget(2, 1) ; blablabla
HideGadget(0, 1)
HideGadget(1, 1)
HideGadget(3, 0) ;blabla
SetGadgetText(2, "Next")
Timer = GetTickCount_()
Else
Quit = #True
EndIf
EndSelect
Case #WM_CLOSE
Quit = #True
Default
Delay(20) ; bliblobla
EndSelect
Until Quit = #True ; blabla... ha on quit ok... mais avant de End :
If ClearInstall = #False ; si on avait lancé Install_Test.exe avec ClearInstall, ben on ferme simplement, sinon!
CopyFile("Install_Test.exe", "temp.exe") ; On copi le fichier d'install en temp.exe (c'est le comble, on veut empecher la copie en copiant :D)
RunProgram("temp.exe", "InstallFinished", "") ; et on le lance avec le param qui va bien pour modifier notre byte
EndIf
End ; aurevoir :(
DataSection ; voir le code de LSI, il est bien commenté :)
Data.s "DataStart"
Data.b 0
Data.s "DataEnd"
EndDataSection
Surement parceque la plupart des peronnes ici sont maintenant plus fortes que moi, et que devant les Maîtres, on se tai et on écouteMerci beaucoup CEDERAVIC, on te lis pas assez souvent
Le n° de série (CD KEY ou n° de licence) permet de qualifier le type de licence de ton logiciel (concernant Windows), à savoir, une version Home/Pro/Corporate...kerkael a écrit :Salut,
Pour mettre mon grain de sel, qui saurait m'expliquer la différence entre le déblocage par clef de license, du système d'activation sur internet.
Windows a besoin d'une clef de license pour que l'on procède à l'installation, mais il faut EN PLUS l'activer sur le net. Quel mécanisme utilise l'activation ?
