Soldat Font Editor

  • Hallo Leute!

    Ich brauche eure Hilfe! xD .. *Bin ein Anfänger ^^*

    Wenn man keine Schrift auswählt kommt ein Fehler beim abspeichern (Save)??
    Kann jemand so machen: Automatisch alte Einstellungen übernehmen.. xD*

    Hier der Code:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>
    #include <Misc.au3>
    #NoTrayIcon

    [/autoit] [autoit][/autoit] [autoit]

    ;--------------------------------------------------------------------------
    ;Einstellungen
    Opt("TrayMenuMode",1)

    [/autoit] [autoit][/autoit] [autoit]

    TraySetState()
    TraySetToolTip("Soldat Font Editor")
    ;--------------------------------------------------------------------------
    ; Ini Einstellungen
    $ort = IniRead("einstellungen.ini", "SPEICHER", "Lesen", "NotFound")
    $schreiben = IniRead("einstellungen.ini", "SPEICHER", "Schreiben", "NotFound")
    $version = IniRead("version.ini", "VERSION", "Beta", "NotFound")
    $plugins = IniRead("plugins.ini", "PLUGINS", "Plugin", "NotFound")
    ;-------------------------------------------------------------------------
    ; Ini Einstellungen
    $inifont1 = IniRead($ort, "FONTS", "Font1", "NotFound")
    $inifont2 = IniRead($ort, "FONTS", "Font2", "NotFound")
    ;-------------------------------------------------------------------------
    ; Ini Einstellungen
    $inifontmenusize = IniRead($ort, "FONTS", "FontMenuSize", "NotFound")
    $inifontconsole = IniRead($ort, "FONTS", "FontConsoleSize", "NotFound")
    $inifontbigsize = IniRead($ort, "FONTS", "FontConsoleSize", "NotFound")
    $inifontbigbold = IniRead($ort, "FONTS", "FontBigBold", "NotFound")
    $inifontconsolesmallsize = IniRead($ort, "FONTS", "FontConsoleSmallSize", "NotFound")
    $inifontconsolesmallbold = IniRead($ort, "FONTS", "FontConsoleSmallBold", "NotFound")
    $inifontconsolebold = IniRead($ort, "FONTS", "FontConsoleBold", "NotFound")
    $inifontweaponmenusize = IniRead($ort, "FONTS", "FontWeaponMenuSize", "NotFound")
    $inifontweaponmenubold = IniRead($ort, "FONTS", "FontWeaponMenuBold", "NotFound")
    $fontmenubold = IniRead($ort, "FONTS", "FontMenuBold", "NotFound")
    $inifontkill = IniRead($ort, "FONTS", "KillConsoleNameSpace", "NotFound")
    ;--------------------------------------------------------------------------
    ; Form
    #Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\USER\Desktop\[Tenso] Soldat Font Editor\Tenso_Editor.kxf
    $Form1 = GUICreate("Soldat Font Editor", 617, 435, 197, 118)
    $Label1 = GUICtrlCreateLabel("Font1", 16, 48, 39, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label2 = GUICtrlCreateLabel("Font 2:", 16, 80, 39, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label3 = GUICtrlCreateLabel("Font Menu Size:", 304, 184, 81, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label4 = GUICtrlCreateLabel("Font Console Size:", 16, 224, 93, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label5 = GUICtrlCreateLabel("Font Big Size:", 16, 112, 69, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label6 = GUICtrlCreateLabel("Font Weapon Menu Size:", 304, 48, 121, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label7 = GUICtrlCreateLabel("Font Console Small Size:", 16, 256, 120, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label8 = GUICtrlCreateLabel("Font Menu Bold:", 304, 152, 82, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label9 = GUICtrlCreateLabel("Font Console Bold:", 16, 320, 94, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label10 = GUICtrlCreateLabel("Font Big Bold:", 16, 144, 70, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label11 = GUICtrlCreateLabel("Font Weapon Menu Bold:", 304, 80, 125, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label12 = GUICtrlCreateLabel("Font Console Small Bold:", 16, 288, 121, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label13 = GUICtrlCreateLabel("Kill Console Name Space:", 16, 352, 123, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input3 = GUICtrlCreateInput($inifontconsole, 160, 224, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input4 = GUICtrlCreateInput($inifontconsolesmallsize, 160, 256, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label14 = GUICtrlCreateLabel("Font:", 16, 16, 32, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Label15 = GUICtrlCreateLabel("Console:", 16, 192, 51, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Input5 = GUICtrlCreateInput($inifontconsolesmallbold, 160, 288, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input6 = GUICtrlCreateInput($inifontconsolebold, 160, 320, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input7 = GUICtrlCreateInput($inifontkill, 160, 352, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label16 = GUICtrlCreateLabel("Weapon Menu:", 304, 16, 87, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Label17 = GUICtrlCreateLabel("Menu:", 304, 120, 38, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Input8 = GUICtrlCreateInput($inifontweaponmenusize, 456, 48, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input9 = GUICtrlCreateInput($inifontweaponmenubold, 456, 80, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input10 = GUICtrlCreateInput($fontmenubold, 456, 152, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input11 = GUICtrlCreateInput($inifontmenusize, 456, 184, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input12 = GUICtrlCreateInput($inifontbigsize, 160, 112, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input13 = GUICtrlCreateInput($inifontbigbold, 160, 144, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label18 = GUICtrlCreateLabel("Copyright by Tenso 2007", 472, 400, 125, 17)
    GUICtrlSetFont(-1, 8, 400, 2, "Tahoma")
    $Save = GUICtrlCreateButton("Save", 408, 296, 129, 33, 0)
    $Change = GUICtrlCreateButton("Change", 160, 48, 67, 17, 0)
    $Button1 = GUICtrlCreateButton("Change", 160, 80, 67, 17, 0)
    $S = GUICtrlCreateButton("Font 1", 56, 48, 50, 17, 0)
    $Button2 = GUICtrlCreateButton("Font 2", 56, 80, 50, 17, 0)
    $Exit = GUICtrlCreateButton("Exit", 424, 400, 33, 17, 0)
    $About = GUICtrlCreateButton("About", 360, 400, 51, 17, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Save
    $inifont1 = IniWrite($schreiben, "FONTS", "Font1", $b_font[2])
    $inifont2 = IniWrite($schreiben, "FONTS", "Font2", $a_font[2])
    $inifontmenusize = IniWrite($schreiben, "FONTS", "FontMenuSize", $inifontmenusize)
    $inifontconsole = IniWrite($schreiben, "FONTS", "FontConsoleSize", $inifontconsole)
    $inifontbigsize = IniWrite($schreiben, "FONTS", "FontConsoleSize", $inifontbigsize)
    $inifontbigbold = IniWrite($schreiben, "FONTS", "FontBigBold", $inifontbigbold)
    $inifontconsolesmallsize = IniWrite($schreiben, "FONTS", "FontConsoleSmallSize", $inifontconsolesmallsize)
    $inifontconsolesmallbold = IniWrite($schreiben, "FONTS", "FontConsoleSmallBold", $inifontconsolesmallbold)
    $inifontconsolebold = IniWrite($schreiben, "FONTS", "FontConsoleBold", $inifontconsolebold)
    $inifontweaponmenusize = IniWrite($schreiben, "FONTS", "FontWeaponMenuSize", $inifontweaponmenusize)
    $inifontweaponmenubold = IniWrite($schreiben, "FONTS", "FontWeaponMenuBold", $inifontweaponmenubold)
    $fontmenubold = IniWrite($schreiben, "FONTS", "FontMenuBold", $fontmenubold)
    $inifontkill = IniWrite($schreiben, "FONTS", "KillConsoleNameSpace", $inifontkill)
    Case $msg = $Change
    $a_font = _ChooseFont($inifont1, 8)
    If (@error) Then
    MsgBox(0, "", "Error _ChooseFont: " & @error)
    Else
    MsgBox(0, "", "Font Name: " & $a_font[2])
    $a_font_schreiben = IniWrite($schreiben, "FONTS", "Font1", $a_font[2])
    EndIf
    Case $msg = $Button1
    $b_font = _ChooseFont($inifont2, 8)
    If (@error) Then
    MsgBox(0, "", "Error _ChooseFont: " & @error)
    Else
    MsgBox(0, "", "Font Name: " & $b_font[2])
    $b_font_schreiben = IniWrite($schreiben, "FONTS", "Font1", $b_font[2])
    EndIf
    Case $msg = $S
    MsgBox(4096, "Font1", $inifont1, 10)
    Case $msg = $Exit
    Exit
    Case $msg = $Button2
    MsgBox(4096, "Font2", $inifont2, 10)
    Case $msg = $About
    MsgBox(4096, "About", "Programmierer: Tesno, Version: " & $version, 10)
    EndSelect
    Wend

    [/autoit]

    INI: einstellungen und version.

    INI: font.ini unter Soldat\Txt\

    6 Mal editiert, zuletzt von tince (7. September 2007 um 16:34)

  • Was sollte denn dieses Script bewirken?

    --> Mit iniwrite solltest du die ausgewählten werte wieder abspeichern können. Täusch ich mich?

    Einmal editiert, zuletzt von ManuIt (7. September 2007 um 16:38)

    • Offizieller Beitrag

    HI,

    also die Fehler bekommst du so weg:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <Misc.au3>
    #NoTrayIcon

    ;--------------------------------------------------------------------------
    ;Einstellungen
    Opt("TrayMenuMode",1)

    TraySetState()
    TraySetToolTip("Soldat Font Editor")
    ;--------------------------------------------------------------------------
    ; Ini Einstellungen
    $ort = IniRead("einstellungen.ini", "SPEICHER", "Lesen", "NotFound")
    $schreiben = IniRead("einstellungen.ini", "SPEICHER", "Schreiben", "NotFound")
    $version = IniRead("version.ini", "VERSION", "Beta", "NotFound")
    $plugins = IniRead("plugins.ini", "PLUGINS", "Plugin", "NotFound")
    ;-------------------------------------------------------------------------
    ; Ini Einstellungen
    $inifont1 = IniRead($ort, "FONTS", "Font1", "NotFound")
    $inifont2 = IniRead($ort, "FONTS", "Font2", "NotFound")
    ;-------------------------------------------------------------------------
    ; Ini Einstellungen
    $inifontmenusize = IniRead($ort, "FONTS", "FontMenuSize", "NotFound")
    $inifontconsole = IniRead($ort, "FONTS", "FontConsoleSize", "NotFound")
    $inifontbigsize = IniRead($ort, "FONTS", "FontConsoleSize", "NotFound")
    $inifontbigbold = IniRead($ort, "FONTS", "FontBigBold", "NotFound")
    $inifontconsolesmallsize = IniRead($ort, "FONTS", "FontConsoleSmallSize", "NotFound")
    $inifontconsolesmallbold = IniRead($ort, "FONTS", "FontConsoleSmallBold", "NotFound")
    $inifontconsolebold = IniRead($ort, "FONTS", "FontConsoleBold", "NotFound")
    $inifontweaponmenusize = IniRead($ort, "FONTS", "FontWeaponMenuSize", "NotFound")
    $inifontweaponmenubold = IniRead($ort, "FONTS", "FontWeaponMenuBold", "NotFound")
    $fontmenubold = IniRead($ort, "FONTS", "FontMenuBold", "NotFound")
    $inifontkill = IniRead($ort, "FONTS", "KillConsoleNameSpace", "NotFound")
    ;--------------------------------------------------------------------------
    ; Form
    #Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\USER\Desktop\[Tenso] Soldat Font Editor\Tenso_Editor.kxf
    $Form1 = GUICreate("Soldat Font Editor", 617, 435, 197, 118)
    $Label1 = GUICtrlCreateLabel("Font1", 16, 48, 39, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label2 = GUICtrlCreateLabel("Font 2:", 16, 80, 39, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label3 = GUICtrlCreateLabel("Font Menu Size:", 304, 184, 81, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label4 = GUICtrlCreateLabel("Font Console Size:", 16, 224, 93, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label5 = GUICtrlCreateLabel("Font Big Size:", 16, 112, 69, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label6 = GUICtrlCreateLabel("Font Weapon Menu Size:", 304, 48, 121, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label7 = GUICtrlCreateLabel("Font Console Small Size:", 16, 256, 120, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label8 = GUICtrlCreateLabel("Font Menu Bold:", 304, 152, 82, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label9 = GUICtrlCreateLabel("Font Console Bold:", 16, 320, 94, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label10 = GUICtrlCreateLabel("Font Big Bold:", 16, 144, 70, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label11 = GUICtrlCreateLabel("Font Weapon Menu Bold:", 304, 80, 125, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label12 = GUICtrlCreateLabel("Font Console Small Bold:", 16, 288, 121, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label13 = GUICtrlCreateLabel("Kill Console Name Space:", 16, 352, 123, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input3 = GUICtrlCreateInput($inifontconsole, 160, 224, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input4 = GUICtrlCreateInput($inifontconsolesmallsize, 160, 256, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label14 = GUICtrlCreateLabel("Font:", 16, 16, 32, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Label15 = GUICtrlCreateLabel("Console:", 16, 192, 51, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Input5 = GUICtrlCreateInput($inifontconsolesmallbold, 160, 288, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input6 = GUICtrlCreateInput($inifontconsolebold, 160, 320, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input7 = GUICtrlCreateInput($inifontkill, 160, 352, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label16 = GUICtrlCreateLabel("Weapon Menu:", 304, 16, 87, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Label17 = GUICtrlCreateLabel("Menu:", 304, 120, 38, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Input8 = GUICtrlCreateInput($inifontweaponmenusize, 456, 48, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input9 = GUICtrlCreateInput($inifontweaponmenubold, 456, 80, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input10 = GUICtrlCreateInput($fontmenubold, 456, 152, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input11 = GUICtrlCreateInput($inifontmenusize, 456, 184, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input12 = GUICtrlCreateInput($inifontbigsize, 160, 112, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input13 = GUICtrlCreateInput($inifontbigbold, 160, 144, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label18 = GUICtrlCreateLabel("Copyright by Tenso 2007", 472, 400, 125, 17)
    GUICtrlSetFont(-1, 8, 400, 2, "Tahoma")
    $Save = GUICtrlCreateButton("Save", 408, 296, 129, 33, 0)
    $Change = GUICtrlCreateButton("Change", 160, 48, 67, 17, 0)
    $Button1 = GUICtrlCreateButton("Change", 160, 80, 67, 17, 0)
    $S = GUICtrlCreateButton("Font 1", 56, 48, 50, 17, 0)
    $Button2 = GUICtrlCreateButton("Font 2", 56, 80, 50, 17, 0)
    $Exit = GUICtrlCreateButton("Exit", 424, 400, 33, 17, 0)
    $About = GUICtrlCreateButton("About", 360, 400, 51, 17, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    Global $b_font[3], $a_font[3]

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Save
    $inifont1 = IniWrite($schreiben, "FONTS", "Font1", $b_font[2])
    $inifont2 = IniWrite($schreiben, "FONTS", "Font2", $a_font[2])
    $inifontmenusize = IniWrite($schreiben, "FONTS", "FontMenuSize", $inifontmenusize)
    $inifontconsole = IniWrite($schreiben, "FONTS", "FontConsoleSize", $inifontconsole)
    $inifontbigsize = IniWrite($schreiben, "FONTS", "FontConsoleSize", $inifontbigsize)
    $inifontbigbold = IniWrite($schreiben, "FONTS", "FontBigBold", $inifontbigbold)
    $inifontconsolesmallsize = IniWrite($schreiben, "FONTS", "FontConsoleSmallSize", $inifontconsolesmallsize)
    $inifontconsolesmallbold = IniWrite($schreiben, "FONTS", "FontConsoleSmallBold", $inifontconsolesmallbold)
    $inifontconsolebold = IniWrite($schreiben, "FONTS", "FontConsoleBold", $inifontconsolebold)
    $inifontweaponmenusize = IniWrite($schreiben, "FONTS", "FontWeaponMenuSize", $inifontweaponmenusize)
    $inifontweaponmenubold = IniWrite($schreiben, "FONTS", "FontWeaponMenuBold", $inifontweaponmenubold)
    $fontmenubold = IniWrite($schreiben, "FONTS", "FontMenuBold", $fontmenubold)
    $inifontkill = IniWrite($schreiben, "FONTS", "KillConsoleNameSpace", $inifontkill)
    Case $msg = $Change
    $a_font = _ChooseFont($inifont1, 8)
    If (@error) Then
    MsgBox(0, "", "Error _ChooseFont: " & @error)
    Else
    MsgBox(0, "", "Font Name: " & $a_font[2])
    $a_font_schreiben = IniWrite($schreiben, "FONTS", "Font1", $a_font[2])
    EndIf
    Case $msg = $Button1
    $b_font = _ChooseFont($inifont2, 8)
    If (@error) Then
    MsgBox(0, "", "Error _ChooseFont: " & @error)
    Else
    MsgBox(0, "", "Font Name: " & $b_font[2])
    $b_font_schreiben = IniWrite($schreiben, "FONTS", "Font1", $b_font[2])
    EndIf
    Case $msg = $S
    MsgBox(4096, "Font1", $inifont1, 10)
    Case $msg = $Exit
    Exit
    Case $msg = $Button2
    MsgBox(4096, "Font2", $inifont2, 10)
    Case $msg = $About
    MsgBox(4096, "About", "Programmierer: Tesno, Version: " & $version, 10)
    EndSelect
    Wend

    [/autoit]

    So long,

    Mega

  • ach so xD danke! xD hehe^^

    *@: das programm bearbeitet die schrift einstellungen eines spieles.


    Edit: Kleine Frage: Wie kann ich die Informationen (bsp. Version, Firma usw..)
    bearbeiten? xD

    geht das?

    Einmal editiert, zuletzt von tince (7. September 2007 um 18:31)

  • leider kann ich nicht gut english..
    wenn du ein beispiel hast bitte poste es xD danke gruss tince!


    danke für deine hilfe xD^^


    *Gutes Forum* xD

    • Offizieller Beitrag

    Hi,

    sowas:

    [autoit]

    #Region Compiler directives section
    #AutoIt3Wrapper_Res_Language=1031
    #AutoIt3Wrapper_Icon =c:\Downloads\Icons\xyz.ico
    #AutoIt3Wrapper_Res_LegalCopyright =Mega
    #AutoIt3Wrapper_Res_Description=A3 Skript - AutoLoginTM
    #AutoIt3Wrapper_Res_Comment=Tolles Skript
    #AutoIt3Wrapper_OutFile_Type=exe
    #AutoIt3Wrapper_Compression=4 ;Compression parameter 0-4 0=Low 2=normal 4=High
    #AutoIt3Wrapper_Res_Field=Entwickler|Mega
    #AutoIt3Wrapper_Res_Field=Firma|XYZ
    #AutoIt3Wrapper_Res_Field=Release Datum|%date% %time%
    #AutoIt3Wrapper_Res_Field=Programmgruppe|XYZ
    #AutoIt3Wrapper_Res_Field=Original Dateiname|XYZ
    #AutoIt3Wrapper_Res_Field=Version|XYZ
    #AutoIt3Wrapper_Run_Obfuscator=y
    #EndRegion

    [/autoit]

    So long,

    Mega

  • Irgendwie funktioniert das nicht -.-"
    hab alles versucht ^^
    es zeigt immer noch unter Eigenschaften 3.6.0.0 usw..^^


    EDIT: was ist eigentlich AutoItWrapper xD

    Einmal editiert, zuletzt von tince (7. September 2007 um 22:12)

  • ?? hö xD *husten*

    naja.. kapier einfach nix^^ sorry -.-"

    Edit: Könnte mir jemand dies erklären? xD bitte

    Einmal editiert, zuletzt von tince (8. September 2007 um 13:59)

    • Offizieller Beitrag

    HI,

    oder meinst du dies?

    Spoiler anzeigen
    [autoit]

    #include<Array.au3>
    Global $filePath = @WindowsDir & '\System32\calc.exe'
    Global $info = _getFileInfo($filePath)

    [/autoit] [autoit][/autoit] [autoit]

    If Not IsArray($info) Then
    MsgBox(16, 'Error', 'File not found!')
    Exit (0)
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    _ArrayDisplay($info, 'FileInfo')

    [/autoit] [autoit][/autoit] [autoit]

    Func _getFileInfo($path)
    If Not FileExists($path) Then Return -1
    Local $info_A[12]
    Local $string_A[12] = ['FileVersion', 'FileDescription', 'LegalCopyright', 'Comments', 'InternalName', _
    'ProductName', 'CompanyName', 'ProductVersion', 'LegalTrademarks', 'PrivateBuild', 'OriginalFilename', 'SpecialBuild']
    For $i = 0 To UBound($info_A) - 1
    $info_A[$i] = FileGetVersion($path, $string_A[$i])
    Next
    Return $info_A
    EndFunc ;==>_getFileInfo

    [/autoit]

    So long,

    Mega

  • wo muss man das genau einfügen?... ^^

    Edit: Zeile? =)
    Edit2: Oke hab eingefügt.. aber wenn ich compil.. kommt immer noch nix! ???? !!???

    wie muss ich compil..???

    2 Mal editiert, zuletzt von tince (8. September 2007 um 16:46)