Exe-Icon bei Delphi-Konsolenanwendung ?

[himitsu]

man kann sich auch eine Resource für alles erstellen.

ich selber verwende die Projektoptionen diesbezüglich garnicht mehr.


z.B.: Resource.res = Icon + Versionsinfo + XP-Manifest

Code:

#define   RT_MANIFEST      24
#define   DS_SETFOREGROUND 0x200L
#define   DS_SHELLFONT     (DS_SETFONT | DS_FIXEDSYS)

LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL

1 ICON "icon.ico"

VS_VERSION_INFO VERSIONINFO
  FILEVERSION    2,1,0,18
  PRODUCTVERSION 2,1,0,18
  FILEFLAGSMASK  0x3fL
  FILEFLAGS      0x00L
  FILEOS         VOS_NT | VOS__WINDOWS32
  FILETYPE       VFT_APP
  FILESUBTYPE    0L
  BEGIN
    BLOCK "StringFileInfo"
      BEGIN
        BLOCK "040904e4"  // LANG_ENGLISH, SUBLANG_ENGLISH_US, charset:Multilingual
          BEGIN
            VALUE "CompanyName",     "FNS Enterprize's\0"
            VALUE "FileVersion",     "v2.1 (18) beta\0"
            VALUE "LegalCopyright",  "© 1997–2008 by FNS Enterprize's™ (himitsu)\0"
            VALUE "LegalTrademarks", "FNS Enterprize's™\0"
            VALUE "Comments",        "FreeWare\0"
            VALUE "Copyright",       "© 2003–2008 by himitsu @ Delphi–PRAXiS\0"
            VALUE "Languages",       "english\0"
          END
      END
    BLOCK "VarFileInfo"
      BEGIN
        VALUE "Translation", LANG_ENGLISH | (SUBLANG_ENGLISH_US << 10), 1252L // carset:Multilingual
      END
  END

1 RT_MANIFEST
  BEGIN
    "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\" ?>\r\n",
    "\r\n",
    "<assembly xmlns=\"urn:schemas-microsoft-com:asm.v1\" manifestVersion=\"1.0\">\r\n",
    "  <assemblyIdentity\r\n",
    "    type                  = \"win32\"\r\n",
    "    name                  = \"Borland.Delphi.XP-Application\"\r\n",
    "    version               = \"1.1.0.0\"\r\n",
    "    processorArchitecture = \"x86\"\r\n",
    "  />\r\n",
    "  <description></description>\r\n",
    "  <dependency optional=\"yes\">\r\n",
    "    <dependentAssembly>\r\n",
    "      <assemblyIdentity\r\n",
    "        type                  = \"win32\"\r\n",
    "        name                  = \"Microsoft.Windows.Common-Controls\"\r\n",
    "        version               = \"6.0.0.0\"\r\n",
    "        language              = \"*\"\r\n",
    "        processorArchitecture = \"x86\"\r\n",
    "        publicKeyToken        = \"6595b64144ccf1df\"\r\n",
    "      />\r\n",
    "    </dependentAssembly>\r\n",
    "  </dependency>\r\n",
    "</assembly>\r\n"
  END

(wobei ich selber sogar die Icon Daten direkt mit in .RC drin hab ... also nicht mehr als extra .ico-Datei)

übrig bleibt nur noch ein
{$R Resource.res}