To pass commands you should change the 2nd parameter in RunAProgram:
procedure RunArtisan;
var
EbookPath, MyProgram: String;
begin
EbookPath := GetGlobalVar("HEPublicationPath", "");
MyProgram := EbookPath + "artisan.exe";
RunAProgram(MyProgram, "queue:work", EbookPath, false, SW_SHOWNORMAL)...