How to read custom extended properties of an exe

[ZDS]

Bonjour tout le monde / Hi to everyone !

First of all, I apologize in advance, I'm a french user and my last English lesson was near to 5 years ago ^^

I'm trying to read the extended property of a compiled script, NOT THE CLASSIC ONES (not the version for example, I know how to use FileGetVersion). When the following code is compiled to "foobar.exe", I'd like to catch (in another script) the value in a property named "foo", aka "bar" in the example below.

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_Res_Field=foo|bar
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
MsgBox(0,"","foobar !")

Here is a little screenshot from the Properties Window (sorry french version of Windows) :

Thanks for all the help you could give to me !

A bientôt / See you !

ZDS

PS: I forgot, I'm looking for a function for an executable, this is the kind of function for a not-compiled script :

Func FileGetAdvancedPropertyForSRC($file, $property)

    Local $value = "", $start = "#AutoIt3Wrapper_Res_Field="&$property&"|"
    Local $flux = FileOpen($file, 0)
    If Not @error And $file <> -1 Then
        For $i = 1 To 25
            Local $line = FileReadLine($flux, $i)
            If @error Then ExitLoop
            If StringLeft($line,StringLen($start)) = $start Then
                $value = StringTrimLeft($line,StringLen($start))
                ExitLoop
            EndIf
        Next
    EndIf
    FileClose($file)
    Return $value
EndFunc

Edited May 25, 2012 by ZDS

[water]

This will return the required properties.

[BrewManNH]

I have a modified version of that UDF and it won't return that property on an exe I compiled, I can see the property in Windows XP, but not with the UDF. I also don't see it in Windows 7, so I'm not sure where it sets that property. It's not visible to $object.GetDetailsOf.

[ZDS]

Hi,

In fact I was working with a very very old version of AutoIt. With 3.2.X and newer the FileGetVersion function use a new parameter, exactly what I needed.

Example for the micro-script in my first topic : FileGetVersion("foobar.exe", "foo")

This is my personal function to get the information from a script or a compiled script :

Func FileGetAdvancedProperty($file, $property)
    Local $value = ""
    If StringRegExp(StringLower($file), ".AU3$") Then
        Local $start = "#AutoIt3Wrapper_Res_Field="&$property&"|", $flux = FileOpen($file, 0)
        If Not @error And $file <> -1 Then
            For $i = 1 To 25
                Local $line = FileReadLine($flux, $i)
                If @error Then ExitLoop
                If StringLeft($line,StringLen($start)) = $start Then
                    $value = StringTrimLeft($line,StringLen($start))
                    ExitLoop
                EndIf
            Next
        EndIf
        FileClose($file)
    Else
        $value = FileGetVersion($file, $property)
        If @error Then $value = ""
    EndIf
    Return $value
EndFunc

Thanks for your help !