怎样让D7在任务栏显示工程名称？

Question

我在桌面同时开了两个Delphi7，但是在底下任务栏里面显示的都是Delphi 7字样，分不清到底哪个对哪个，有什么办法让它显示各自的工程名吗？

Answer 1

晕，在project属性中改就好了，高手们看你的问题厉害了，都不敢答！

Answer 2

把下面的内容保存成相应的文件
打开DPK文件，选择Install。
我这个没有考虑Delphi5的情况，6和7都可以。
Delphi5的话引用的需求包和单元文件名有些不同。------------------------------------
文件ProjCaption.DPK
------------------------------------
package ProjCaption;{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$IMPLICITBUILD OFF}requires
  rtl,
  designide,
  vcl;contains
  DelphiCaption in 'DelphiCaption.pas';end.
---------------------------------------------
文件DelphiCaption.PAS
---------------------------------------------
{
   2004.11.30
   wr960204 武稀松(王锐)
}
unit DelphiCaption;interfaceuses
  ExptIntf, ToolIntf, EditIntf, ToolsApi,
  Classes, Windows, SysUtils, StrUtils, ExtCtrls, Forms,
  Dialogs;implementationconst
  Frequency         = 3000;             //每隔五秒钟
var
  TimerID           : Integer;
  InProc            : Boolean;  //定时器要执行的回调函数procedure HearBeatProc(Wnd: HWnd; Msg, Event, dwTime: Integer); stdcall;  function GetProjName(): string;
  begin
    Result := ToolServices.GetProjectName;
    Result := ExtractFileName(Result);
    Result := Copy(Result,1,Length(Result)-Length(ExtractFileExt(Result)));
  end;
begin
  if (InProc = False) then
  begin
    InProc := True;
    try
      Application.Title := 'Delphi7 ' + GetProjName;
      Application.MainForm.Caption := 'Delphi7 ' + GetProjName;
    finally
      InProc := False;
    end;
  end;
end;initialization
  SetTimer(0, 0, Frequency, @HearBeatProc); //创建一个定时器
finalization
  KillTimer(0, TimerID);
end.