- 博客(1)
- 资源 (5)
- 收藏
- 关注
原创 Some day Some will forget you, but never will I
[转]Some day Some will forget you, but never will I
2007-05-01 00:59:00 850
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;
2009-12-22
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人