高手请进：谁能帮我将一个三句话的VB函数改写成Delphi函数？

Question

Public Sub PLTFileToPrinter (Filename As String)
      Dim fso As New FileSystemObject
      Dim objFile As File
 
      'Add reference to Microsoft Scripting Runtime for this to work
      Set fso = CreateObject ("Scripting.FileSystemObject")
      Set objFile = fso.GetFile (Filename)
      objFile.Copy "lpt1"
 
 End Sub
 
功能复制PLT文件到打印机端口

Answer 1

procedure PLTFileToPrinter (Filename :String) ;
var
  fso :Variant ;
  objFile :TFile ;
begin
  try
    fso := CreateObject('Scripting.FileSystemObject') ;
    objFile := fso.GetFile(FileName) ;
    objFile.Copy('lpt1');
  except
  end ;
end ;