Ich kann bestätigen, dass der
OriginalFilename bei mir auch nicht ausgegeben wird.
Ich habe mir mal das entstandene Array angesehen und es gibt noch einen
InternalName, der bisher hier fehlte.
Wenn ich diesen angebe, erscheint auch der
OriginalFileName
Code: Alles auswählen
#include "ANW_ALLG.CH"
...
VERSION
"CompanyName" = " .... l"
"LegalCopyright" = "Copyright © ... " <=== man beachte das (c) !
"ProductName" = "MDI-Win32-TL"
"ProductVersion" = chProgrammVersion
"FileDescription" = "MDI-Win32 TopLeft Muster"
"Comment" = "MDI-Win32 Beschreibung"
"FileVersion" = chFileVersion
"OriginalFilename" = "MDIW32.EXE"
"InternalName" = "Interner Name"
...
im Programm ...
*-----------------------------------------------------------------------------
Function ZeigArcInfos()
local aResource, cTxt := ""
aResource := LoadResource("VERSION", , RES_VERSION)
aEval(aResource,{|aI,i| cTxt += str(i,1,0)+": "+aI[1]+chr(9)+aI[2]+CRLF })
cTxt += "Ende"
if ! empty(cTxt)
msgbox(cTxt,"Resource Infos")
endif
return nil
Wenn ich genau hinsehe wird in der EXE aber statt (C) nun (R) angezeigt und das obwohl ich alles in ANSI habe