AutoIt Français

Code : Tout sélectionner

#include-once

#include "RegFunc.au3"
#Include <File.au3>

$s_key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
$fValue = '"Inno Setup: Icon Group"="PDF-XChange PDF Viewer"'
$valueEnd = _RegSearch ($s_key, $fValue)
MsgBox(0,"test", @TempDir & " : " & $valueEnd)
Func _RegSearch ($s_key , $fValue)
    Local $d_file = @TempDir & "\export.txt"
    Local $value = _RegExport($d_file, $s_key)
    Local $result, $Path, $linePath

    ; comptage des lignes
    Local $linesFile = _FileCountLines($d_file)

    Local $file = FileOpen($d_file, 0)
    ; Check if file opened for reading OK
    If $file = -1 Then
        MsgBox(0, "Error", "Unable to open file.")
        Exit
    EndIf

    ; cherche ligne par ligne
    For $i = 1 to $linesFile Step 1
        $line = FileReadLine($file, $i)

        ; prend le 1er caractère de la ligne pour contrôler si c'est le chemin
        $result = StringLeft($line, 1)
        if $result = "[" then
            ; Sauvegarde la ligne du chemin
            $linePath = $line
        ; si c'est la ligne qu'on cherche, on sort de la boucle
        ElseIf $line = $fValue Then
            ExitLoop
        ElseIf $i = $linesFile Then
            ; si la fonction n'a rien trouvé elle retourne 0
            $Path = 0
        EndIf
    Next
    FileClose($file)
    FileDelete($d_file)
    ; Enlève les paranthèses carrées
    if $Path <> 0 Then
        $len = StringLen($linePath) - 2
        $Path = StringMid($linePath, 2, $len)
    Endif

    Return $Path
EndFunc

Code : Tout sélectionner

$s_key = clé de base
$fReg = clé a rechercher
$fValue = valeur a comparer

Func _RegSearch ($s_key , $fReg, $fValue)
    Local $i=1
    Do
        $var = RegEnumKey($s_key, $i)
        $path = $s_key & "\" & $var

        $varRead = RegRead($path , $fReg)

        if $varRead = $fValue Then
            Return $path
        Endif

        $i = $i + 1
    Until $var = ""

    Return "0"
EndFunc