Tu as bien fait, son module est très propre.Ar-S a écrit :Je me doutais bien que l'unicode allait me faire un coup de traf.. ma variable longueur semble pourtant bonne.
Cependant comme le l'ai indiqué, le module de Ts-Soft fonctionne au poil. testé en simple reg_sz et et Dword.
Me suis fait un petit soft pour activer/désactiver le transfert TCP/IP sous windows.
Code : Tout sélectionner
If FileSize(Chemin) > 0
;chemin=ReplaceString(chemin,"\","\\")
Chemin = #DQUOTE$ + Chemin + #DQUOTE$
*che=AllocateMemory(StringByteLength(chemin,#PB_Unicode)+ SizeOf(CHARACTER))
PokeS(*che,chemin,-1,#PB_Unicode)
Debug "Vérif Chemin : " + Chemin ;------- TEST
Longueur = Len (Chemin)
RegCreateKey_ (key,@Path,@CurKey)
RegSetValueEx_ (CurKey,@Value,0, #REG_SZ ,*che, MemorySize(*che)+1)
RegCloseKey_ (CurKey)
FreeMemory(*che)
Succes = 1
Else
Succes = 0
EndIf
Code : Tout sélectionner
; *******************************
Declare.s SpecialFolder2(folderno)
#CSIDL_STARTUP=$07
; *******************************
Global demarrage$=SpecialFolder2(#CSIDL_STARTUP)+"\" ; recupere le path du dossier de demarrage de votre windows
; creer un lien vers mon prg "Starter" situé dans "c:\Starter\" , et le met dans le dossier de demarrage de windows (toute version)
CreateShellLink("c:\Starter\starter.exe",demarrage$+"Starter.lnk","","Pure FUN",fichier(1)\chemin.s,#SW_SHOWNORMAL,0,"%SystemRoot%\system32\SHELL32.dll",12)
Procedure CreateShellLink(PATH$, LINK$, Argument$, DESCRIPTION$, WorkingDirectory$, ShowCommand.l, HotKey.l, IconFile$, IconIndexInFile.l)
; de Danilo
; CreateLink
; - TARGET$ for the Link ("c:\PureBasic\purebasic.exe")
; - LINK$ - name of the Link ("c:\pb.lnk")
; - Argument$ for the target ("%1")
; - Description$ = Description and Tooltip ("Start PureBasic")
; - Working Directory ("c:\PureBasic\")
; - Show command: #SW_SHOWNORMAL or #SW_SHOWMAXIMIZED or #SW_SHOWMINIMIZED
; - HotKey - no need to use this :)
; - IconFile + Index ( "c:\PureBasic\purebasic.exe" , 1 )
CoInitialize_(0)
If CoCreateInstance_(?CLSID_ShellLink,0,1,?IID_IShellLink,@psl.IShellLinkA) = 0
Set_ShellLink_preferences:
; The file TO which is linked ( = target for the Link )
;
psl\SetPath(PATH$)
; Arguments for the Target
;
psl\SetArguments(Argument$)
; Working Directory
;
psl\SetWorkingDirectory(WorkingDirectory$)
; Description ( also used as Tooltip for the Link )
;
psl\SetDescription(DESCRIPTION$)
; Show command:
; SW_SHOWNORMAL = Default
; SW_SHOWMAXIMIZED = aehmm... Maximized
; SW_SHOWMINIMIZED = play Unreal Tournament
psl\SetShowCmd(ShowCommand)
; Hotkey:
; The virtual key code is in the low-order byte,
; and the modifier flags are in the high-order byte.
; The modifier flags can be a combination of the following values:
;
; HOTKEYF_ALT = ALT key
; HOTKEYF_CONTROL = CTRL key
; HOTKEYF_EXT = Extended key
; HOTKEYF_SHIFT = SHIFT key
;
psl\SetHotkey(HotKey)
; Set Icon for the Link:
; There can be more than 1 icons in an icon resource file,
; so you have to specify the index.
;
psl\SetIconLocation(IconFile$, IconIndexInFile)
ShellLink_SAVE:
; Query IShellLink For the IPersistFile interface For saving the
; shortcut in persistent storage.
If psl\QueryInterface(?IID_IPersistFile,@ppf.IPersistFile) = 0
; Ensure that the string is Unicode.
mem.s = Space(1000) ;AllocateMemory(1,1000)
MultiByteToWideChar_(#CP_ACP, 0, LINK$, -1, mem, 1000)
;Save the link by calling IPersistFile::Save.
hres = ppf\Save(mem,#True)
Result = 1
ppf\Release()
EndIf
psl\Release()
EndIf
CoUninitialize_()
ProcedureReturn Result
DataSection
CLSID_ShellLink:
; 00021401-0000-0000-C000-000000000046
Data.l $00021401
Data.w $0000,$0000
Data.b $C0,$00,$00,$00,$00,$00,$00,$46
IID_IShellLink:
; DEFINE_SHLGUID(IID_IShellLinkA, 0x000214EEL, 0, 0);
; C000-000000000046
Data.l $000214EE
Data.w $0000,$0000
Data.b $C0,$00,$00,$00,$00,$00,$00,$46
IID_IPersistFile:
; 0000010b-0000-0000-C000-000000000046
Data.l $0000010b
Data.w $0000,$0000
Data.b $C0,$00,$00,$00,$00,$00,$00,$46
EndDataSection
EndProcedure
Procedure.s SpecialFolder2(folderno)
listptr=0
result$=Space(270)
SHGetSpecialFolderLocation_(0,folderno,@listptr)
SHGetPathFromIDList_(listptr,@result$)
ProcedureReturn Trim(result$)
EndProcedure
en clair si tu avais un prg qui ecrivait dans le registre de la version 32 bits (sous Seven on avait acces aux deux , de memoire ... ), sur un Ordi 64 bits, ça pourra ne plus marcher !RegMode(Ex,Wow64)
--------------------------------------------------------------------------------
Description : Set Registry access mode
Ex Use Extended Registry Functions
#False (Default) use old Registry functions
True : Use 'New' Registry Functions (Some key cannot be viewed as simple user)
Wow64 Access an Alternate Registry View
By default, a 32-bit application running on WOW64 accesses the 32-bit registry view and a 64-bit application accesses the 64-bit registry view.
The following flags enable 32-bit applications to access redirected keys in the 64-bit registry view and 64-bit applications to access redirected keys in the 32-bit registry view.
These flags have no effect on shared registry keys.
#KEY_WOW64_64KEY Access a 64-bit key from either a 32-bit or 64-bit application. (RegEx(#True) required)
#KEY_WOW64_32KEY Access a 32-bit key from either a 32-bit or 64-bit application.
Code : Tout sélectionner
Procedure.b StartWithWindows(Chemin.s, state.b)
; Original code by Joakim Christiansen / StartWithWindows(state.b)
; Modify by Ar-S / 2012 - Add filepath to the proce and some checks
; v2017 Pb 5.46x64 - special thanks to zaphod_b
Protected key.l = #HKEY_CURRENT_USER ;or #HKEY_LOCAL_MACHINE pour tout les utilisateur de l'ordi
Protected Path.s = "Software\Microsoft\Windows\CurrentVersion\Run" ;ou RunOnce pour le lancer qu'une fois
Protected.s Value, String
Protected CurKey.l
Protected.b Succes
String.s = GetFilePart(Chemin)
Debug "String.s : " + String.s ;------- TEST
Value.s = RemoveString(String, "."+GetExtensionPart(String))
Debug "Value.s : " + Value.s ;------- TEST
; Créer la clef
If state = 1
; Avant de créer la clé, on vérifie que le prog existe
If FileSize(Chemin) > 0
Chemin = Chr(34) + Chemin + Chr(34)
Debug "Vérif Chemin : " + Chemin ;------- TEST
*che=AllocateMemory(StringByteLength(chemin,#PB_Unicode)+ SizeOf(CHARACTER))
PokeS(*che,chemin,-1,#PB_Unicode)
Debug "longueur : " + Longueur
RegCreateKey_ (key,@Path,@CurKey)
RegSetValueEx_ (CurKey,@Value,0, #REG_SZ ,*Che, MemorySize(*che)+1)
RegCloseKey_ (CurKey)
Succes = 1
Else
Succes = 0
EndIf
; Suppression de clé
Else
RegOpenKey_ (key,@Path,@CurKey)
RegDeleteValue_ (CurKey,@Value)
RegCloseKey_ (CurKey)
Succes = 1
EndIf
ProcedureReturn Succes
EndProcedure
;- EXEMPLE
; Inscrire la clé
Debug StartWithWindows("D:\_EXE\TicTacToe.exe",1)
; Supprime la clé
; Debug StartWithWindows("D:\_EXE\TicTacToe.exe",0)
; Dans les 2 cas, retourne 1 si succés ou 0 si erreur (ne peut intervenir que si le programme n'existe pas).
