Tsc的delphi的代码BarTender_TLB.pas

var AppPath: string; LebelPath: string; O: TApplication_Bar; begin AppPath := ExtractFilePath(ParamStr(0)); LebelPath := AppPath + '\aa.btw'; O := TApplication_Bar.Create(nil); try with O.Formats.Open(LebelPath, True, '') do begin PrintOut(False, False); //这里设置成True的话,预览不出来. Close(btDoNotSaveChanges); end; finally O.Quit(btDoNotSaveChanges); O.Free; end; end;