Выполнение OutputJob

Procedure GenerateOutputFiles;
Var
    ProjectFilePath   : String;
    WS            : IWorkspace;
    Prj           : IProject;
    Document      : IServerDocument;
Begin
    // Set the Project file path
    ProjectFilePath := '<Path_to_Project>';
 
    // Reset all parameters
    ResetParameters;
 
    // Open the project
    AddStringParameter('ObjectKind','Project');
    AddStringParameter('FileName', ProjectFilePath);
    RunProcess('WorkspaceManager:OpenObject');
    ResetParameters;
 
    // Requirement: OutJob file name is Build.OutJob and is exists within the project
    Document := Client.OpenDocument('OUTPUTJOB', ExtractFilePath(ProjectFilePath) + 'Build.OutJob');
    If Document <> Nil Then
    Begin
        WS := GetWorkspace;
        If WS <> Nil Then
        Begin
            Prj := WS.DM_FocusedProject;
            If Prj <> Nil Then
            Begin            
                // Compile the project
                Prj.DM_Compile;
                Client.ShowDocument(Document);
 
                // Run Output Job
                AddStringParameter('ObjectKind', 'OutputBatch');
                AddStringParameter('Action', 'Run');
                RunProcess('WorkSpaceManager:GenerateReport');
            End;
        End;
    End;
 
    // Close all objects
    AddStringParameter('ObjectKind','All');
    RunProcess('WorkspaceManager:CloseObject');
    ResetParameters;
 
    // Close Altium Designer
    TerminateWithExitCode(0);
End;
"C:\Program Files\Altium\AD19\X2.EXE" -RScriptingSystem:RunScript(ProjectName="<Path_to_PrjPcb_file>"^|ProcName="GenerateOutputFiles")