//调用用友T6登陆窗体:program Project1;uses
  Windows,
  Forms,
  ComObj,
  ActiveX,
  Messages,
  Dialogs,
  SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas';{$R *.res}begin
   Application.Initialize;
    clsLogin:=CreateOleObject('U8Login.clsLogin');
    LoginSuccess:=clsLogin.login('DP');
    if LoginSuccess then
    begin
      Application.CreateForm(TForm1, Form1);
      Application.Run;
    end
    else
    begin
      clsLogin.ShutDown;//-----------------------------当在用友窗体按下取消时这个发生错误,有何方法解决?
    end;
end.