文字已经修改;修改文件名不行的。
修改:
procedure TSTANDARDSTYLEMAINFORM.BizFormCreate(Sender: TObject);
var
I: Integer;
begin
FOrignActionList := TList.Create;
if ActionLists = nil then exit;
for I := 0 to ActionLists.Count - 1 do
FOrignActionList.Add(ActionLists[I]);
business.Forms.Forms.Application.Title :='这里是任务栏显示的文字';
end;