快捷图标！

Question

在DELPHI中如何设置快捷图标！像WORD中的快捷图标一样。在线等你们的答案！

Answer 1

实不是建立快捷方式呢？
转贴：建立快捷方式
const  CCH_MAXNAME=255;  LNK_RUN_MIN=7;  LNK_RUN_MAX=3;  LNK_RUN_NORMAL=1;
type LINK_FILE_INFO=record         FileName:array[0..MAX_PATH] of char;         WorkDirectory:array[0..MAX_PATH] of char;         IconLocation:array[0..MAX_PATH] of char;         IconIndex:integer;         Arguments:array[0..MAX_PATH] of char;         Description:array[0..CCH_MAXNAME] of char;         ItemIDList:PItemIDList;         RelativePath:array[0..255] of char;         ShowState:integer;         HotKey:word;     end;
function CreateLinkFile(const info:LINK_FILE_INFO;const DestFileName:string=''):boolean;var anobj:IUnknown; shlink:IShellLink; pFile:IPersistFile; wFileName:widestring;begin wFileName:=destfilename; anobj:=CreateComObject(CLSID_SHELLLINK); shlink:=anobj as IShellLink; pFile:=anobj as IPersistFile; shlink.SetPath(info.FileName); shlink.SetWorkingDirectory(info.WorkDirectory); shlink.SetDescription(info.Description); shlink.SetArguments(info.Arguments); shlink.SetIconLocation(info.IconLocation,info.IconIndex);// shlink.SetIDList(info.ItemIDList); shlink.SetHotkey(info.HotKey); shlink.SetShowCmd(info.ShowState); shlink.SetRelativePath(info.RelativePath,0); if DestFileName='' then  wFileName:=ChangeFileExt(info.FileName,'lnk'); result:=succeeded(pFile.Save(pwchar(wFileName),false));end;

Answer 2

按照你说的意思，其实在程序中就是一排按钮而已！
只不过按忸不是一般的button
而是位于ToolBar上的Toolbutton
上面每个按钮有自己的图标，大小和按钮一般大
看起来就只有图标了！