我做了个没有FROM的小程序,图标总是Delphi默认的,不知道怎么更改,哪位高手指点一下!!谢谢!!!

解决方案 »

  1.   

    菜單 project - Options 中的 Application 中的 icon
      

  2.   

    菜单Project-> options->application.
      

  3.   

    回楼上,关键没有FORM就没有APP了!!!我试看过了,里面的东西都变成灰色的了!!
      

  4.   

    菜單 project - Options 中的 Application 中的 icon
      

  5.   

    >>关键没有FORM就没有APP了!!!
    是你的操作有問題同時警告 Jute(东方明珠) ( ) 信誉:100  不要 copy 別的答案, 下次會被刪除的
      

  6.   

    可以自己写一个resource文件。
      

  7.   

    不是啊!我写的是那种小程序,比如说:
    program Program1;uses Windows;{$R *.res}begin
    MessageBox(0,'大家好!','',Mb_OK);
    end.这样我再进菜单“project - Options 中的 Application 中”,改变图标的按钮就是灰的了!
      

  8.   

    TO tonylk(=www.tonixsoft.com=) : 你说是自己做一个资源文件,可程序里面调用的时候怎么写呢??
    我是不是必须把TFORM单元加上呢??
    否则没有APP的???…………
      

  9.   

    application的图标是楼上的方法就解决了 下面设置是form的图标
    form1.Icon.LoadFromFile(图标文件路径);
      

  10.   

    回楼上,关键是没有APP啊!!
      

  11.   

    据说可以找到EXE文件里图标的位置,然后拿另外一个图标放进去替换,不知道怎么搞?
    哪位高手知道???
      

  12.   

    图标修改器,有现成的,可以去搜索一下,可以直接更改exe文件的图标
      

  13.   

    project保存时会自动生成一个res文件,如果这时你的工程图标已经改变的话,图标就会保存在里面,这时候再把多余的unit移除就OK了
      

  14.   

    我明白你的意思
    我也有过此问题你现在网上下载一个 ResHacker(现在网上到处都是)然后用ResHacker修改你已经编译好的EXE文件图标,这个软件使用很简单,自己看就能明白
      

  15.   

    把Delphi的版本信息功能关掉,再把.dpr文件的{$R *.res}一行删除,然后自己写一个.rc文件,内容大致如下,加入到工程中,再编译就可以了。1   ICON    "..\..\resource\alex02.ico"
    None Cursor "..\..\resource\empty.cur"VS_VERSION_INFO     VERSIONINFO
      FILEVERSION       0,2,2,0
      PRODUCTVERSION    0,2,2,0
      FILEFLAGSMASK 0x3fL
      FILEFLAGS 0x0L
      FILEOS 0x4L
      FILETYPE 0x1L
      FILESUBTYPE 0x0L
    BEGIN
      BLOCK "StringFileInfo"
      BEGIN
        BLOCK "040904E4"
        BEGIN
          VALUE "CompanyName",     "Tony Workshop (www.tonixsoft.com)\0"
          VALUE "FileDescription", "dynamic screen library\0"
          VALUE "FileVersion",     "0.22\0"
          VALUE "LegalCopyright",  "Copyright(C) 2000-2004 Tony Workshop\0"
          VALUE "ProductName",     "gjscreen\0"
          VALUE "ProductVersion",  "0.22\0"
        END
      END
      BLOCK "VarFileInfo"
      BEGIN
        VALUE "Translation", 0x409, 1200
      END
    END