關於BarTender條碼列印軟件調用的問題---EOleSysError '存取被拒'

Question

代碼如下:private
    { Private declarations }
    btapp,btformat,btdb:variant;
    strFilePath:string; 
procedure TReelIDPrintFrm.uCreatBTApp(btw:string);
begin
  strFilePath:=ExtractFilePath(Application.ExeName)+'Test.btw';
  if FileExists(strFilePath) then
  begin
  try
    btapp:=createoleobject('Bartender.application');//程式在這行報錯
   //xxx.exe raised exception class EOleSysError with message 存取被拒                                     
    btapp.visible:=false;
  except
    raise exception.Create('No Find Bartender Application');
  end;
  end
  else Application.MessageBox(Pchar(strFilePath + ' File not exist!'), Pchar('prompting'), 0);
end;我已經有安裝 BarTender 8.0,
請各位路過的朋友幫忙一下吧.謝謝.

Answer 1

自己頂一個,怎麽沒人來踩踩,給點指教呢..哭死..