01  procedure RunPackage(sPackageName: string; sUserName: string; 
02  sPassword: string);
03  var
04  oPackage: Package; //DTS.Package
05    oStep: Step; //DTS.Step
06    oTask: Task; //DTS.Task
07    oExecPkg: ExecutePackageTask; //DTS.ExecutePackageTask
08  begin
09    try
10      oPackage:=CoPackage.Create();
11      oStep:=oPackage.Steps.New();
12      oTask:=oPackage.Tasks.New('DTSExecutePackageTask');//固定
13  //    oExecPkg:= //如何取得ExecutePackageTask Instance????
14    except
15      on ex:Exception do
16        ShowMessage(ex.Message);
17    end;
18    try
19      with oExecPkg do
20      begin
21        //Name := 'delphi'; //名稱
22        ServerName := 'localhost'; //執行引擎
23        UseTrustedConnection := True;
24        {
25        //  ServerUserName := sUserName;
26        //  ServerPassword := sPassword;
27        }
28        FileName := sPackageName; //封裝名稱
29      end;
30  
31  
32      with oStep do
33      begin
34        //TaskName := oExecPkg.Name;
35        Name := 'delphi';
36        ExecuteInMainThread := True;
37      end;
38  
39      //Run the Package and release references
40      oPackage.Execute;
41  
42      //Clean up
43      oExecPkg:=nil;
44      oTask:=nil;
45      oStep:=nil;
46      oPackage.UnInitialize;
47    except
48      on ex: Exception do
49        ShowMessage('Package filed, error: ' ex.Message); 
50    end;
51  end;